envoie multiple avec EmailSendTo

[alfonso]

bonjour
je cherche a envoyé un mail à plusieurs destinataires

voici une partie de mon code

On Error GoTo err_SendNotesMsg
' Initialisation des variables
EMailSendTo = "adresse1@free.fr, adresse2@hotmail.fr, adresse4@yahoo.fr" 'liste de diffusion
EMailCopyTo = "adresse3@xxx.com" 'liste de diffusion en copie
EMailSubject = "Suivi des convocations clients " & Cells(1, 1) 'sujet du mail

j'ai éssaye de séparer les adresse par des point virgule mais l'envoie ne s'effectue qu'a la première adresse mais chose avec des virgules l'email est envoyé à la première adresse de la liste

pouvez-vous m'aidez

 

[RENAUDER]

Re : envoie multiple avec EmailSendTo

Bonjour,

J'utilise du code VBA normal avec en plus les lignes de commandes adapté.
Voici le lien où j'ai trouvé l'information : Example Code for sending mail from Excel
et le code

Option Explicit
'If you have a GMail account then you can try this example to use the GMail smtp server
'The example will send a small text message
'You must change four code lines before you can test the code
'.Item("") = "Full GMail mail address"
'.Item("") = "GMail password"
'Use your own mail address to test the code in this line
'.To = "Mail address receiver"
'Change YourName to the From name you want to use
'.From = """YourName"" <[EMAIL="Reply@something.nl"]Reply@something.nl[/EMAIL]>"
'If you get this error : The transport failed to connect to the server
'then try to change the SMTP port from 25 to 465
Sub CDO_Mail_Small_Text_2()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("") = True
        .Item("") = 1
        .Item("") = "Full GMail mail address"
        .Item("") = "GMail password"
        .Item("") = "smtp.gmail.com"
        .Item("") = 2
        .Item("") = 25 '465
        .Update
    End With
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"
    With iMsg
        Set .Configuration = iConf
        .To = "Mail address receiver"
        .CC = ""
        .BCC = ""
        ' Note: The reply address is not working if you use this Gmail example
        ' It will use your Gmail address automatic. But you can add this line
        ' to change the reply address  .ReplyTo = "[EMAIL="Reply@something.nl"]Reply@something.nl[/EMAIL]"
        .From = """YourName"" <[EMAIL="Reply@something.nl"]Reply@something.nl[/EMAIL]>"
        .Subject = "Important message"
        .TextBody = strbody
        .Send
    End With
End Sub

 

[Staple1600]

Re : envoie multiple avec EmailSendTo

Re



Merci Eric, c'est a réponse que je craignais (pour ce qui me concerne):
CDO

(Il va vraiment falloir que je passe de Windows 98 SE à XP ou Vista)

 

[RENAUDER]

Re : envoie multiple avec EmailSendTo

Bonjour Staple,

Je ne comprends pas ta réponse. Tu craignais quoi ?