hi,
> 1. die Funktion "Enthaelt" ist unn�tig, da VBA schon eine solche
> funktion kennt, n�mlich "instr":
> Statt:
> If Enthaelt(MailText, "=== Customer") Then
> Muss es so heissen:
> If Instr(MailText, "=== Customer",1)>0 then
okay...
> 2. Deine Funktion funktioniert nicht, weil es keineswegs so ist, dass
> die neue Mail myFolder.Items(1) ist...
> Das kannst Du testen, indem Du nach der Zeile "MailText = myItem.Body"
> mal ein "MsgBox MailText" angibst...
> {Und schon gar nicht in der Inbox, hattest Du nicht erw�hnt, dass Du ein
> eigenes Verzeichnis f�r diese Mails hast?}
> D.h. Du must einen Weg finden entweder aus der nach Ankunft sortierten
> Liste den ersten auszuw�hlen oder Du durchsuchst alle Mails...
den test habe ich schon gestern gemacht und da hast du recht. es wird
aus meiner sortierung aus gesehen immer die letzte mail bzw. deren body
ausgegeben.
> 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/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
>
| [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
