VBA- automatisation envoi de mail

Bonjour,

J'ai un fichier avec une macro d'envoi automatique du fichier par mail, la voici:

Sub EnvoiMail()
  Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub

Ma question est ce qu'il est possible d'ajouter un message au mail. La macro telle qu'elle est, ne prevoi juste qu'un titre de mail et rien d'autre. Je souhaiterais donc pouvoir ajouter un commentaire.

Merci à vous les amis

Bonsoir Korosif,

tu ajoutes

Body:="Ton  Texte" (avec bien sur ton formatage)

a+

papou

Merci, mais ça ne fonctionne pas ! :/

Bonjour Korosif le forum,

c'est bizarre je viens de faire l'essai et cela marche très bien chez moi !!!!!!!!

a+

Papou

Bonjour,

Par rapport à la proposition de Paritec, veille à ce que ta macro soit celle-ci

Sub EnvoiMail()
  Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True, Body:="texte"
End Sub

Si ok, clique sur le V vert à coté du bouton editer pour cloturer le fil.

Amicalement

Bonjour,

Dan a écrit :

Bonjour,

Par rapport à la proposition de Paritec, veille à ce que ta macro soit celle-ci

Sub EnvoiMail()
  Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True, Body:="texte"
End Sub

Si ok, clique sur le V vert à coté du bouton editer pour cloturer le fil.

Amicalement

Ca me sort un beug:

Erreur de compilation : Argument nommé introuvable.

Quelqu'un peut -il m'aider, merci

Re,

Merci de mettre ta vraie macro ou ton fichier car dans ta demande, ce n'est qu'un exemple on dirait.

Cette macro se trouve bien dans ton fichier ou dans un autre fichier ?

A te relire

Salut,

Sub EnvoiMail()
Workbooks("Suivi_projets_CDS_BU_AQUITAINE_" & NOMDOSSIER).SendMail Recipients:="monemail.com ", Subject:="Suivi projet" & BU & "_" & NOMDOSSIER, ReturnReceipt:=False, Body:="Bonjour, Veuillez trouver en pièce jointe le fichier de suivi de votre BU. Cordialement Contrôle de gestion CDS"
End sub

Voila la macro que j'utilise

Bonjour

Avec Excel 2003 il n'y a pas de paramètre Bodyavec la commande SendMail

Il faut déjà vérifier si elle existe dans 2007

Sinon en faisant un peu de recherche with our friend

https://olivier-bureautique.blogspot.com/2009/07/excel-2007-vba-envoyer-un-email-via.html

Juste un exemple, il y a n'en d'autre

re,

fais un essai en mettant "TEXTBODY" au lieu de "BODY"

A te relire

Bonsoir,

Je suis très surpris de vos diverses réponses concernant la méthode SendMail car que se soit avec Excel 2007 ou 2010 elle n'accepte que 3 arguments : Recipients, Subject et ReturnReceipt.

Vous ne fait pas un amalgame avec une autre fonction ?

A+

Benead