If Instr(1, MailText, "=== Customer",1) > 0 then
Claudius
>
>
> 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
>
| [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
