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
