En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

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


 


le 01/07/2018 : 08:45
par possible924

Anonyme

visiteur

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 

sujet clos Haut  
Réponse n° 1
--------
le 02/07/2018 : 18:40
par 3Stone

3Stone

Administrateur


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)

clos par 3Stone le 10/07/2018 : 19:01 Haut  
Réponse n° 2
--------
le 02/07/2018 : 19:15
par possible924

Anonyme

visiteur

Merci pour la réponse.

.AddAttachment (PieceJointe1)
.AddAttachment (PieceJointe2)

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

Pierre

clos par 3Stone le 10/07/2018 : 19:01 Haut  
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message
Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter  
Catégories de discussion  Forum  



Vous êtes ici :   Accueil » Forum » Questions sur Access » Joindre plusieurs pièces jointe à un envoi de mail par VBA