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