Hallo Thomas,
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
Das ist aber noch kein Fehler.... sondern nur peinlich... ;-)))
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...
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
