Attacher un fichier PDF dans un mail Excel

Version imprimable

Bonjour,
Je voudrais attacher un fichier .PDF dans un mail excel.
Lors de l'exécution cela bloque à la Ligne 6 !
Un peu d'aide svp
Merci

Code:

1
2
3
4
5
6
7
8
9
With ActiveSheet.MailEnvelope
      .Item.To = Range("H6")
      .Item.CC = Range("H7") '& ";" & Range("H8")
      .Item.Subject = Range("H5")
    ' possibilité de mettre : & " " & Range("I3")
      .Item.Attachments.Add "Mail GCP" & "_" & Sheets("Mail GCP").Range("H4").Value & ".pdf"
      .Item.Send 'remplacer par Send pour mettre en prod. ou display pour visu avant envoi
 
   End With

Salut,

Je ne sais pas si ça t'aidera mais je fais de cette façon et ça fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Dim app As Outlook.Application
Dim item As Outlook.MailItem
 
Set app = CreateObject("outlook.application")
Set item = app.CreateItem(olMailItem)
 
With item
        .Attachments.Add CStr(copyPath) ' Projet copié
        .Attachments.Add CStr(pathRtf) ' Fichier RTF
        .Display True
End With
 
Set app = Nothing
Set item = Nothing

Merci pour ton retour,

J'ai trouvé la solution :

Code:

1
2
3
4
5
6
7
8
9
10
 With ActiveSheet.MailEnvelope
      .Item.To = Range("H6")
      .Item.CC = Range("H7") '& ";" & Range("H8")
      .Item.Subject = Range("H5")
 
        'Il fallait juste preciser le chemin entier de la PJ en rajoutant ThisWorkbook.Path et "Mail GCP\" avant le nom de la PJ
      .Item.Attachments.Add ThisWorkbook.Path & "\Mail GCP\Mail GCP" & "_" & Sheets("Mail GCP").Range("H4").Value & ".pdf"
      .Item.Send 
 
   End With