Re : Envoie par email
eduraiss,Pierre Jean, Tototiti,
en complément du post de pierrejean , cidessous un code qui permet d'envoyer un email à partir d'excel
sub email()
Dim OutApp As Object
Dim OutMail As Object
Dim corps As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
corps = "<font style='font-family: Tahoma ;font-size: 12pt ;' color=midnightblue>
blablabla</font>"
With OutMail
.To = "
tutu@yahoo.fr"
.CC = "
tata@wanadoo.fr;
coco@free.fr"
.Subject = "
titre de mon message"
.HTMLBody = corps
.Attachments.Add ActiveWorkbook.FullName 'pièce jointe =fichier actif
.Save
.display ' affiche le mail
'.send 'pour l'envoyer de façon auto
End With
end sub
Dans ce code le corps du message utilise des balises HTML mais il est possible de mettre du texte entre guillemets, dans ce cas remplacer .HTMLBody par .StrBody
Si outlook est ouvert le mail est stocké dans les brouillons, sinon le mail est stocké dans la boite de réception
a+
PS: suite à la remarque de Tototiti, je présente toutes mes excuses à tutu, tata et coco d'avoir utilisé leur adresse email (en espérant que vous n'existez pas!
)