Hallo,
also meiner Meinung nach m�sste das doch eigentlich funktionieren, oder?
Sub Application_NewMail()
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set myItem = myFolder.Items(1)
Dim itm as Outlook.MailItem, MailText As String
MailText = myItem.Body
With Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each itm In .Items
If Instr(MailText, "=== Customer",1) > 0 Then
MsgBox "Neue Trafficdaten da!"
End If
Next itm
End With
End Sub
Tut es aber leider nicht ;-)
> Sub Application_NewMail()
> Dim itm as Outlook.MailItem
> With Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
> MsgBox .Items.Count & " mails in inbox"
> For Each itm In .Items
> MsgBox itm.Subject
> Next itm
> End With
> End Sub
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
