automatisches speichern von E-Mail Nachrichten als .txt Datei aus Outlook !

[Daniel Fuchs]

Hallo NG,

alles völliger VB Anfänger - ich habe gestern Den Editor bei Outlook zum
ersten mal geöffnet - bin ich dringend auf der Suche nach einer Möglichkeit,
E-Mails automatisch als .txt Dateien auf die Festplatte zu Speichern. Mit
den "Regeln" von Outlook2K ist das leider nicht Möglich (verschieben und
kopieren läßt sich nur in der eigenen "Outlook Datei") Da der manuelle Weg
klar ist, (Datei - Speichern unter) gehe ich davon aus, das mit VB die Sache
Möglich ist ?! Ich denke da an Makros. Aber wie gesagt, für mich völliges
Neuland.

Wenn mir jemand auf die Sprünge helfen könnte - oder vielleicht sogar eine
solchen SourceCode hat wäre ich wirklich super dankbar !

Herzlichen Dank schon für alle Bemühungen

Daniel

[Günter Prossliner]

Füge folgenden Code in dein Outlook-VBA Projekt ein

Private Sub Application_NewMail()
On Error Resume Next
Dim myFolder As Outlook.MAPIFolder
Set myFolder =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

Dim msg As Outlook.MailItem
For Each msg In myFolder.Items
If msg.UnRead Then
msg.SaveAs "C:\temp\" & msg.Subject & ".txt", olTXT
msg.UnRead = False
End If
Next
End Sub

mfg Günter Prossliner

"Daniel Fuchs" <d.f...@botzenhart.de> wrote in message
news:3c05ee62$1...@news.basicworld.com...

[Daniel Fuchs]

Super vielen Dank !

Das nächste Problem: wie kann ich das Makro dazu bringen, immer sofort bei
erhalt einer neuen E-Mail zu start ! (Habe die letzte halbe Stunde die
Outlookhilfe durchwälzt - leider nichts gefunden) !

Vielen Dank schonmal !

Daniel

"Günter Prossliner" <deve...@computer-profi.at> schrieb im Newsbeitrag
news:3c0612aa$1...@news.basicworld.com...

[Günter Prossliner]

Im VBA-Editor mußt Du nur auf "DieseOutlookSession" doppelklicken und den
Code einfügen. Dann verarbeitest Du das Application_NewMail() Event.

mfg Günter Prossliner

"Daniel Fuchs" <d.f...@botzenhart.de> wrote in message

news:3c077eac$1...@news.basicworld.com...