Attacher plusieurs PDF
Bonjour le forum
Voici une macro qui fonctionne super bien
La ligne de code "qso" permet d'attacher le seul pdf dans un mail qui se trouve dans le dossier laderne
Concernant la ligne de code "suf", je voudrais attacher tous les PDF dans un mail qui se trouvent dans le dossier herdine
D'avance Merci
Sub envoi_email()
Dim messagerie As Object
Dim courriel As Object
Dim nompdf As String
Dim Texte As String
Dim fich As String
Select Case ActiveSheet.[C1]
Case "qso": fich = "C:\Users\Documents\Lescury\petron\laderne.pdf"
Case "suf": fich = "C:\Users\Documents\Lescury\petron\herdine.pdf"
End Select
nompdf = Environ("Temp") & "\" & "pièce_jointe"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Range("texte").Copy
Texte = Texte & "Veuiller trouver en PJ toutes les informations relative à votre dossier" & vbCrLf & vbCrLf '& Range("U21") & vbCrLf & vbCrLf
Texte = Texte & [C11] & vbCrLf & vbCrLf
Texte = Texte & [C12]
Texte = Texte & vbCrLf
Texte = Texte & [B13]
Texte = Texte & vbCrLf & vbCrLf & vbCrLf
Set messagerie = CreateObject("Outlook.Application")
Set courriel = messagerie.CreateItem(0)
With courriel
.To = Range("destinataire")
.Subject = Range("titre")
.Attachments.Add fich
.Body = Texte
.display
End With
DoEvents
Set courriel = Nothing
Set messagerie = Nothing
Sheets("Recap").Select
End Sub