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
| Sub EnvoiFichier()
' ENVOI PAR E-MAIL DU FICHIER :
Dim MonOutlook As Object
Dim MonMessage As Object
Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "" 'chemin d'accès du fichier joint
MonTo 'on peut mettre la liste des destinataires en variable
MonCc 'on peut mettre la liste des Cc en variable
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = "xxxx@hotmail.com" 'destinataire défini en "dur"
MonMessage.Cc = "xxxx@hotmail.com" 'Cc défini en dur
MonMessage.Attachments.Add Monfichier 'Joint le fichier défini via Monfichier
MonMessage.Subject = "Automatique mailing" 'Sujet du mail en "dur"
Corps = "Bonjour," 'Début du texte du mail
Corps = Corps & Chr(13) & Chr(10) 'renvoi à la ligne
Corps = Corps & "Voici le fichier convenu." 'suite du texte
MonMessage.body = Corps 'Place le texte complet dans le corps du message
MonMessage.send 'Envoi le mail, il faudra confirmer par la suite ou utiliser un sendkey
Set MonOutlook = Nothing '"décharge outlook
End Sub |
Partager