envoi de mail

[Thib]

j'ai trouvé ce code mais j'aimerais recevoir un accusé de reception.

Comment faire ?

Sub envoimail()
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = ".......@....."
myItem.Subject = "TEST"
myItem.CC = ""
myItem.Body = "Ceci est un test d'accusé de reception"
Set ol = Nothing
myItem.Send
End Sub

Merci d'avance

 

[STéphane]

bonjour

regarde la méthode sendmail, tu peux spécifier un paramètre pour obtenir un accusé de réception si je ne m'abuse

bye
steph

 

[Thib]

j'ai déja regardé mais la methode sendmail te force a envoyer le classeur en cours comme fichier joint et moi je ne veux pas envoyer de fichier joint.

 

[zouille]

myItem.ReadReceiptRequested = True

c'est cadeau