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 |
