Mail-Anhang abspeichern und Body-Text als txt abspeichern

Moin

Versuch`s mal so:
Sub test(Item As Outlook.MailItem)
Dim F As Integer
anzahl = Item.Attachments.Count
If anzahl > 0 Then Else Exit Sub \’ nur wenn Anhang dran
Ordnername = \”C:\\test\”
\’ nimmt ersten Anhang, sonst müsste mann eine Schleife einbauen
Item.Attachments.Item(1).SaveAsFile Ordnername & \”\\\” & Item.Attachments.Item(1).FileName
Text = Item.Body
sFilename = \”C:\\test.txt\”

\’ Datei zum Schreiben öffnen
\’ Achtung: bisheriger Inhalt wird gelöscht!
F = FreeFile
Open sFilename For Output As #F
Print #F, Text
Close #F
End Sub

Diese sub in ThisOutlookSession rein
Regel : bei Ankunft Skript ausführen

Habs nicht getestet

mfg
Thomas

Hallo!

Mein Problem hat sich erledigt. Ich habe eine Schleife hineingebaut.

Danke für die Hilfe!!!

mfg

cyber.space