Mel a plusieurs destinataires

[Bernard-Louis]

Bonjour,
Ayant recupere ce code, je desire l'adresser a plusieurs destinataires. Seulement le 1 destinataire le reçois, et là je ne trouve pas apres moult tests

Sub Bouton3_QuandClic()

'Sub envoiMessage_piecesAttachees()
Dim OlApp As Object
Dim OlItem As Object

Set OlApp = CreateObject("Outlook.Application")
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = "AAAA@free.fr"
.To = "BBBB@free.fr"
.Subject = "le sujet ..."
.Body = "Le corps du message ..."
'le classeur Excel est supposé deja sauvegardé
'.Attachments.Add ActiveWorkbook.FullName
.Attachments.Add "\\A\B\C\D\E.xls"
.Save
.Send
End With

Set OlApp = Nothing
End Sub

Je vous remercie par avance pour l'aide.
Cordialement

 

[MichelXld]

Re : Mel a plusieurs destinataires

bonjour Bernard-Louis

dans ce cas tu peux utiliser

With OlItem
    [COLOR=blue].Recipients.Add "[/COLOR][EMAIL="aaa@mail.fr"][COLOR=blue]aaa@mail.fr[/COLOR][/EMAIL][COLOR=blue]"
[/COLOR]    [COLOR=blue].Recipients.Add "[/COLOR][EMAIL="bbb@mail.fr"][COLOR=blue]bbb@mail.fr[/COLOR][/EMAIL][COLOR=blue]"[/COLOR]
    
    .Subject = "le sujet ..."
    .Body = "Le corps du message ..."
    'le classeur Excel est supposé deja sauvegardé
    '.Attachments.Add ActiveWorkbook.FullName
    '.Attachments.Add "[URL="file://A/B/C/D/E.xls"]\\A\B\C\D\E.xls[/URL]"
    .Save
    .Send
End With

bonne journée
MichelXld

 

[Bernard-Louis]

Re : Mel a plusieurs destinataires

Merci MichelXLD, c'est parfait.
Merci encore
Cordialement