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
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