Mail avec PJ PDF à partir d'un fichier Excel

Version imprimable

24/05/2023, 19h01
MargauxLB

Mail avec PJ PDF à partir d'un fichier Excel

Bonjour à tous,

Je dois envoyer un mail avec en pièce jointe un fichier pdf qui est différent pour chacun de mes clients. Ce fichier pdf a comme nom, le code client que je lui ai affecté. Je dispose d'un fichier excel (liste de diffusion) reprenant tous les codes clients, avec en face les adresses mail de chaque client.

Comment utiliser mon tableau excel pour faire un envoi mail individualisé svp ?

Merci.

Bonjour, voici une solution:

Code:

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
36
37
38
39
40
41
Sub EnvoiMailPieceJointe()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Destinataire As String
    Dim CheminPieceJointe As String
    Dim CodeClient As String
    Dim ListeClients As Range
    Dim CelluleClient As Range
 
    ' Spécifiez la plage contenant les adresses e-mail et les codes clients
    Set ListeClients = ThisWorkbook.Sheets("Feuil1").Range("A2:B10") ' Ajustez le nom de la feuille et la plage selon vos besoins
 
    ' Initialisez Outlook
    Set OutlookApp = CreateObject("Outlook.Application")
 
    ' Parcourez chaque client dans la liste
    For Each CelluleClient In ListeClients
        Destinataire = CelluleClient.Offset(0, 1).Value ' Adresse e-mail du client
        CodeClient = CelluleClient.Value ' Code client
 
        ' Composez le mail
        Set OutlookMail = OutlookApp.CreateItem(0)
        With OutlookMail
            .Subject = "Objet du mail" ' Remplacez par l'objet souhaité pour le mail
            .To = Destinataire
            .Body = "Bonjour " & CodeClient & "," & vbCrLf & vbCrLf & "Contenu du message." ' Remplacez par le contenu du message souhaité
            ' Spécifiez le chemin d'accès du fichier PDF correspondant au code client
            CheminPieceJointe = "C:\Chemin\vers\le\fichier\" & CodeClient & ".pdf" ' Ajustez le chemin d'accès selon votre situation
            .Attachments.Add CheminPieceJointe ' Ajoutez la pièce jointe au mail
            .Send ' Envoyez le mail
        End With
 
        ' Libérez la mémoire
        Set OutlookMail = Nothing
    Next CelluleClient
 
    ' Fermez Outlook
    Set OutlookApp = Nothing
 
    MsgBox "Envoi des e-mails terminé."
End Sub

Si ce n'est déjà fait, n'oubliez pas de référencer la bibliothèque Outlook dans l'environnement VBA.
Pour des fins de test, vous pouvez remplacer la ligne .Send par .Display. Cela ouvrira le message dans la fenêtre de composition d'Outlook au lieu de l'envoyer directement.
Ainsi, vous pourrez vérifier le contenu du message et vous assurer qu'il est correct avant de l'envoyer réellement.

problèmes code

Bonjour,

Merci beaucoup pour votre aide !

Cependant je rencontre plusieurs problèmes :
- Dans l’objet du mail, j’ai des adresses email à la place du code client qui se mettent alors que j’ai bien mis dans subject = « Mandat de prélèvement : » & CodeClient
- Dans le dossier « MANDATS DE PRELEVEMENT », qui est sur le bureau de mon ordinateur, j’ai des centaines de pdf dont chacun a comme nom le code client.pdf. Un fichier pdf correspond donc à un client. Et lorsque je renseigne le premier fichier pdf (0ABAU) dans le code, cela me met ce même fichier dans tous les mails. Alors qu’il faudrait que ce soit un envoi personnalisé (un mail comprenant un fichier en PJ dont le nom du fichier pdf est un code client rattaché sur la liste de diffusion à une adresse mail spécifique). Sachant que j'ai également rajouté dans le code une PJ en pdf qui est commune à tous les clients, et qui fonctionne.
- J’ai testé le code sur la base d’un fichier test (dans lequel la feuille s’appelle « mail ») dans lequel j’ai mis deux adresses emails m’appartenant (en colonne C). Dans le fichier test, j’ai gardé que 4 clients. Cela devrait donc me créer 4 emails, et cela en crée 8.
- Comment insérer une signature outlook à la fin du mail ?

