Email an erster Stelle im Ordner anwählen

  • Outlook

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Email an erster Stelle im Ordner anwählen

    Hallo zusammen,

    ich würde den Inhalt der ersten E-Mail in meinem Ordner speichern. Das Makro sucht mir jedoch immer eine x-beliebige E-Mail raus. Liegt das daran, dass mein Ordner sortiert ist?

    So sieht mein Makro aus:

    Dim objOutlook As Outlook.Application
    Dim objnSpace As Outlook.Namespace
    Dim objFolder As Outlook.MAPIFolder
    Dim objMsg As Outlook.MailItem



    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")

    Set objFolder = objnSpace.Folders("1").Folders("2").Folders("3")
    objFolder.Display
    Set objMsg = objFolder.Items(1)
    objMsg.Display
    objMsg.Attachments.Item(1).SaveAsFile "O:\x.pdf"

    Bei Items(1) habe ich ja eigentlich die erste Email ausgewählt oder nicht?

    Vielen Dank im Voraus

    MfG

    Dennis