Salut
Bon j'ai modifier un peu ton script et je l'ai tester avec mon serveur smtp et il marche à merveille chez moi, même sans login et mot de passe et avec pièce-jointe comme Bonus et j'espère qu'il va marcher pour toi aussi et il doit afficher cette image dans ton mail
Donc les lignes à modifier sont bien sûr :
objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être correct ici
et
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr"
et
ds_icon="c:\1.jpg" 'Tu dois changer le chemin de ton image si tu veux l'envoyer par piéce-jointe
Voici le code à tester :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| sub main()
Dim messageHTML
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemple de Message"
objMessage.From = """La maison communicante"" <Bill.Gates@gmail.com>" '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."
ds_icon="c:\1.jpg" 'Tu dois changer le chemin de ton image 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><font size=4 FACE=Tahoma Color=red>"&messageHTML&"<br><br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif>"
objMessage.AddAttachment(ds_icon) 'On peut ajouter aussi une image ou un fichier dans la piéce-jointe
objMessage.Send
If Err.Number <>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 |
Partager