Hallo zusammen,
ich tue mich gerade etwas schwer die Verbindung zu unserem Firmen-Exchange-Server herzustellen.
Die Anleitung unter docs.microsoft.com/de-de/excha…d-api-client-applications hilft mir nicht wirklich weiter da es in VB kein private static bool gib und selbst der code converter von Telerik da aufgibt.
Bisher bin ich so weit gekommen:
Das Programm läuft bei "WAS MUSS HIER STEHEN???" auf einen Fehler, da die URI nicht stimmt. Ich habe es dort bereits mit der Mailadresse und dem Servernamen vom Exchange Server versucht.
Kann mir jemand (vielleicht mit einem funktionieren Codeschnipsel) weiterhelfen?
Danke und Gruß
Volker
ich tue mich gerade etwas schwer die Verbindung zu unserem Firmen-Exchange-Server herzustellen.
Die Anleitung unter docs.microsoft.com/de-de/excha…d-api-client-applications hilft mir nicht wirklich weiter da es in VB kein private static bool gib und selbst der code converter von Telerik da aufgibt.
Bisher bin ich so weit gekommen:
VB.NET-Quellcode
- Sub Mailpruefung()
- Dim service As Microsoft.Exchange.WebServices.Data.ExchangeService = New ExchangeService(ExchangeVersion.Exchange2010_SP2)
- service.Credentials = New WebCredentials("mitarbeiter@firma.com", "kennwort")
- service.UseDefaultCredentials = False
- 'service.AutodiscoverUrl("user1@contoso.com", RedirectionUrlValidationCallback("srvfbmail1.fb.brand-group.com"))
- Dim redirectionUri As Uri = New Uri(WAS MUSS HIER STEHEN???)
- If redirectionUri.Scheme = "https" Then
- service.AutodiscoverUrl("user1@contoso.com")
- End If
- End Sub
Das Programm läuft bei "WAS MUSS HIER STEHEN???" auf einen Fehler, da die URI nicht stimmt. Ich habe es dort bereits mit der Mailadresse und dem Servernamen vom Exchange Server versucht.
Kann mir jemand (vielleicht mit einem funktionieren Codeschnipsel) weiterhelfen?
Danke und Gruß
Volker