Sujet Précédent Sujet Suivant

Envoyer un e-mail avec CDO

Ciosys Messages postés 1 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 25 juin 2003 - 25 juin 2003 à 17:51
cs_mikiwell Messages postés 1 Date d'inscription vendredi 8 avril 2005 Statut Membre Dernière intervention 23 avril 2008 - 23 avril 2008 à 15:31

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...

A voir également:

Envoyer un e-mail avec CDO
Envoyer sms liste excel - Forum VBA Office (Excel, Word ...)
(E) devient € ✓ - Forum Visual Basic 6
Ã© au lieu de é - Forum PHP
Un programme tente d'envoyer un courrier en votre nom - Forum Visual Basic 6
Outrepasser le message d'outlook quand j'envoi un fichier excel par email - Forum Visual Basic 6

1 réponse

Réponse 1 / 1

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

Discussions similaires

Envoi de mail en TLS par Gandi, quelle fonction?

Envoi de mail par PHP à partir d'un SMTP distant

probléme d'affichage de caractéres é,è et à dans un site et dans un webmail

conception base de données e-commerce

Script : Mail automatique de rappel