I want to modify the details (like subject, description, st. date, end date etc.) of a particular appointment from SQL Server 2005 on the basis of ID. As now I am writing this code but this would update first appointment in Outlook 2007.
Code:
Dim sQuery As String
oXMLHttp.open(" PROPPATCH", stURI, False, Me.UserNameAlia s, Me.Password)
sQuery = "<?xml version='1.0'?> " & _
"<a:propertyupd ate xmlns:a='DAV:' xmlns:m='urn:sc hemas:mailheade r:' xmlns:cal=""urn :schemas:calend ar:"" " & _
"xmlns:dt='urn: uuid:c2f41010-65b3-11d1-a29f-00aa00c14882/' " & _
"xmlns:mail='ur n:schemas:httpm ail:'> " & _
"<a:set>" & _
"<a:prop>" & _
"<mail:subject> Appointment with PM regarding dismissal of Atul </mail:subject>" & _
"</a:prop>" & _
"</a:set>" & _
"</a:propertyupdat e>"
oXMLHttp.setReq uestHeader("Con tent-Type", "text/xml")
oXMLHttp.setReq uestHeader("Bri ef", "t")
' Send the query.
oXMLHttp.send(s Query)
thanks in advance.
Atul Saxena
Code:
Dim sQuery As String
oXMLHttp.open(" PROPPATCH", stURI, False, Me.UserNameAlia s, Me.Password)
sQuery = "<?xml version='1.0'?> " & _
"<a:propertyupd ate xmlns:a='DAV:' xmlns:m='urn:sc hemas:mailheade r:' xmlns:cal=""urn :schemas:calend ar:"" " & _
"xmlns:dt='urn: uuid:c2f41010-65b3-11d1-a29f-00aa00c14882/' " & _
"xmlns:mail='ur n:schemas:httpm ail:'> " & _
"<a:set>" & _
"<a:prop>" & _
"<mail:subject> Appointment with PM regarding dismissal of Atul </mail:subject>" & _
"</a:prop>" & _
"</a:set>" & _
"</a:propertyupdat e>"
oXMLHttp.setReq uestHeader("Con tent-Type", "text/xml")
oXMLHttp.setReq uestHeader("Bri ef", "t")
' Send the query.
oXMLHttp.send(s Query)
thanks in advance.
Atul Saxena
Comment