Macro mail à plusieurs destinataires
t
Bonjour,
J'ai besoin d'aide...
BDD est une feuille sur laquelle mes adresses mails sont enregistrées (de A1 à A3 par exemple) avec le nom listemail. Mais ça ne fonctionne pas.
Merci pour votre aide
Voici le code :
With CreateObject("CDO.Message")
.From = "blabla@blabla.com"
.To = Sheets("BDD").Range("listemail")
.CC = ""
.Subject = "sujet à blablater"
.TextBody = "texte à blablater:"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp blabla"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Fields.Update
.Send
If Err.Number <> 0 Then
MsgBox Err.Description, 16, "Erreur"
End If
' On Error GoTo 0
End With
Bonjour,
à tester,
Sub test()
For i = 1 To Sheets("BDD").Range("listemail").Count
sto = sto & Sheets("BDD").Range("listemail")(i) & ";"
Next
With CreateObject("CDO.Message")
.From = "blabla@blabla.com"
.To = sto
.CC = ""
.Subject = "sujet à blablater"
.TextBody = "texte à blablater:"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... smtpserver") = "smtp blabla"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... serverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Fields.Update
.Send
If Err.Number <> 0 Then
MsgBox Err.Description, 16, "Erreur"
End If
' On Error GoTo 0
End With
End Sub