Neue E-Mails in öffentlichem Outlook-Ordner erkennen

  • VB.NET

    Neue E-Mails in öffentlichem Outlook-Ordner erkennen

    Hallo,

    ich würde gerne mit einem (externen EXE-)Programm, erstellt VB2010 Express, einen öffentlichen Ordner in Outlook 2010 (Exchange) "überwachen".

    Zunächst würde ich es gerne hinbekommen, dass ich
    1. überhaupt eine Rückmeldung erhalte, wenn in den öffentlichen Ordner eine Mail eingeht. Später würde ich gerne auch erkennen,
    2. ob zwischen dem letzten Programm-Ende und dem aktuellen Programm-Start neue E-Mails in den öffentlichen Ordner kamen. Ganz später will ich die
    3. dann weiter verarbeiten.

    Ich habe einen Code, mit dem dem 1. in einem normalen Postfach funktioniert (es wirkt so...):

    Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports Microsoft.Office.Interop.Outlook
    6. Public Class Form1
    8. Private WithEvents olInboxItems As Microsoft.Office.Interop.Outlook.Items
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. Application_Startup()
    12. End Sub
    14. Private Sub Application_Startup()
    16. Dim objApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application()
    17. Dim objNS As Microsoft.Office.Interop.Outlook.NameSpace = objApp.GetNamespace("mapi")
    18. olInboxItems = objNS.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox).Items
    19. objNS = Nothing
    21. End Sub
    23. Private Sub olInboxItems_ItemAdd1(ByVal Item As Object) Handles olInboxItems.ItemAdd
    24. Panel1.BackColor = Color.Green
    25. End Sub
    27. Private Sub cmdBtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBtnReset.Click
    28. Panel1.BackColor = Color.Empty
    29. End Sub
    31. Private Sub cmdBtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBtnClose.Click
    32. Me.Close()
    33. End Sub
    35. End Class



    Bei einem öffentlichen Ordner leider nicht...:

    Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports Microsoft.Office.Interop.Outlook
    6. Public Class Form1
    8. Private WithEvents olInboxItems As Microsoft.Office.Interop.Outlook.Items
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. Application_Startup()
    12. End Sub
    14. Private Sub Application_Startup()
    16. Dim objApp As Microsoft.Office.Interop.Outlook.Application
    17. Dim objNS As Microsoft.Office.Interop.Outlook.NameSpace
    18. Dim objPF As MAPIFolder
    19. Dim objAPF As MAPIFolder
    20. Dim objMKF As MAPIFolder
    22. objApp = New Microsoft.Office.Interop.Outlook.Application()
    23. objNS = objApp.GetNamespace("MAPI")
    24. objPF = objNS.Folders("Öffentliche Ordner - " & objNS.AddressEntry.GetExchangeUser.PrimarySmtpAddress)
    25. objAPF = objPF.Folders("Alle Öffentlichen Ordner")
    26. objMKF = objAPF.Folders("Ordner 01")
    28. olInboxItems = objNS.GetPublicFolder(objMKF).Items
    30. End Sub
    32. Private Sub olInboxItems_ItemAdd1(ByVal Item As Object) Handles olInboxItems.ItemAdd
    33. Panel1.BackColor = Color.Green
    34. End Sub
    36. Private Sub cmdBtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBtnReset.Click
    37. Panel1.BackColor = Color.Empty
    38. End Sub
    40. Private Sub cmdBtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBtnClose.Click
    41. Me.Close()
    42. End Sub
    44. End Class



    kann mir jemand einen Tipp geben?
    Ich hab auch was NewMail, NewMailEx und ItemAdd Outlook events gelesen. Wären die besser geeignet? Kann man die für eine EXE verwenden?

    Neugierige und sommerliche Grüße,
    Andreas