Microsoft 365 Envoi mail depuis Excel en VBA

[Cleclaclo24]

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]

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]

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]

Bonjour Cleclaclo24, le forum.

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

[Aide] Macro sendmail et fonction "body"

Bonjour, J ai créé une macro qui envoi par mail le fichier actif, mais je n arrive pas à mettre un texte dans le corps de ce mail. J arrive seulement à predefinir le sujet du mail et les destinataires, mais pas le corps. J ai essayé dans ma macro les 2 syntaxes suivantes qui fonctionnent...

www.excel-downloads.com

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.

Comment intégrer le corps du message dans une fonction SendMail - Macros et VBA Excel

J'espère être dans le bon forum!!!! Voici le bout de code qui fonctionne (normal il est adapté de la FAQ) auquel je voudrais intégrer le bout en rouge correspondant au texte devant figurer dans le corps du

www.developpez.net

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

xl-ment
zebanx