convertion mail outlook fichier txt

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:

---

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

---