Envoyer un e-mail avec CDO

Signaler
Messages postés
1
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
25 juin 2003
-
Messages postés
1
Date d'inscription
vendredi 8 avril 2005
Statut
Membre
Dernière intervention
23 avril 2008
-
Bonjour,

voici du code qui doit permettre d'envoyer un e-mail avec CDO :

Sub MailEnvoi()
Dim Pj As String

Pj = "C:\Windows\temp\tmp_S6202.xls"
Set objEmail = CreateObject("CDO.Message")
objEmail.To = "mon@email.com"
objEmail.Subject = ""
objEmail.Textbody = ""

If Pj <> "" Then objEmail.AddAttachment Pj
objEmail.Send

Set objEmail = Nothing
End Sub

Tout à l'air de fonctionner jusqu'à ce que j'arrive à:

objEmail.Send

le débugueur m'affiche:

Erreur d'exécution '-2147220960 (80040220)':
The "SendUsing" configuration value is invalid

Pouvez-vous m'aider à résoudre ce probleme ?
Meri d'avance...

1 réponse

Messages postés
1
Date d'inscription
vendredi 8 avril 2005
Statut
Membre
Dernière intervention
23 avril 2008