Bonjour,
je n'arrive pas à trouver une solution, j'espere qu'on pourra m'aider ici
Je veux creer une macro pour envoyer plus simplement des mails avec des PJ, j'ai pu creer un premier code mais avec uniquement la possibilité d'envoyer un fichier à partir d'un lien hypertexte. Je cherche une solution pour envoyer plusieurs PJ dans un meme mail à partir du lien ou en ajoutant d'autres colonnes de lien
Ci-dessous la macro.
Merci d'avance pour votre aide
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
26
27
28
29
30
31
32
33
34
35 Public Sub EnvoiAutomatiqueMail() Dim OutlookApp As Object Dim OutlookMail As Object Dim adresse As String Dim Fact As String Dim i As Integer With Sheets("Listing Envoi Mail") For i = 8 To .[G65536].End(xlUp).Row ' on passe en revue toutes les lignes de la colonne G If Range("I" & i) = "Oui" Then 'les mails sont générés uniquement si "oui" dans la colonne I adresse = .Cells(i, "G") 'adresse mail Fact = Range("J" & i).Value 'rajout des PJ en colonne J en pieces jointes du mail Set OutlookApp = CreateObject("outlook.application") 'ouvre l'application outlook Set OutlookMail = OutlookApp.CreateItem(0) 'prepare le mail outlook With OutlookMail .Subject = Sheets("Faire modif ici").Range("C5").Value 'va chercher le contenu de la cellule C5 de la feuille Faire modif ici du fichier excel .To = adresse 'va rechercher les adresses de chaque ligne pour créer le mail .CC = Sheets("Faire modif ici").Range("C7").Value 'va chercher les adresses mail dans la cellule C7 de la feuille Faire modif ici .Body = Sheets("Faire modif ici").Range("C11").Value 'va chercher le corps du mail dans la cellule C11 de la feuille Faire modif ici .Attachments.Add Fact .Display 'affiche le mail avant envoi End With End If Next i 'on passe au mail suivant End With End Sub
Partager