Bonjour, j'essaye desperement d'envoyer mon fichier en pièce jointe mais il bloque sur le chemin du fichier : si quelqu'un connait la solution ...
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Sub Envoyer_Mail_Outlook() Dim ObjOutlook As New Outlook.Application Dim oBjMail Dim chemin as string Dim chemin as nom 'ici on cré le chemin complet de ton fichier qui sera créé plus bas chemin = ActiveWorkbook.Path & "\" & nom ActiveWorkbook.SaveAs chemin Set ObjOutlook = New Outlook.Application Set oBjMail = ObjOutlook.CreateItem(olMailItem) ThisWorkbook.ActiveSheet.Copy 'Enregistre le fichier à envoyer davec le nom que l'on a créé plus haut 'Ferme le fichier ActiveWorkbook.Close With oBjMail .To = "mon mail" ' le destinataire .Subject = "mail pour " & nom ' l'objet du mail .Body = "Bonjour,Merci de bien vouloir lancer la demande d'extension """ 'le corps du mail ..son contenu .Attachments.Add (chemin) .Display (True) ' Ici on met True pour vérifier l'email avant envoie .Send End With ObjOutlook.Quit Set oBjMail = Nothing Set ObjOutlook = Nothing End Sub
Partager