XL 2013 Envoi fichier Excel via Thunderbird

[Kaizers]

Bonjour à tous et à toutes,

J'envoie un fichier à des gens, qu'ils me remplissent, et j'ai crée un bouton avec ce code :

    Application.Dialogs(xlDialogSendMail).Show

Ça m'ouvre un nouveau message, ça m’intègre le fichier sur lequel je suis, en mettant en libellé le nom du fichier, seulement j'aimerai ajouté mon adresse mail en automatique, et un texte pour meubler le message

Quelqu'un peut m'aider ???

Je suis sur que oui comme à chaque fois

 

[Jacky67]

Bonjour,
Essaye comme ceci

Ladresse = "mon address"
Lobject = "Pour un test"
Application.Dialogs(xlDialogSendMail).Show Ladresse, Lobject

 

[Kaizers]

Bonjour,
Essaye comme ceci

Ladresse = "mon address"
Lobject = "Pour un test"
Application.Dialogs(xlDialogSendMail).Show Ladresse, Lobject

Trop bien!!!!!!!!!

Il me manque juste écrire dans le corps du message, tu as ça ?

Le Lobject écrit dans l'objet du mail

sinon c'est parfait

 

[Jacky67]

Re..
Je ne suis pas spécialiste en la matière , mais je ne pense pas qu'avec "Dialogs(xlDialogSendMail).Show" tu puisses mettre un corps dans le message.
Regarde ici
http://www.vbfrance.com/codes/ENVOI-AUTOMATIQUE-MAIL-AVEC-PIECE-JOINTE-VBA-EXCEL_31545.aspx

Peut-être d'autres répondeurs