macro mail à plusieurs destinataires

Y compris Power BI, Power Query et toute autre question en lien avec Excel
t
tsphax
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 30 novembre 2018
Version d'Excel : 2016

Message par tsphax » 30 novembre 2018, 16:52

Classeur1.xlsm
(24.65 Kio) Téléchargé 3 fois
Bonjour,
J'ai besoin d'aide... :lole:
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 :P

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/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
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 3'801
Appréciations reçues : 153
Inscrit le : 16 mars 2017
Version d'Excel : PC - 2010 FR

Message par i20100 » 30 novembre 2018, 23:48

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
S'il vous plaît, pas de messagerie personnelle pour vos questions. La réponse peut servir aux autres membres. Merci!
isabelle
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message