Bonjour à tous,

Je souhaite envoyer des mails outlook via une macro. Jusqu'ici tout va bien, la macro fonctionne. Toutefois, je dispose de 2 boites mails sur Outlook et j'aimerai utiliser bien entendu la 2e. Je n'arrive pas à modifier cela ?
Est-ce juste un paramétrage à faire dans outlook ? Avez-vous des idées ?

Merci pour vos retours,


Pour information ci-dessous le code de la macro :


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
 
Sub mail()
      rep = "chemin des fichiers" 
 
        With Sheets("Mails")
        dl = .Cells(Rows.Count, 2).End(xlUp).Row 
        Set ol = CreateObject("outlook.application")
        For i = 7 To dl 
            Set ml = ol.createitem(0) 
                        ml.To = .Cells(i, 5) 
            ml.Subject = .Cells(3, 3) ' Objet du mail
           ml.body = "texte du mail"
 
            ml.attachments.Add (rep & "\" & .Cells(i, 6).Value) & ".pdf" 
            ml.Display 
            ml.send 
        Next i
    End With
End Sub