Je prends soin de vous remettre le code que j'ai modifié ci-après :
Code:

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 36 37 38 39 40 41 42 43 Sub EnvoiMailPieceJointe() Dim OutlookApp As Object Dim OutlookMail As Object Dim Destinataire As String Dim CheminPieceJointe As String Dim CodeClient As String Dim ListeClients As Range Dim CelluleClient As Range ' Spécifiez la plage contenant les adresses e-mail et les codes clients Set ListeClients = ThisWorkbook.Sheets("mail").Range("B2:C5") ' Ajustez le nom de la feuille et la plage selon vos besoins ' Initialisez Outlook Set OutlookApp = CreateObject("Outlook.Application") ' Parcourez chaque client dans la liste For Each CelluleClient In ListeClients Destinataire = CelluleClient.Offset(0, 1).Value 'C2' Adresse e-mail du client CodeClient = CelluleClient.Value 'B2' Code client ' Composez le mail Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .Subject = "Mandat de prélèvement client :" & CodeClient ' Remplacez par l'objet souhaité pour le mail .To = Destinataire .Body = "Bonjour" & "," & vbCrLf & vbCrLf & "Contenu du message." ' Remplacez par le contenu du message souhaité ' Spécifiez le chemin d'accès du fichier PDF correspondant au code client CheminPieceJointe = "C:\Users\Laeticia\Desktop\MANDATS DE PRELEVEMENT\0ABAU.pdf" ' Ajustez le chemin d'accès selon votre situation .Attachments.Add CheminPieceJointe ' Ajoutez la pièce jointe au mail .Attachments.Add "C:\Users\Laeticia\Desktop\COURRIER PRELEVEMENTS AUTOMATIQUES.pdf" .Display ' Envoyez le mail End With ' Libérez la mémoire Set OutlookMail = Nothing Next CelluleClient ' Fermez Outlook Set OutlookApp = Nothing MsgBox "Envoi des e-mails terminé." End Sub

25/05/2023, 19h27
laurent_ott

Bonjour,
Je n'ai pas tout compris à vos problèmes mais pour les deux derniers j'ai une piste :
- vous sélectionnez deux plages C et D sur 4 lignes, puis vous faites un For Each, soit une boucle sur 2x4 = 8 cellules, donc 8 messages. Il faudrait ne sélectionner qu'une seule colonne.
- Pour ajouter votre signature, c'est curieux mais il faut (de mémoire) ajouter ". Body" à la suite de ".Body & votre message". Soit : " .Body & message & .Body “
En tout cas ça marche quand on utilise HTMLBody.
Bonne continuation.

J'ai légèrement modifié en fonction de vos dernières infos:

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub EnvoyerEmails()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim FichierPDF As String
    Dim FichierPDFGenerique As String
    Dim ListeClients As Range
    Dim Client As Range
    Dim CodeClient As String
    Dim AdresseEmail As String
 
 
   ' Chemin du fichier PDF générique
    FichierPDFGenerique = "C:\Users\Laeticia\Desktop\COURRIER PRELEVEMENTS AUTOMATIQUES.pdf"
 
    ' Récupération de la liste des clients et de leurs adresses e-mail
    Set ListeClients = ThisWorkbook.Sheets("mail").Range("B2:C5")
 
     ' Initialisez Outlook
    Set OutlookApp = CreateObject("Outlook.Application")
 
    ' Parcourir chaque client dans la liste
    For Each Client In ListeClients.Rows
        ' Récupération du code client et de l'adresse e-mail
        CodeClient = Client.Cells(1, 1).Value
        AdresseEmail = Client.Cells(1, 2).Value
 
        ' Chemin du fichier PDF spécifique au client
        FichierPDF = "C:\Users\Laeticia\Desktop\MANDATS DE PRELEVEMENT\" & CodeClient & ".pdf"
 
        ' Création du nouvel e-mail
        Set OutlookMail = OutlookApp.CreateItem(0)
 
        ' Ajout des pièces jointes
        With OutlookMail
            .To = AdresseEmail
            .Subject = "Mandat de prélèvement client :" & CodeClient
            .Body = "Bonjour" & "," & vbCrLf & vbCrLf & "Contenu du message."
            .Attachments.Add FichierPDF
            .Attachments.Add FichierPDFGenerique
            .Display ' Envoyer l'e-mail
        End With
 
        ' Libération de la mémoire
        Set OutlookMail = Nothing
    Next Client
 
    ' Fermeture de l'application Outlook
    Set OutlookApp = Nothing
 
    MsgBox "Envoi des e-mails terminé."
 
End Sub

26/05/2023, 17h04
MargauxLB

Bonjour,

Alors franchement mille fois merci Franc, ça a super bien fonctionné vous êtes génial ! Grâce à vous j'ai gagné un temps phénoménal :D

Merci également à vous laurent_ott

Je clôture la discussion !

Bonne continuation.