>Hi!
>
>I got following sample for NewMail event from the Outlook 2000 help file:
>
>

>Dim WithEvents myOlApp As Outlook.Application
>
>Sub Initialize_handler()
>    Set myOlApp = CreateObject("Outlook.application")
>End Sub
>
>Private Sub myOlApp_NewMail()
>    Dim myExplorers As Outlook.Explorers
>    Dim myFolder As Outlook.MAPIFolder
>    Set myExplorers = myOlApp.Explorers
>    Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
>    If myExplorers.Count <> 0 Then
>        For x = 1 To myExplorers.Count
>            On Error GoTo skipif
>            If myExplorers.Item(x).CurrentFolder.Name = "Inbox" Then
>                myExplorers.Item(x).Display
>                myExplorers.Item(x).Activate
>                Exit Sub
>            End If
>skipif:
>        Next x
>     End If
>     On Error GoTo 0
>     myFolder.Display
>End Sub
>

>
>
>I guess it can help you.


Thanks Vlad!