Subject tekst til outloook makro

Hej

Denne kode tager den valgte mail og udskriver subject. Hvis du har valgt flere så kører den blot rundt indtil alle valgte mails er blevet udskrevet i en msgbox.

Sub test()
    Dim ml As mailItem
   
    For iItem = 1 To Outlook.ActiveExplorer.Selection.Count
        Set ml = Outlook.ActiveExplorer.Selection.Item(iItem)
        MsgBox ml.Subject
    Next
    Set ml = Nothing
End Sub

Håber det kan bruges :-)

VH CK

Det kunne det i hvertfald, tusind tak :-)
Pernille