Envoi d'un e-mail depuis xl et le signer
Le Sil
Messages postés
8
Statut
Membre
-
Le Sil Messages postés 8 Statut Membre -
Le Sil Messages postés 8 Statut Membre -
J'utilise le code suivant pour envoyer un courriel via outlook.
Sub SendMail()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("toto@ss.ch", "xxx@sss.ch"), Subject:="Test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
Je désirerais ajouter du texte dans ce mail et le signer. Comment puis-je faire ?
D'avance merci pour votre aide.
Sub SendMail()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("toto@ss.ch", "xxx@sss.ch"), Subject:="Test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
Je désirerais ajouter du texte dans ce mail et le signer. Comment puis-je faire ?
D'avance merci pour votre aide.
