Per VBA auf Emailanhänge zugreifen

hm..danke, aber ich glaube, das kann nicht so ganz das was ich brauche.
hab jetzt jedenfalls einen anfang bei VBA für Outlook gefunden:

Private Sub AnalyzeAttachment()
Dim objPosteingang As MAPIFolder
Dim objMail As MailItem

On Error Resume Next
Set objPosteingang = Application.GetNamespace(\”MAPI\”).GetDefaultFolder(olFolderInbox).Folders.Item(\”Test\”)
Open \”C:\\Test.csv\” For Output As #1
\’Ausgb = MsgBox(objPosteingang.Name)
For Each objMail In objPosteingang.Items
\’Ausgb = MsgBox(objMail.To)
Write #1, objMail.To
Next objMail
Close #1
End Sub

Damit kann ich auf emails in einem ordner \”Test\” zugreifen und deren empfänger oder absender usw. abrufen. jetzt sind diesen emails aber wiederum emails als anhänge beigefügt und ich muss an die daten von diesen angehängten emails dran. da das eine ganze menge sind, wäre es nicht so gut, die anhänge nochmal irgendwo abzuspeichern. Also man müsste irgendwie ein Attachment in ein MailItem uminterpretieren..aber wie macht man sowas..?

[Editiert am 15/1/2007 von michi2000]