Discussion :

[Manu4985]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[poseidonsr]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Manu4985]

Merci pour ton retour,

J'ai trouvé la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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