Problème VBA pièce jointe email
Bonjour ,
Petit problème avec le code ci-dessous :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Dim nom
Dim mail
mail = Range("F2")
nom = "C:\Users\Desktop\Work\Nettoyage TECO\Demande PM\" & "Projets TECO_" & PM
ActiveWorkbook.SaveAs nom
ActiveWorkbook.Close
Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "Projets à clore "
myItem.Body = "Bonjour," & vbCrLf & vbCrLf & "Ci-joint des projets actuellement en TECO que nous souhaiterions fermer définitvement, est-ce bon de ton côté ?" & vbCrLf & vbCrLf & "Merci d'avance," & vbCrLf & vbCrLf & "Bien cordialement,"
myItem.Attachments.Add = nom
myItem.to = mail
myItem.Display |
Ça marche bien à priori sauf pour rajouter la pièce jointe, j'ai une erreur sur la ligne myItem.Attachments.Add = nom, vba (ou Outlook ?) ne semble pas trouver le fichier.
Si vous avez une explication je suis preneur ;)
merci d'avance
