Intégrer un body dans envoie via Outlook par macro VBA

[plombiero]

Bonjour à toutes et à tous,

Je pense que ma question est simple, mais je n'arrive pas à mes fins.

Je cherche à intégrer un corps de texte (body) à un envoi automatique de mail par macro VBA via Outlook.

Voici le code en question :

Sub envoie_une_page()
Dim mail, dermail As Integer
Dim zoum, boody As String

nouveau = ActiveWorkbook.Name
Workbooks(ancien).Activate
dermail = Worksheets("Source").Range("C" & Cells.Rows.Count).End(xlUp).Row

boody = "Bonjour," & vbNewLine & vbNewLine & _
              "" & vbNewLine & _
              "Veuillez trouver ci-joint le reporting des comptes erreurs." & vbNewLine & _
              "" & vbNewLine & _
              "Chiffres Clefs :" & vbNewLine & _
              "" & vbNewLine & _
              "P&L de la veille : " & vbNewLine & _
              "Nombre d'erreurs de la veille : " & vbNewLine & _
              "" & vbNewLine & _
              "Commentaires : " & vbNewLine & _
              "" & vbNewLine & _
              "Bien cordialement," & vbNewLine & _
              ""

'Envoie du mail aux destinataires des cellules de "Source"

For mail = 3 To dermail
zoum = Worksheets("Source").Range("C" & mail).Value
MsgBox ("Envoi le reporting à : " & zoum)
[COLOR="Red"]Workbooks(nouveau).SendMail Recipients:=Array(zoum), Subject:="Reporting Comptes Erreurs"[/COLOR]
Next

End Sub

Je pense qu'il s'agit d'un paramètre supplémentaire à intégrer à la suite du code en rouge, mais je n'arrive pas à mettre la main dessus.

Si quelqu'un avait une idée 🙂

Merci d'avance à tous,

Bonne journée.

Damien

 

[plombiero]

Re : Intégrer un body dans envoie via Outlook par macro VBA

C'est impossible avec Sendmail.

Et comme je ne peux pas gérer CDO, ceci tombe à l'eau.

Merci pour votre attention,

Damien