Du hast vergessen zu erw�hnen, wo du Ihn benutzt? Sieht nach Outlook VBA aus (mit Event (Application_NewMail()))?
Andreas Roth -------------------------------------- [EMAIL PROTECTED] *jetzt mit Chat* http://www.EuphoriasChild.DarkTech.org -------------------------------------- > -----Urspr�ngliche Nachricht----- > Von: Thomas Bandt [mailto:[EMAIL PROTECTED]] > Gesendet: Donnerstag, 17. Januar 2002 13:48 > An: AspGerman Kaffeehaus > Betreff: [aspdecoffeehouse] Makro f�r Outlook > > > Sers, > > ich will E-Mails die in meinem Posteingang landen und > eine Bedingung erf�llen automatisch als .txt Datei in > einem Ordner speichern. > > Folgenden Code hat mir ein netter Mensch schon zusammen- > gebastelt... nur leider funktioniert er nicht. > > W�re super wenn jemand Rat w�sste... > > Private Function Enthaelt(Zeichenkette As String, > DieZeichenkette As > String) As Boolean > Dim i As Long > Enthaelt = False > If Len(Zeichenkette) >= Len(DieZeichenkette) Then > For i = 1 To (Len(Zeichenkette) - Len(DieZeichenkette)) + 1 > If Mid$(Zeichenkette, i, Len(DieZeichenkette)) = > DieZeichenkette Then > Enthaelt = True > Exit For > End If > Next i > End If > End Function > > Private Sub Application_NewMail() > ' On Error Resume Next > > Set myNamespace = Application.GetNamespace("MAPI") > Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox) > Set myItem = myFolder.Items(1) > > Dim Betreff As String, MailText As String > Betreff = myItem.Subject > MailText = myItem.Body > > If Enthaelt(MailText, "=== Customer") Then > Dim Dateiname As String, Ordner As String > Dim Zeile As String > Dim i As Long > Ordner = "d:\data\" > Dateiname = Ordner & Hour(Time) & Minute(Tine) & > Second(Time) & ".txt" > Open Dateiname For Output As #9 > Print #9, MailText; > Close #9 > ' MsgBox "Neue eMail erhalten", vbOKOnly Or vbInformation Or > vbSystemModal, "eMail" > End If > End Sub > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
