MACRO Excel pour envoyer mail

Le 12/02/2015 à 11:47

Bonjour,

J'ai créer cette MACRO qui fonctionne :

Sub envoiMailEtFeuilleActive()

ActiveSheet.Copy ' crée une copie de la feuille active

Recipients = Range("G3")

ActiveWorkbook.SendMail Recipients, Subject:="AFS Hiérarchique"

Application.DisplayAlerts = False

ActiveWorkbook.Close ' supprime le classeur créé après l'envoi

Application.DisplayAlerts = True

End Sub

Comment je peux rajouter un corps de texte dans mon mail ???

Merci

Le 12/02/2015 à 15:10

Bonjour

ci joint un liens

https://forum.excel-pratique.com/cours-astuces/envoi-mail-avec-cdo-sans-outlook-t38945.html

Cordialement

Rechercher des sujets similaires à "macro envoyer mail"