Hallo Thomas, Ich habe gestern Abend noch eine Mail geschrieben, die aber anscheinend nicht in der Liste angekommen ist...
Nochmal kurz zusammengefasst: 1. enthaelt kann man durch die eingebaute instr-funktion ersetzen. 2. Dein Problem ist, dass myFolder.Items(1) nicht die erste Mail in der Anzeige ist, sondern die erste Mail in der Inbox... Deshalb findet das programm auch nicht den gew�nschten string. Du musst also entweder irgendwie die erste Mail aus der nach ankunftszeit sortierten mails raussuchen oder alle durchsuchen... Beachte auch, dass ein newmail event auch bedeuten kann, dass mehrere mails angekommen sind. Claudius > -----Original Message----- > From: Thomas Bandt [mailto:[EMAIL PROTECTED]] > Sent: Donnerstag, 17. Januar 2002 14:48 > To: AspGerman Kaffeehaus > Subject: [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/aspdecoffee house.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
