Forum - Questions sur Access - Joindre plusieurs pièces jointe à un envoi de mail par VBA

Bonjour à tous, J'essai d'envoyer par VBA un mail avec plusieurs pièces jointes en PDF. Envoyer le message avec un pdf, ça marche bien, par contre, ce qui coince, c'est d'en joindre plusieurs. Voici mon code :

Dim ObjetDuMessage As String
Dim PièceJointe As String
Dim Sender As String
Dim BodyText As String
 
'En envoyer une ça marche bien
    PièceJointe = "Z:ArianeEnvois_PDFSAMU Social - Participants à la semaine du " & Format(FirstDay, "dddddd") & ".PDF" 
'Le problème est d'en joindre plusieures
'    PièceJointe = "Z:ArianeEnvois_PDFSAMU Social - Participants à la semaine du " & Format(FirstDay, "dddddd") & ".PDF" & " " & "Z:ArianeEnvois_PDFSAMU Social - Planning de la semaine du " & Format(FirstDay, "dddddd") & ".PDF"
    Sender = DFirst("Cst_Email_Exp?diteur", "T_Constantes")
    BodyText = Me.Cst_Message_Envoi_Semaine
 
    'Envoie l'Email avec la facture jointe
    Dim Cdo_Message As New CDO.Message
    Set Cdo_Message.Configuration = GetSMTPServerConfig()
 
    With Cdo_Message
        .From = Sender
        .To = ""
        .Subject = "Les Amis - SAMU Social"
        .Bcc = Bcc
        .TextBody = BodyText
        .AddAttachment (Pi?ceJointe)
        .Send
    End With
    Set Cdo_Message = Nothing

J'ai divers choses sans succès Merci par avance pour votre aide Pierre 

Bonjour,

Citation :

ce qui coince, c'est d'en joindre plusieurs

Il faut répéter les :

.AddAttachment (PieceJointe)

Le plus simple est de faire cela sur une boucle en permettant d'abord de sélectionner ou désigner le nombre de pièces jointes.

Cordialement,
Pierre (3Stone)

Merci pour la réponse.

.AddAttachment (PieceJointe1)
.AddAttachment (PieceJointe2)

j'ai fait comme ci dessus, ça marche très bien

Pierre