Module Module1

    Sub Main()
        ' To use MSXML 3.0, use the following Dim statements:
        Dim xmlReq As MSXML2.XMLHTTP30 = New MSXML2.XMLHTTP30()

        ' To use MSXML 4.0, use the following Dim statements:
        'Dim xmlReq As MSXML2.XMLHTTP40 = New MSXML2.XMLHTTP40()

        ' TODO: Replace with your Sender and Recipient information.
        Dim strSenderAlias As String = "UserAlias"
        Dim strFrom As String = "UserAlias@microsoft.com"
        Dim strTo As String = "to@microsoft.com"
        Dim strSubject As String = "Send Using Webdav"
        Dim strBody As String = "Hello World"

        Dim sUri As String
        'TODO: Replace ExchServer with the name of your Exchange Server.
        sUri = "http://ExchServer/Exchange" & strSenderAlias & "/##DavMailSubmissionURI##"

        'TODO: Replace with the domain, the username, and the password for the sender. 
        xmlReq.open("PUT", sUri, False, "UserDomain\UserAlias", "UserPassword")

        Dim mySentTime As DateTime = New DateTime()
        Dim strReq As String
        strReq = "From: " & strFrom & vbNewLine & _
         "To: " & strTo & vbNewLine & _
         "Subject: " & strSubject & vbNewLine & _
         "Date: " & DateTime.Today.Now & vbNewLine & _
         "X-Mailer: My DAV mailer" & vbNewLine & _
         "MIME-Version: 1.0" & vbNewLine & _
         "Content-Type: text/plain" & vbNewLine & _
         "Charset = ""iso-8859-1""" & vbNewLine & _
         "Content-Transfer-Encoding: 7bit" & vbNewLine & vbNewLine & _
         strBody

        xmlReq.setRequestHeader("Translate", "f")
        xmlReq.setRequestHeader("Content-Type", "message/rfc822")
        xmlReq.setRequestHeader("Content-Length", "" & strReq.Length)

        xmlReq.send(strReq)

        Console.WriteLine(xmlReq.status)
        Console.WriteLine(xmlReq.statusText)
        Console.WriteLine(xmlReq.responseText)

        xmlReq = Nothing
    End Sub

End Module