Discussion :

[arthrax]

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 ?

[ouisansdoute]

Bonjour,

Personnellement j'ai utilisé le code suivant et je peux faire des envois groupés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Sub envoi_mail()
   
  Dim OutApp As Object
  Dim OutMail As Object
  Dim strbody As String
  Dim olFormatHTML As String
  

  Set OutApp = CreateObject("Outlook.Application")
  OutApp.Session.Logon
  Set OutMail = OutApp.CreateItem(0)
   strbody = "Information sur la mise à jour"
  On Error Resume Next
      With OutMail
          .To = "Prénom1nom1@toto.fr;marcel.durant@titi.fr"
          .CC = "Francois.pignon@free.fr;robin.des.bois@sherwood.gb"
          .Subject = "vivement les vacances"
          .BodyFormat = olFormatHTML
        .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que… " 
          .Display
      End With
          On Error GoTo 0
       Set OutMail = Nothing
      Set OutApp = Nothing
  End Sub

[Iceabyssal]

Salut,

La méthode de ouisansdoute fonctionne très bien, mais si tu veux conserver ton code, il suffit simplement de boucler sur le recipient.add :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
...
For iDest = 0 To UBound(p_arRecip) 
 .Recipients.Add p_arRecip(iDest)
Next iDest
...

[arthrax]

Merci à tous les 2, ça marche parfaitement maintenant.