Utiliser la 2e boite mail Outlook dans une macro
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:
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 |
