Bonjour ,
Je cherche à créer depuis un fichier Excel, une macro permettant d'envoyer dans le corps d'un mail (depuis la messagerie installée par défaut) une plage de cellule du classeur ou une image contenu dans la feuille:
Voila la macro :
Sub EnvoiMail()Dim MailAd As StringDim Msg As StringDim Subj As StringDim URLto As StringDim Pj As StringMailAd = "toto@maison.toto"Subj = "Alerte sur …. "Msg = "Veuillez trouver ci-dessus la liste ........"URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
Cette macro me permet bien d'envoyer le mail, d'y insérer automatiquement: le destinataire, l'objet et le corps de texte, mais elle ne me permet pas d'insérer dans le corps du texte: un tableau ou une image.
Pourriez-vous m'aider à résoudre ce problème svp ?
Je cherche à créer depuis un fichier Excel, une macro permettant d'envoyer dans le corps d'un mail (depuis la messagerie installée par défaut) une plage de cellule du classeur ou une image contenu dans la feuille:
Voila la macro :
Sub EnvoiMail()Dim MailAd As StringDim Msg As StringDim Subj As StringDim URLto As StringDim Pj As StringMailAd = "toto@maison.toto"Subj = "Alerte sur …. "Msg = "Veuillez trouver ci-dessus la liste ........"URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
Cette macro me permet bien d'envoyer le mail, d'y insérer automatiquement: le destinataire, l'objet et le corps de texte, mais elle ne me permet pas d'insérer dans le corps du texte: un tableau ou une image.
Pourriez-vous m'aider à résoudre ce problème svp ?