Sub envoyer(x)
'la variable x est le numéro de ligne de l'adresse e-mail à utiliser
Dim OutApp As Outlook.Application
Dim myNamespace As Outlook.Namespace
Dim FldBrouillons As Outlook.Folder
Dim myMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set myNamespace = OutApp.GetNamespace("MAPI")
Set FldBrouillons = myNamespace.GetDefaultFolder(olFolderDrafts)
'****Pour voir se qu'il y a dans le dossier****
For Each Item In FldBrouillons.Items
MsgBox Item.ConversationTopic
Next
Set myMail = FldBrouillons.Items.Item(ActiveSheet.Range("B" & 9).Value) 'ici l'objet range av chercher l'objet du mail brouillon, qui est dans une case d'un tableur excel lié
Set OutApp = Nothing
End Sub