E-Mail auslesen
07.08.2003 11:05:37
michel
habe aus der Recherche folgendes für mich geeignetes Makro gefunden:
~begin~
Sub Teile_aus_Mail_holen()
Dim olApp As Outlook.Application
Dim ns As NameSpace
Dim myFolder As MAPIFolder
Dim Post As MailItem
Dim i As Integer
Set olApp = CreateObject("Outlook.Application")
Set ns = olApp.GetNamespace("MAPI")
Set myFolder = ns.Folders("Persönlicher Ordner").Folders("Posteingang")
i = 4
Range("A4:E" & Range("E4").End(xlDown).Row).ClearContents
For Each Post In myFolder.Items
Cells(i, 1) = Mid(Post.Body, InStr(Post.Body, "Name:") + 9, InStr(Post.Body, "Email:") - 12)
Cells(i, 2) = Mid(Post.Body, InStr(Post.Body, "Email:") + 9, Len(Post.Body) - InStr(Post.Body, "Email:") - 10)
Cells(i, 3) = Post.SenderName
Cells(i, 4) = Post.CreationTime
Cells(i, 5) = Post.ReceivedTime
i = i + 1
Next
Range("A4:E" & Range("E4").End(xlDown).Row).Sort Key1:=Range("A4"), Order1:=xlAscending, _
Key1:=Range("B4"), Order2:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
~end~
beim Ausführen hab ich jedoch das Problem, dass in der Zeile
Set myFolder = ns.Folders("Persönlicher Ordner").Folders("Posteingang")
die Verarbeitung mit Fehlermeldung "Laufzeitfehler '-2147221233 (8004010f)':
Der Vorgang konnte nicht ausgeführt werden. Ein Objekt wurde nicht gefunden." abgerochen wird.....
Wer weiss Rat??
Danke im Voraus.
michel