Forum - Questions sur Access - Joindre plusieurs pièces jointe à un envoi de mail par VBA
le 01/07/2018 : 08:45
par possible924
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
Réponse n° 1
--------
le 02/07/2018 : 18:40
par 3Stone
Administrateur
--------
le 02/07/2018 : 18:40
par 3Stone
Administrateur
sujet actif
sujet clos
Important!
Nouveau message
Rectifier message Clôturer sujet Remonter
Rectifier message Clôturer sujet Remonter