????? ????? ????? ???? ???????? ???? ???????? XMLHTTP WebDAV ?? Visual Basic .NET

?????? ????????? ?????? ?????????
???? ???????: 314187 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

????? ???

???? ??? ??????? ????? ????? ????? ???? ???????? ???? ??????? ???????? ?????? XMLHTTP ???? ??????? ??????? ?????????? ??????? (WebDAV) ?? Microsoft Visual Basic .NET. ????? ???????? ???????? ?? ??? "???? ?? ?????????" ?????? ??????? ???????:
  1. ????? ???? XMLHTTP.
  2. ??????? ??????? ??? ?????? XMLHTTP ???? ????? ?????? "???? ???? ???? ?????????" (URI) ????? ?????????.
  3. ???? ????? ????? ??? ??? ?? ???? ???? ???? ?????? ?????? ?? ?? ????? ?????.
  4. ???? ????? ????? ??? ???? Exchange ???????? WebDAV PUT ???????.

??????? ????

?????? ????? ???? ???????? ???? ??????? ? ???? ??????? ???????:
  1. ??? ????? Microsoft Visual Studio .NET.
  2. ?? ??????? ???? ???? ??? ???? ?? ???? ??? ???????.
  3. ??? ????? ?????? Visual Basic ? ???? ??? "????? ???? ??????".

    ?????????? ??? ????? Module1.vb.
  4. ????? ???? ??? Microsoft XML 3.0 ?? ??????? 4.0 ?? Microsoft XML. ?????? ????? ???? ??????? ???????:
    1. ?? ??????? ??????? ???? ??? ????? ????.
    2. ??? ????? ??????? "COM" ? ???? ??? v3.0 XML Microsoft ?? Microsoft XML v4.0 ?? ???? ??? ?????.
    3. ?? ???? ?????? ????? ????? ? ???? ??? ????? ????? ?????????.
    4. ???? ??? "???" ??? ????? ???? ?????? wrappers ???????? ???? ??????.
  5. ?? ???? ????????? ???????? ?????? ????????? ???????? ???????? ???????? ???????? ???????:
    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
  6. ????? ?? "TODO" ?? ????????? ???????? ?? ?? ?????? ????????? ???????? ?????? ?????? ??.
  7. ???? F5 ?????? ? ?????? ????????.
  8. ???? ?? ?? ????? ?????? ?????????? ?? ?? ??????? ???????.

?????

?????? ??? ??????? ?????? ??? WebDAV ?? ?????? ???? ???? ????? Microsoft (MSDN) ?????? ??? ?????:
http://msdn.microsoft.com/en-us/library/ms876446.aspx
?????? ??? ??????? ?????? ??? URI ????? ???? Exchange ?? ?????? ???? MSDN ??????:
http://msdn.microsoft.com/en-us/library/ms875963(EXCHG.65).aspx

???????

???? ???????: 314187 - ????? ??? ??????: 10/???? ?????/1425 - ??????: 1.3
????? ???
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Exchange 2000 Server Standard Edition
  • Microsoft XML Core Services 4.0
  • Microsoft XML Parser 3.0
????? ??????: 
kbmt kbhowto KB314187 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????314187

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com