Set
outlook = CreateObject(
"Outlook.Application"
)
Set
ekonto = outlook.GetNamespace(
"MAPI"
)
Set
inbox = ekonto.GetDefaultFolder(6)
For
Each
nachricht
In
inbox.items
If
nachricht.Subject =
"Mail mit 2 Anhängen"
Then
If
nachricht.Attachments.Count > 0
Then
For
Each
anhang
In
nachricht.Attachments
If
anhang.Type = 5
Then
dateitemp =
"mein Pfad"
& nachricht.Subject &
".msg"
anhang.SaveAsFile dateitemp
Else
dateitemp =
"meii Pfad"
& anhang.Filename
anhang.SaveAsFile dateitemp
End
If
Next
anhang
End
If
End
If
Next
nachricht