Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'Donc les lignes à modifier sont bien sûr : 'objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être 'correct ici. '("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr" 'piece-jointe="c:\fichier.ext" 'Tu dois changer le chemin de ton image si 'tu veux l'envoyer par piéce-jointe sub main() Dim messageHTML Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Exemple de Message" objMessage.From = """La maison communicante"" " 'ici on s'en fou tu peux mettre n'importe quel mail même s'il n'existe pas (^_^) objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être correct ici objMessage.TextBody = "Ceci est un exemple de texte.." & vbCRLF & "Il est envoyé par un serveur SMTP." piece-jointe="c:\fichier.ext" 'Tu dois changer le chemin de ton fichier si tu veux l'envoyer par piéce-jointe messageHTML="Ceci est un message en HTML envoyé par hackoo" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update 'Ajout d'un message en HTML en affichant une image hébergé dans un serveur distant objMessage.HTMLBody="<center>"&messageHTML&" 0 Then MsgBox Err.Description,16,"Erreur" msgbox "le mail n'a pas pu être envoyé !",16,"Information" Else msgbox "Le mail a été bien envoyé !",64,"Information" End If On Error GoTo 0 end sub Call main