bonjour a tous,

j'ai trouvé une macro vb qui convertie les fichiers mail d'outlook en fichier txt

j'aimerais faire la même chose mais que ca me convertisse uniquement le mail ouvert dans outlook.

savez vous comment je peux faire ?

merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub ExportEmailsToTXT()
    Dim app As Outlook.Application
    Dim msg As Outlook.MailItem
 
    Set app = CreateObject("Outlook.Application")
    sCount = 0
    For Each msg In app.ActiveExplorer.CurrentFolder.Items
    sCount = sCount + 1
        sFilename = "C:\Emails\" & sCount & ".txt"
        msg.SaveAs sFilename, olTXT
    Next msg
End Sub