Discussion :

[goldstar]

Bonjour,

Je recherche un moyen d'ouvrir en vba excel un mail présent dans le dossier "Brouillons" d'Outlook afin de le modifier.

Quelqu'un at-il une idée ?

Merci

[lucasgaetan]

Bonjour goldstar,

voici un début de piste:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Envoi_email()
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("Titre du mail")
    Set OutApp = Nothing
End Sub

Tu remplaces "Titre du mail" par ce qui va bien

S'il n'est pas dans brouillon voir OlDefaultFolders ici , n’hésite pas à naviguer dans l'aide

bon courage

[goldstar]

Bonjour lucasgaetan,

Un grand merci à toi.

mon probleme est résolu.