Bonsoir,
Voici un exemple :
Sub EnvoiEmail()
'affectation de l'application OUTLOOK à la variable "appmess"
Set appmess = CreateObject("outlook.Application")
'affectation à la variable "mess" d'un nouveau message _
à partir de l'application OUTLOOK (appmess)
Set mess = appmess.CreateItem(olMailItem)
With mess
.Subject = "Bonjour" 'inscription du mot "bonjour" en objet
.Body = "Coucou, ceci est le message" 'inscription d'un texte dans le corp du message ou par exemple, .Body= Cells(13,1).Value
.Recipients.Add("ronan@zik.mu").Type = olBCC 'affectation de l'adresse _
du destinataire dans la zone "CCI" grace au type "olBCC" (pour la zone "CC" _
indiquer le type "olCC", pour la zone "A", ne pas indiquer de type). On peut _
rajouter autant de destinataire que l'on veut en inscrivant autant de ligne _
que nécessaire avec un type différent si besoin.
.Attachments.Add "c:\windows\bureau\capture.ini" 'insertion d'une pièce jointe si besoin
.Send 'envoi du message
End With
Set mess = Nothing 'on libère la variable "mess"
Set appmess = Nothing 'on libère la variable "appmess"
End Sub
@+
Ronan