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 :
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
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 :
Code:
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 SubJe 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