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 32 33
| ListDestinataire=array("Dest1@gmail.com","Dest2@yahoo.fr","Dest3@voila.fr","Dest4@yahoo.com","Dest5@gmail.com","Dest6@domaine.com","Dest7@gmail.com","Dest8@yahoo.com","Dest9@voila.fr","Dest10@gmail.com")
For i=LBound(ListDestinataire) to UBound(ListDestinataire)
Destinataire = ListDestinataire(i)
Mail(Destinataire)
Next
sub Mail(Destinataire)
Dim messageHTML
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemple de Message"
objMessage.From = """La maison communicante"" <Bill.Gates@gmail.com>"
objMessage.To = Destinataire
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.orange.fr"'Tu dois changer par ton serveur smtp
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://nsm05.casimages.com/img/2011/07/23//1107230741401311048506419.gif>"
'objMessage.AddAttachment("chemin de votre fichier à joindre") '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 |
Partager