66.142.0.142/66.142.0.142.tar/66.142.0.142/tlcTest.aspx.vb

Text File | 2014-11-01 | 6KB | 149 lines

Imports AspNetMaker7_tfpssnet

Partial Class tlcTest
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ' Variables.
        Dim PUTRequest As System.Net.HttpWebRequest
        Dim PUTResponse As System.Net.HttpWebResponse
        Dim MOVERequest As System.Net.HttpWebRequest
        Dim MOVEResponse As System.Net.HttpWebResponse
        Dim MyCredentialCache As System.Net.CredentialCache
        Dim strMailboxURI As String
        Dim strSubURI As String
        Dim strTempURI As String
        Dim strServer As String
        Dim strPassword As String
        Dim strDomain As String
        Dim strAlias As String
        Dim strTo As String
        Dim strSubject As String
        Dim strText As String
        Dim strBody As String
        Dim PUTRequestStream As System.IO.Stream
        Dim bytes() As Byte

        Try
            ' Initialize variables.
            strServer = "server6"
            strPassword = "production88"
            strDomain = "BUSINESS"
            strAlias = "productionservices"
            strTo = "[e-mail]"
            strSubject = "WebDAV message test."
            strText = "This message was sent using WebDAV."

            ' Build the mailbox URI.
            strMailboxURI = "http://" & strServer & "/exchange/" & strAlias

            ' Build the submission URI for the message.  If Secure
            ' Sockets Layer (SSL) is set up on the server, use
            ' "https://" instead of "http://".
            strSubURI = "http://" & strServer & "/exchange/" & strAlias _
               & "/##DavMailSubmissionURI##/"

            ' Build the temporary URI for the message. If SSL is set
            ' up on the server, use "https://" instead of "http://".
            strTempURI = "http://" & strServer & "/exchange/" & strAlias & _
               "/drafts/" & strSubject & ".eml"

            ' Construct the RFC 822 formatted body of the PUT request.
            ' Note: If the From: header is included here,
            ' the MOVE method request will return a
            ' 403 (Forbidden) status. The From address will
            ' be generated by the Exchange server.
            strBody = "To: " & strTo & vbNewLine & _
               "Subject: " & strSubject & vbNewLine & _
               "Date: " & System.DateTime.Now & _
               "X-Mailer: test mailer" & vbNewLine & _
               "MIME-Version: 1.0" & vbNewLine & _
               "Content-Type: text/plain;" & vbNewLine & _
               "Charset = ""iso-8859-1""" & vbNewLine & _
               "Content-Transfer-Encoding: 7bit" & vbNewLine & _
               vbNewLine & strText

            ' 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(strMailboxURI), _
               "NTLM", _
               New System.Net.NetworkCredential(strAlias, strPassword, strDomain) _
               )

            ' Create the PUT HttpWebRequest object.
            PUTRequest = CType(System.Net.WebRequest.Create(strTempURI),  _
               System.Net.HttpWebRequest)

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

            ' Specify the PUT method.
            PUTRequest.Method = "PUT"

            ' Encode the body using UTF-8.
            bytes = System.Text.Encoding.UTF8.GetBytes(strBody)

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

            ' Get a reference to the request stream.
            PUTRequestStream = PUTRequest.GetRequestStream()

            ' Write the message body to the request stream.
            PUTRequestStream.Write(bytes, 0, bytes.Length)

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

            ' Set the Content-Type header to the RFC 822 message format.
            PUTRequest.ContentType = "message/rfc822"

            ' PUT the message in the Drafts folder of the
            ' sender's mailbox.
            PUTResponse = CType(PUTRequest.GetResponse(), System.Net.HttpWebResponse)

            Console.WriteLine("Message successfully PUT to " & strTempURI)
            Label1.Text = "Message successfully PUT to " & strTempURI & vbCrLf

            ' Create the MOVE HttpWebRequest object.
            MOVERequest = CType(System.Net.WebRequest.Create(strTempURI),  _
               System.Net.HttpWebRequest)

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

            ' Specify the MOVE method.
            MOVERequest.Method = "MOVE"

            ' Set the Destination header to the
            ' mail submission URI.
            MOVERequest.Headers.Add("Destination", strSubURI)

            ' Send the message by moving it from the Drafts folder of the
            ' sender's mailbox to the mail submission URI.
            MOVEResponse = CType(MOVERequest.GetResponse(), System.Net.HttpWebResponse)

            Console.WriteLine("Message successfully sent to " & strTo)
            Label1.Text = Label1.Text & "Message successfully sent to " & strTo & vbCrLf

            ' Clean up.
            PUTResponse.Close()
            MOVEResponse.Close()

        Catch ex As Exception

            ' Catch any exceptions. Any error codes from the PUT
            ' or MOVE method requests on the server will be caught
            ' here, also.
            Console.WriteLine(ex.Message)

        End Try

    End Sub

End Class