November, 2010

Imports System.Net

Imports System.Net.Security

Imports Microsoft.Exchange.WebServices.Data

Imports System.Security.Cryptography.X509Certificates

Public Class Form1

    'Creating Servie object for EWS service binding endpoint

    Dim service As New ExchangeService(requestedServerVersion:=ExchangeVersion.Exchange2007_SP1)

    Private Sub cmdSendMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendMail.Click

        Try

            'Create new message object and set properties required to send a mail

            Dim message As EmailMessage = New EmailMessage(service)

            message.Subject = "Hello from the EWS Managed API"

            message.Body = "Now that's easy!"

            message.ToRecipients.Add("testex2007@bex2007.com")

            message.SendAndSaveCopy()

            MessageBox.Show("Email Sent!!!")

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

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

        'Add a valid EWS service end point here or user Autodiscover

        service.Url = New Uri("https://server/ews/exchange.asmx")

        'Add a valid user credentials

        service.Credentials = New WebCredentials("User", "Password", "Domain")

        'To address the SSL challenge

        ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateCertificate)

    End Sub

    Private Function ValidateCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal 

chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors) As Boolean

        'Return True to force the certificate to be accepted.

        Return True

    End Function

    Private Sub cmdCreateAppointment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles cmdCreateAppointment.Click

        Try

            'Create appointment object and set properties as required

            Dim appt As Appointment = New Appointment(service)

            appt.Subject = "Holidays"

            appt.Body = "The appointment is for holiday placeholder"

            appt.Start = New DateTime(2010, 11, 1)

            appt.End = appt.Start.AddHours(24)

            appt.IsAllDayEvent = True

            appt.LegacyFreeBusyStatus = LegacyFreeBusyStatus.OOF

            appt.Save(WellKnownFolderName.Calendar, SendInvitationsMode.SendToNone)

            MessageBox.Show("Appointment Added to Calendar")

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

End Class