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
Partager