Outlook - Freigegebene Kalender ansprechen

  • VB.NET

    Outlook - Freigegebene Kalender ansprechen

    Hallo Liebes Forum,

    ich habe ein Problem beim Ansprechen von freigegebenen Kalendern. Er findet einfach nicht die schon eingebundenen Kalender im
    Outlook. Wo kann der Fehler liegen, ich bin bald am Verzweifeln.

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    3. NSpace = outApp.GetNamespace("MAPI")
    4. inBox = NSpace.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar).Folders(Kalender2)
    5. Datum = CStr(DateTimePicker1.Value)
    7. MarcelH = outApp.Session.CreateRecipient("Marcel H")
    8. MarcelH.Resolve()
    9. RicardoO = outApp.Session.CreateRecipient("Ricardo O")
    10. RicardoO.Resolve()
    11. ThomasB = outApp.Session.CreateRecipient("Thomas B")
    12. ThomasB.Resolve()
    13. ThomasM = outApp.Session.CreateRecipient("Thomas M")
    14. ThomasM.Resolve()
    15. TonyB = outApp.Session.CreateRecipient("Tony B")
    16. TonyB.Resolve()
    17. FelixB = outApp.Session.CreateRecipient("Felix B")
    18. FelixB.Resolve()
    21. CalMarcelH = NSpace.GetSharedDefaultFolder(MarcelH, Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
    22. CalRicardoO = NSpace.GetSharedDefaultFolder(RicardoO, Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
    23. CalThomasB = NSpace.GetSharedDefaultFolder(ThomasB, Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
    24. CalThomasM = NSpace.GetSharedDefaultFolder(ThomasM, Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
    25. CalTonyB = NSpace.GetSharedDefaultFolder(TonyB, Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
    26. CalFelixB = NSpace.GetSharedDefaultFolder(FelixB, Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
    29. items = inBox.Items
    30. Try
    31. For Each Termin As Object In items
    32. moveMail = TryCast(Termin, Outlook.AppointmentItem)
    33. If Not moveMail Is Nothing Then
    34. If InStr(CStr(moveMail.Start), Datum) > 0 And moveMail.Categories = "Marcel H." Then
    35. moveMail.Move(CalMarcelH)
    36. ElseIf InStr(CStr(moveMail.Start), Datum) > 0 And moveMail.Categories = "Ricardo O." Then
    37. moveMail.Move(CalRicardoO)
    38. ElseIf InStr(CStr(moveMail.Start), Datum) > 0 And moveMail.Categories = "Thomas B." Then
    39. moveMail.Move(CalThomasB)
    40. ElseIf InStr(CStr(moveMail.Start), Datum) > 0 And moveMail.Categories = "Thomas M." Then
    41. moveMail.Move(CalThomasM)
    42. ElseIf InStr(CStr(moveMail.Start), Datum) > 0 And moveMail.Categories = "Tony B." Then
    43. moveMail.Move(CalTonyB)
    44. ElseIf InStr(CStr(moveMail.Start), Datum) > 0 And moveMail.Categories = "Felix B." Then
    45. moveMail.Move(CalFelixB)
    46. End If
    47. End If
    48. Next Termin


    Ich hab es auch schon bei der Zeile

    VB.NET-Quellcode

    1. FelixB = outApp.Session.CreateRecipient("Felix B")
    2. FelixB.Resolve()


    mit den Email Adressen aus dem Exchange probiert aber da geht es auch nicht.

    Danke für die Hilfe schonmal

Facebook
Telefonspende