Comment créer un bouton qui envoie le fichier en cours ?
/ 1
- Détails
- Catégorie parente: Faq Word
- Catégorie : VBA solutions
- Mis à jour le mercredi 28 septembre 2011 21:53
- Affichages : 3497
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 = "
Cette adresse e-mail est protégée contre les robots spammeurs. Vous devez activer le JavaScript pour la visualiser.
"
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
