August 2019 – ControllingTheInter.net

There is an example of getting FreeBusy from an exchange server from VB.NET. I use this to coordinate calendar invites on an external DMZ for outside vendors to streamline meeting request.

Imports Microsoft.Exchange.WebServices.Data
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Server As New Microsoft.Exchange.WebServices.Data.ExchangeService(ExchangeVersion.Exchange2010)
        Server.Url = New System.Uri("https://Webmail/EWS/Exchange.asmx")
        GetSuggestedMeetingTimesAndFreeBusyInfo(Server)
    End Sub
    Private Shared Sub GetSuggestedMeetingTimesAndFreeBusyInfo(ByVal service As ExchangeService)
        Dim attendees As List(Of AttendeeInfo) = New List(Of AttendeeInfo)()
        attendees.Add(New AttendeeInfo() With {
            .SmtpAddress = "First@Email.com",
            .AttendeeType = MeetingAttendeeType.Organizer
        })
        attendees.Add(New AttendeeInfo() With {
            .SmtpAddress = "Second@Email.com",
            .AttendeeType = MeetingAttendeeType.Required
        })
        Dim availabilityOptions As AvailabilityOptions = New AvailabilityOptions()
        availabilityOptions.GoodSuggestionThreshold = 49
        availabilityOptions.MaximumNonWorkHoursSuggestionsPerDay = 0
        availabilityOptions.MaximumSuggestionsPerDay = 2
        availabilityOptions.MeetingDuration = 60
        availabilityOptions.MinimumSuggestionQuality = SuggestionQuality.Good
        availabilityOptions.DetailedSuggestionsWindow = New TimeWindow(DateTime.Now.AddDays(1), DateTime.Now.AddDays(7))
        availabilityOptions.RequestedFreeBusyView = FreeBusyViewType.FreeBusy
        Dim results As GetUserAvailabilityResults = service.GetUserAvailability(attendees, availabilityOptions.DetailedSuggestionsWindow, AvailabilityData.FreeBusyAndSuggestions, availabilityOptions)
        Console.WriteLine("Availability for {0} and {1}", attendees(0).SmtpAddress, attendees(1).SmtpAddress)
        Console.WriteLine()
        For Each suggestion As Suggestion In results.Suggestions
            Console.WriteLine("Suggested date: {0}" &amp; vbLf, suggestion.Date.ToShortDateString())
            Console.WriteLine("Suggested meeting times:" &amp; vbLf)
            For Each timeSuggestion As TimeSuggestion In suggestion.TimeSuggestions
                Console.WriteLine(vbTab &amp; "{0} - {1}" &amp; vbLf, timeSuggestion.MeetingTime.ToShortTimeString(), timeSuggestion.MeetingTime.Add(TimeSpan.FromMinutes(availabilityOptions.MeetingDuration)).ToShortTimeString())
            Next
        Next
        Dim i As Integer = 0
        For Each availability As AttendeeAvailability In results.AttendeesAvailability
            Console.WriteLine("Availability information for {0}:" &amp; vbLf, attendees(i).SmtpAddress)
            For Each calEvent As CalendarEvent In availability.CalendarEvents
                Console.WriteLine(vbTab &amp; "Busy from {0} to {1} " &amp; vbLf, calEvent.StartTime.ToString(), calEvent.EndTime.ToString())
            Next
            i += 1
        Next
    End Sub
End Class

Imports Microsoft.Exchange.WebServices.Data

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim Server As New Microsoft.Exchange.WebServices.Data.ExchangeService(ExchangeVersion.Exchange2010)

Server.Url = New System.Uri("https://Webmail/EWS/Exchange.asmx")

GetSuggestedMeetingTimesAndFreeBusyInfo(Server)

End Sub

Private Shared Sub GetSuggestedMeetingTimesAndFreeBusyInfo(ByVal service As ExchangeService)

Dim attendees As List(Of AttendeeInfo) = New List(Of AttendeeInfo)()

attendees.Add(New AttendeeInfo() With {

.SmtpAddress = "First@Email.com",

.AttendeeType = MeetingAttendeeType.Organizer

})

attendees.Add(New AttendeeInfo() With {

.SmtpAddress = "Second@Email.com",

.AttendeeType = MeetingAttendeeType.Required

})

Dim availabilityOptions As AvailabilityOptions = New AvailabilityOptions()

availabilityOptions.GoodSuggestionThreshold = 49

availabilityOptions.MaximumNonWorkHoursSuggestionsPerDay = 0

availabilityOptions.MaximumSuggestionsPerDay = 2

availabilityOptions.MeetingDuration = 60

availabilityOptions.MinimumSuggestionQuality = SuggestionQuality.Good

availabilityOptions.DetailedSuggestionsWindow = New TimeWindow(DateTime.Now.AddDays(1), DateTime.Now.AddDays(7))

availabilityOptions.RequestedFreeBusyView = FreeBusyViewType.FreeBusy

Dim results As GetUserAvailabilityResults = service.GetUserAvailability(attendees, availabilityOptions.DetailedSuggestionsWindow, AvailabilityData.FreeBusyAndSuggestions, availabilityOptions)

Console.WriteLine("Availability for {0} and {1}", attendees(0).SmtpAddress, attendees(1).SmtpAddress)

Console.WriteLine()

For Each suggestion As Suggestion In results.Suggestions

Console.WriteLine("Suggested date: {0}" & vbLf, suggestion.Date.ToShortDateString())

Console.WriteLine("Suggested meeting times:" & vbLf)

For Each timeSuggestion As TimeSuggestion In suggestion.TimeSuggestions

Console.WriteLine(vbTab & "{0} - {1}" & vbLf, timeSuggestion.MeetingTime.ToShortTimeString(), timeSuggestion.MeetingTime.Add(TimeSpan.FromMinutes(availabilityOptions.MeetingDuration)).ToShortTimeString())

Dim i As Integer = 0

For Each availability As AttendeeAvailability In results.AttendeesAvailability

Console.WriteLine("Availability information for {0}:" & vbLf, attendees(i).SmtpAddress)

For Each calEvent As CalendarEvent In availability.CalendarEvents

Console.WriteLine(vbTab & "Busy from {0} to {1} " & vbLf, calEvent.StartTime.ToString(), calEvent.EndTime.ToString())

i += 1

End Sub

End Class

Availability for first@email.com and second@email.com Suggested date: 8/20/2019 Suggested meeting times:

10:00 AM - 11:00 AM
10:30 AM - 11:30 AM

10:00 AM - 11:00 AM

10:30 AM - 11:30 AM

Suggested date: 8/21/2019 Suggested meeting times:

9:00 AM - 10:00 AM
10:30 AM - 11:30 AM

9:00 AM - 10:00 AM

10:30 AM - 11:30 AM

Suggested date: 8/22/2019 Suggested …

Continue reading “VB.NET FreeBusy with Outlook”