envoi de mail

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

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

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.

myItem.ReadReceiptRequested = True

c'est cadeau