> Probier mal bitte statt
> Dim itm as Outlook.MailItem
> Das hier:
> Dim itm as Variant
Fehler wie gehabt. Nun eigentlich sollte es ja so funktionieren?
*grubel*
Sub Application_NewMail()
Dim itm as Variant, MailText As String
Dim Dateiname As String, Ordner As String, Zeile As String
Ordner = "D:\Mailsttest\"
With Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each itm In .Items
'MsgBox itm.Subject
'Dateiname = Ordner & "mailinput_" & Date & "_" & Hour(Time) & "_" &
Minute(Tine) & "_" & Second(Time) & ".txt"
'Open Dateiname For Output As #9
'Print #9, itm.Body;
'Close #9
If Instr(itm.Body, "=== Customer", vbTextCompare) > 0 Then
MsgBox "Neu Trafficdaten sind da!"
End IF
Next
End With
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
