hallo, die mail ist angekommen - aber der letzte tipp ist noch gut ;)
> -----Urspr�ngliche Nachricht----- > Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]] > Gesendet: Freitag, 18. Januar 2002 10:46 > An: AspGerman Kaffeehaus > Betreff: [aspdecoffeehouse] RE: [aspdecoffeehouse] Makro f�r Outlook > > > 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 > | [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
