send mail corps de message

[ghistail]

Bonjour, j'ai le code ci dessous et j'aimerai mettre un message avec l'envoi.

merci de votre aide

Sub envoiMailEtFeuilleActive()


ActiveSheet.Copy

ActiveWorkbook.SaveAs "commande " & Format(Date, "dd-mm-yyyy") & ".xls"


ActiveWorkbook.SendMail Recipients:=ActiveSheet.Range("d4").Value, Subject:="Sssm Commande Pharmacie Ax " & Date 'envoi Mail

ActiveWorkbook.SendMail Recipients:=ActiveSheet.Range("e4").Value, Subject:="Sssm Commande Pharmacie Ax " & Date 'envoi Mail


Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True

End Sub

 

[FFAUVERE]

Re : send mail corps de message

Hello,

Voici un exemple avec en prime la mise en PJ du fichier !

Sub EnvoiMail()
Dim Produit As String, objet As String
Produit = Cells(1, 1).Value
objet = Produit & " texte"
ActiveWorkbook.SendMail Recipients:="", _
Subject:=objet, _
ReturnReceipt:=True

End Sub



A+

 

[FFAUVERE]

Re : send mail corps de message

J'ai répondu un peu trop vite.
La méthode 'sendmail' ne prend pas en charge la fonction 'Body' il me semble...

Essaye ici

 

[ghistail]

Re : send mail corps de message

merci j'essaye.

effectivement pas de body pour sendmail, j'essaye html body

 

[Yaloo]

Re : send mail corps de message

Bonjour ghistail, FFAUVERE,

Moi je me suis fais ça avec CDO, à adapter si besoin. Je me suis créé un bouton dans le ruban d'excel, dès que j'ai un mail à envoyer je passe par là.

A+
Yaloo

 

[ghistail]

Re : send mail corps de message

hum c'est très joli,j'aimerai pouvoir en faire autant, je test ça demain aprés midi, ce soir pas trop le temps et demain matin réunion en préfecture. j'ai hâte d’être demain après midi.
Si vous avez des idées pour m'aider je suis preneur, je ferai une compil.

merci