A WebDAV Sample: Creating Tasks
To show you how to use WebDAV in a little more detail, the following code creates a task programmatically using WebDAV. (See Figure 16-8.) To learn how to create, modify, or delete a contact using WebDAV, see the Microsoft Knowledge Base article 296126.
Figure 16-8: Creating a task item via WebDAV and XMLHTTP
strPropSet = "<?xml version='1.0'?>" _
& "<d:propertyupdate xmlns:d='DAV:' " _
& "xmlns:e='http://schemas.microsoft.com/exchange/' " _
& "xmlns:b='urn:uuid:c2f41010-65b3-11d1-a29f-00aa00c14882/' " _
& "xmlns:f='urn:schemas:mailheader:' " _
& "xmlns:g='urn:schemas:httpmail:' " _
& "xmlns:h='http://schemas.microsoft.com/mapi/id/" _
& "{00062003-0000-0000-C000-000000000046}/'><d:set><d:prop>" _
& "<d:contentclass>urn:content-classes:task</d:contentclass>" _
& "<e:outlookmessageclass>IPM.Task</e:outlookmessageclass>" _
& "<f:subject>This is a test-task</f:subject>" _
& "<g:textdescription>Body-Text goes here</g:textdescription>" _
& "<h:0x00008102 b:dt='float'>.25</h:0x00008102>" _
& "<h:0x00008101 b:dt='int'>1</h:0x00008101>" _
& "</d:prop></d:set></d:propertyupdate>"
'8102 is % Task Complete
'8101 is Task Status - Not started, In progress, etc.
With New XMLHTTP
strURL = "http://server/Exchange/user/tasks/testtask.eml"
.open "PROPPATCH", strURL, False, "username", "userpassword"
.setRequestHeader "Content-Type:", "text/xml"
.setRequestHeader "Translate", "f"
.send strPropSet
If Not (.Status >= 200 And .Status < 300) Then
MsgBox .Status & " " & .statusText
End If
End With
لطفا منتظر باشید ...
