Voici une macro qui fonctionne avec Outlook. Créer la macro et l'affecter à un bouton sur la barre d'outils :

 

Sub envoimail()
'
' envoie un mail avec la pièce jointe
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)

monItem.To = "mondestinataire@adresse.com "
monItem.Subject = "objet du mail"
monItem.Body = "Bonjour" & Chr(13& Chr(13& "Je vous prie de bien vouloir trouver blabla"
Set mondoc = monItem.Attachments
mondoc.Add ActiveDocument.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub

 

 


On peut ajouter des variables à la place des constantes. Par exemple, si le destinataire varie, on ajoutera une inputbox en début de macro afin que l'utilisateur saisisse l'adresse du destinataire :

destinataire = InputBox("adresse du destinataire")

 

et à la place de l'adresse du destinataire en dur, on mettra :

monItem.To = destinataire

Statistiques

Aujourd'hui153
Hier2249
Cette semaine12989
Total depuis 20049625247

1
visiteurs actuellement en ligne