Microsoft 365 Envoi mail depuis Excel en VBA

Cleclaclo24

XLDnaute Nouveau
Bonjour
J'ai une ancienne vba qui me permet d'envoyer une feuille excel à plusieurs destinataires et elle fonctionne correctement.
Je souhaiterais y integrer un message à l'interieur du mail mais je ne trouve pas la solution,pouvez vous me donner un conseil svp?
Il me manque une ligne de code mais où et quoi inscrire?
Vba actuelle:

Sub mail1()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "xxx@gmail.com"
Destinataires(2) = "xxx@laposte.net"
Sujet = "Demande XXX"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("FOA").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub


Merci d'avance
 

zebanx

XLDnaute Accro
BonjourCleclaclo24, le forum

L'instruction concernant le corps du mail est ".body"
Un exemple.
.body = " Bonjour, ci-joint le fichier demandé".

Pour les sauts de ligne, ça devrait fonctionner avec chr(10) (ou vbCrLf )
.body = "Bonjour, ci-joint le fichier demandé"&chr(10)&"cordialement"&chr(10)&"nom prénom".

A vos essais, xl-ment
zebanx
 

Cleclaclo24

XLDnaute Nouveau
merci de votre réponse mais je n'arrive pas à l'enclencher,je suis débutant en vba .

Sub mail1()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "xxx@gmail.com"
Destinataires(2) = "xxx@laposte.net"
Sujet = "Demande XXX"
.body = "Bonjour,blablabla" (je le mets comme ça et ici??)
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("FOA").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub
 

zebanx

XLDnaute Accro
Bonjour Cleclaclo24, le forum.

La méthode .body ne semble pas fonctionner directement avec ".SENDMAIL"

J'utilise outlook (où le .body fonctionne très bien) mais là, je suis incompétent.

Il y a bien un code disponible ici mais qui semble plus compliqué à implémenter sans connaissance VBA par vous même ou quelqu'un de votre entourage.

En espérant que d'autres intervenants ont une solution de leur côté.

xl-ment
zebanx
 

Discussions similaires

Statistiques des forums

Discussions
294 412
Messages
1 938 345
Membres
188 789
dernier inscrit
moni986