Macro envoie email avec conditions !

Re : Macro envoie email avec conditions !

Personne veut me répondre... 🙁

Re : Macro envoie email avec conditions !

Re:

concernant envoi Excel par mail,
il y a plein de sujets postés su ce forum,
essaie de faire une recherche avec mot "mail" ou "email"

et j'aimerai savoir s'il est possible de rajouter du texte dans le mail, si oui comment?
utilise avec le code suivant:

Sub Mail()
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strto = "_____@_____.com" ' ou bien y mettre p.ex. = Range("A2")
strcc = "_____@_____2.com"
strbcc = ActiveCell ' est sélectionné l'adresse email figurant dans ActiveCell
strsub = "ci-joint fichier Excel"

strbody = "Bonjour, l'email fonctionne bien" & vbNewLine & vbNewLine & _
"à verify le document Excel en annexe"
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody
.Send
'est affiché les données du mail avant d'envoyer
' .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub