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