Public Function AddToCalendar(ByVal MtgDate As Date, ByVal Loc As String, ByVal MtgName As String, ByVal InstrName As String)


        ' Variables.
        Dim oRequest As HttpWebRequest
        Dim oResponse As WebResponse
        Dim MyCredentialCache As CredentialCache
        Dim oRequestStream As System.IO.Stream
        Dim sb As StringBuilder = New StringBuilder
        Dim strCalendarUri As String = "http://ServerName/public/PublicCalendar/"

        Dim apptStartTime As String = MtgDate.ToString("yyyy-MM-ddTHH:mm:ss")

        Dim apptEndTime As String = MtgDate.ToString("yyyy-MM-ddTHH:mm:ss")

        Dim strMailbox As String = String.Empty
        strMailbox = "skallem@gosystemsinc.com"

            ' Appointment item.
        Dim strApptItem As String = Guid.NewGuid().ToString() + ".eml"

            ' User name and password of appointment creator.
        Dim strUserName As String = "Username"
        Dim strPassword As String = "Password"

        ' XML namespace info for the WebDAV request.
        Dim strXMLNSInfo As String = "xmlns:g=""DAV:"" " _
                                  & "xmlns:e=""http://schemas.microsoft.com/exchange/"" " _
                                  & "xmlns:mapi=""http://schemas.microsoft.com/mapi/"" " _
                                  & "xmlns:mapit=""http://schemas.microsoft.com/mapi/proptag/"" " _
                                  & "xmlns:x=""xml:"" xmlns:cal=""urn:schemas:calendar:"" " _
                                  & "xmlns:dt=""urn:uuid:c2f41010-65b3-11d1-a29f-00aa00c14882/"" " _
                                  & "xmlns:header=""urn:schemas:mailheader:"" " _
                                  & "xmlns:mail=""urn:schemas:httpmail:"""

        ' Set the appointment item properties.  To create an all-day meeting,
        ' set the dtstart/dtend range for 24 hours or more and set the alldayevent property
        ' to 1.  See the documentation on the properties
        ' in the urn:schemas:calendar: namespace for more information.
        Dim strCalInfo As String = "<cal:location>" & Loc & "</cal:location>" _
                                & "<cal:dtstart dt:dt=""dateTime.tz"">" _
                                & apptStartTime _
                                & "</cal:dtstart>" _
                                & "<cal:dtend dt:dt=""dateTime.tz"">" _
                                & apptEndTime _
                                & "</cal:dtend>" _
                                & "<cal:instancetype dt:dt=""int"">0</cal:instancetype>" _
                                & "<cal:busystatus>BUSY</cal:busystatus>" _
                                & "<cal:meetingstatus>CONFIRMED</cal:meetingstatus>" _
                                & "<cal:alldayevent dt:dt=""boolean"">0</cal:alldayevent>" _
                                & "<cal:responserequested dt:dt=""boolean"">1</cal:responserequested>" _
                                  & "<cal:reminderoffset dt:dt=""int"">900</cal:reminderoffset>"

        ' Set the required attendee of the appointment.
        Dim strHeaderInfo As String = "<header:to>" + strMailbox + "</header:to>"

        ' Set the subject of the appointment.
        Dim strMailInfo As String = "<mail:subject>" _
                                 & MtgName _
                                 & "</mail:subject>" _
                                 & "<mail:htmldescription>" _
                                 & "Location: " _
                                 & Loc _
                                 & "</mail:htmldescription>"

        ' Build the XML body of the HTTP request.
        Dim strApptRequest As String = "<?xml version=""1.0""?>" _
                                & "<g:propertyupdate " + strXMLNSInfo + ">" _
                                & "<g:set><g:prop>" _
                                & "<g:contentclass>urn:content-classes:appointment</g:contentclass>" _
                                & "<e:outlookmessageclass>IPM.Appointment</e:outlookmessageclass>" _
                                & strMailInfo _
                                & strCalInfo _
                                & "<mapi:finvited dt:dt=""boolean"">1</mapi:finvited>" _
                                & "</g:prop></g:set>" _
                                & "</g:propertyupdate>"

        ' Create a new CredentialCache object and fill it with the network
        ' credentials required to access the server.
            MyCredentialCache = new System.Net.CredentialCache()
        MyCredentialCache.Add(New System.Uri(strCalendarUri), _
            "NTLM", New System.Net.NetworkCredential(strUserName, strPassword))

        ' Create the HttpWebRequest object.
        oRequest = HttpWebRequest.Create(strCalendarUri + strApptItem)

        
        ' Add the network credentials to the request.
        oRequest.Credentials = MyCredentialCache

        ' Specify the method.
        oRequest.Method = "POST"

        ' Set the content header length.  This must be
        ' done before writing data to the request stream.
        oRequest.ContentLength = strApptRequest.Length

        ' Get a reference to the request stream.
        oRequestStream = oRequest.GetRequestStream()

        ' Write the message body to the request stream.
        oRequestStream.Write(Encoding.UTF8.GetBytes(strApptRequest), 0, strApptRequest.Length)

        ' Close the Stream object to release the connection
        ' for further use.
        oRequestStream.Close()

        ' Set the content type header.
        oRequest.ContentType = "text/xml"

        '' Create the appointment in the Calendar folder of the
        ' user's mailbox.
        oResponse = oRequest.GetResponse()

        ' Clean up.
        oResponse.Close()

        
    End Function

Select allOpen in new window