Bonjour,

Le but de la macro est un envoi de mail. Sachant que le code originel n'est pas de moi.
Actuellement il est configuré pour envoyer le mail via l'application lotus or on vient de migrer vers outlook. Le but est donc d'envoyer les mails via Outlook.

Code Lotus fonctionnel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
SendNotesMail sSubject, p_sAttach, p_arRecip(), sBody, True
Voilà mon code Outlook (non-fonctionnel) correspondant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim OutlookApp As New Outlook.Application
            Dim Mess As Outlook.MailItem
            Set OutlookApp = Outlook.Application
            Set Mess = OutlookApp.CreateItem(olMailItem)
            With Mess
            .Attachments.Add p_sAttach
            .Subject = sSubject
            .Body = sBody
            .Recipients.Add p_arRecip()
            .Send
            End With
J'ai une erreur au niveau de la partie en rouge.
Après recherche, il s'avère que .Recipients.Add ne prend en compte qu'une seule adresse mail à la fois alors que p_arRecip() est un tableau comprenant plusieurs adresses.

Si je met .Recipients.Add test@test.fr je reçois bien le mail.

Comment faire pour envoyer un mail à plusieurs destinataires en même temps ?