Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Envoi d'une pièce jointe PDF via Macro Excel

Frany06

XLDnaute Nouveau
Bonjour,
Grâce à une macro Excel, j'aimerais envoyer des pièces jointes PDF d'intitulés différents (disponible dans un fichier) en fonction de l'objet du mail Outlook.
L'objet dépend d'une donnée dans une cellule et la pièce jointe doit dépendre de cette même donnée. Elle doit être différente et adaptée à chaque envoi.

'Send
Dim AppOut As Object
Dim oMailItem As Object
Dim NomModele As String

NomModele = "(Chemin d'accès Masque)\Mail CC" & ".oft" 'nom du masque
Set AppOut = CreateObject("Outlook.Application")
Set oMailItem = AppOut.CreateItemFromTemplate(NomModele)
oMailItem.Display

With oMailItem
.SentOnBehalfOfName = ""
.To = mail
.CC = FACT & ";" & & ";" & & ";" &

.Attachments.Add "(chemin d'accès pièces jointes)" & ".pdf" 'pièces jointes
.Subject = "Nom objet: " & Range("C4") & " - " & Range("E4") & " - " & Range("A1") & " - " & Range("A2")


.Display '
End With 'olMail


Merci pour votre aide
Cdt
 

Discussions similaires

  • Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
481
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…