道
道长
Unregistered / Unconfirmed
GUEST, unregistred user!
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/e2k3/e2k3/_exch2k_deleting_a_contact_webdav.asp
我的代码如下:
<script language="vbscript">
' Declare variables to be used.
Dim objRequest 'As MSXML.XMLHTTPRequest
Dim strURL 'As String
' Specify the URL of the object to be deleted.
strURL = "http://bay10.oe.hotmail.com/cgi-bin/hmdata/wangdg78@hotmail.com/folders/ACTIVE/MSG1066726698.16"
' Create an HTTP request object.
Set objRequest = CreateObject("Microsoft.xmlhttp")
' Open the object, assigning it a method.
objRequest.open "delete", strURL, False, "aaaaaaa", "bbbbbbb"
' Send the request, using the XMLdo
cument as the body.
objRequest.send
'Display the results.
If (objRequest.Status >= 200 And objRequest.Status < 300) then
MsgBox "Success! " &
"Results = " &
objRequest.Status &
_
": " &
objRequest.statusText
else
If objRequest.Status = 401 then
MsgBox "Youdo
n't have permission to delete the contact. " &
_
"Please check your permissions on this item."
else
If (objRequest.Status >= 500 And objRequest.Status < 600) then
MsgBox "An error occurred on the server."
else
MsgBox "Request Failed. Results = " &
objRequest.Status &
_
": " &
objRequest.statusText
End If
Set objRequest = Nothing
</script>
目的是删除hotmail中的一邮件,返回 405:Method Not Allowed
我在delphi中调用delete方法返回结果相同!各位DFW,请问如何删除hotmail中的邮件
收取我已经实现,参见http://delphibbs.com/delphibbs/dispq.asp?lid=2225205
我的代码如下:
<script language="vbscript">
' Declare variables to be used.
Dim objRequest 'As MSXML.XMLHTTPRequest
Dim strURL 'As String
' Specify the URL of the object to be deleted.
strURL = "http://bay10.oe.hotmail.com/cgi-bin/hmdata/wangdg78@hotmail.com/folders/ACTIVE/MSG1066726698.16"
' Create an HTTP request object.
Set objRequest = CreateObject("Microsoft.xmlhttp")
' Open the object, assigning it a method.
objRequest.open "delete", strURL, False, "aaaaaaa", "bbbbbbb"
' Send the request, using the XMLdo
cument as the body.
objRequest.send
'Display the results.
If (objRequest.Status >= 200 And objRequest.Status < 300) then
MsgBox "Success! " &
"Results = " &
objRequest.Status &
_
": " &
objRequest.statusText
else
If objRequest.Status = 401 then
MsgBox "Youdo
n't have permission to delete the contact. " &
_
"Please check your permissions on this item."
else
If (objRequest.Status >= 500 And objRequest.Status < 600) then
MsgBox "An error occurred on the server."
else
MsgBox "Request Failed. Results = " &
objRequest.Status &
_
": " &
objRequest.statusText
End If
Set objRequest = Nothing
</script>
目的是删除hotmail中的一邮件,返回 405:Method Not Allowed
我在delphi中调用delete方法返回结果相同!各位DFW,请问如何删除hotmail中的邮件
收取我已经实现,参见http://delphibbs.com/delphibbs/dispq.asp?lid=2225205