Zugriff auf Exchangeserver (SBS 2008) via Webservices

  • VB.NET

    Zugriff auf Exchangeserver (SBS 2008) via Webservices

    Hallo Leute,
    ich hab das Problem das ich mit VB6 eine Exchangeschnittstelle programmiert habe die allerdings unter 64Bit nicht funktioniert.
    Nun wollte ich das in VB2008 nacholen und gleich via Webservices Programmieren.

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Collections
    4. Imports System.Text
    5. Imports System.Net
    6. Imports System.Xml
    7. Imports System.Net.Security
    8. Imports System.Security
    9. Imports System.Web
    10. Imports System.IO
    11. Imports Microsoft.Win32
    12. Imports System.Reflection
    13. 'Imports System.DirectoryServices
    14. Imports System.Web.Services
    15. Imports System.Security.Cryptography.X509Certificates
    16. Imports EWSUtil.EWS
    19. Public Class Form1
    21. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    22. Dim esb = New ExchangeServiceBinding()
    23. esb.Credentials = New NetworkCredential("user", "pass", "domain")
    24. esb.Url = "https://domain/EWS/exchange.asmx"
    26. ' Create the appointment.
    27. Dim appointment As New CalendarItemType()
    29. ' Add item properties to the appointment.
    30. appointment.Body = New BodyType()
    31. appointment.Body.BodyType1 = BodyTypeType.Text
    32. appointment.Body.Value = "Agenda Items...."
    33. appointment.Categories = New String() {"Category1", "Category2"}
    34. appointment.Importance = ImportanceChoicesType.High
    35. appointment.ImportanceSpecified = True
    36. appointment.ItemClass = "IPM.Appointment"
    37. appointment.Subject = "Advance Design Presentation"
    39. ' Add calendar properties to the appointment.
    40. appointment.Start = System.DateTime.Parse("2009-11-06T14:00:00Z")
    41. appointment.StartSpecified = True
    42. appointment.[End] = System.DateTime.Parse("2009-11-06T15:00:00Z")
    43. appointment.EndSpecified = True
    45. ' Identify the destination folder that will contain the appointment.
    46. Dim folder As New DistinguishedFolderIdType()
    47. folder.Id = DistinguishedFolderIdNameType.calendar
    49. ' Create the array of items that will contain the appointment.
    50. Dim arrayOfItems As New NonEmptyArrayOfAllItemsType()
    51. arrayOfItems.Items = New ItemType(0) {}
    53. ' Add the appointment to the array of items.
    54. arrayOfItems.Items(0) = appointment
    56. ' Create the CreateItem request.
    57. Dim createItemRequest As New CreateItemType()
    59. ' The SendMeetingInvitations attribute is required for calendar items.
    60. createItemRequest.SendMeetingInvitations = CalendarItemCreateOrDeleteOperationType.SendToNone
    61. createItemRequest.SendMeetingInvitationsSpecified = True
    63. ' Add the destination folder to the CreateItem request.
    64. createItemRequest.SavedItemFolderId = New TargetFolderIdType()
    65. createItemRequest.SavedItemFolderId.Item = folder
    67. ' Add the items to the CreateItem request.
    68. createItemRequest.Items = arrayOfItems
    70. Try
    71. ' Send the request and get the response.
    72. Dim createItemResponse As CreateItemResponseType = esb.CreateItem(createItemRequest)
    74. ' Get the response messages.
    75. Dim rmta As ResponseMessageType() = createItemResponse.ResponseMessages.Items
    77. For Each rmt As ResponseMessageType In rmta
    78. Dim itemArray As ArrayOfRealItemsType = DirectCast(rmt, ItemInfoResponseMessageType).Items
    79. Dim items As ItemType() = itemArray.Items
    81. ' Get the item identifier and change key for each item.
    82. For Each item As ItemType In items
    83. Console.WriteLine("Item identifier: " & item.ItemId.Id)
    84. Console.WriteLine("Item change key: " & item.ItemId.ChangeKey)
    85. Next
    86. Next
    87. Catch e As Exception
    88. Console.WriteLine("Error Message: " & e.Message)
    89. End Try
    90. End Sub
    93. End Class


    Den Code kann ich durchlaufen sofern ich das Try rausnehme, aber er legt mir kein Termin an bzw ich seh ihn nicht im OWA.

    Mit dem Try macht er mir das hier

    "Die Variable "e" verbirgt eine Variable in einem einschließenden Block."
    Ich kenne mich nocht nicht soo gut mit 08 aus was bedeutet das denn?

    "domain", "pass", "user" steht hier nur für Platzhalter

    Hoffe jemand kann mir helfen ggf noch ein paar Tipps geben was die Sache mit Exchange angeht.

    Danke schonmal!

Facebook
Telefonspende