envoie multiple avec EmailSendTo

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