HOWTO: VB - Reading Delegates WebDAV Sample

Private Sub Command1_Click()    ‘=====================================================    ‘DoXML takes the href to a document    ‘and returns the MAPI PR_ENTRYID property expressed in    ‘a hexadecimal string format such as is used by CDO 1.21    ‘Function DoXML(strHref)    Dim objX    Dim objXMLdoc    Dim objNode    Dim strR As String    Dim retXML As String        Dim parseStringtemp As String    Dim parseString As String   …

1

Howto: VB - An example to create a public folder with storage limit settings.

In this example, the following properties are set during the folder creation.     outlookfolderclass     contentclass     The warning limit in KB     Prohibit Post at (KB).     Maximum item Size (KB)     addressbookdisplayname     isreadonly     ishidden  When reading and setting certain properties, it’s necessary to use the exchange admin path.  This path  provides special admin privileges.  An Exchange Admin login must…

2

HOWTO: Write a file using VBScript

 ‘——————————————————————————-‘ WriteFileText – Used to write an item to a file in a folder.’ Parameters:’   sFile – The file to read’ ‘ Returns:’   A string containing the content of the file.’——————————————————————————-Function WriteFileText(sFilePath, sText)    Dim objFSO ‘As FileSystemObject    Dim objTextFile ‘As Object        Const ForReading = 1    Const ForWriting = 2    Const ForAppending = 8       …

7

Howto: VBScript - Read a file

‘———————————————————————————–‘ ReadFileText – Used to read  a file in a folder.’ Parameters:’   sFile – The file to read’ ‘ Returns:’   A string containing the content of the file.’———————————————————————————–Function ReadFileText (sFile)    Dim objFSO ‘As FileSystemObject    dim oTS    dim sText         Set objFSO = CreateObject(“Scripting.FileSystemObject”)     Set oTS = objFSO.OpenTextFile(sFile)    sText = oTS.ReadAll     oTS.close    set…

4

Howto: WebDAV PROPPATCH using VBScript

‘The example below demonstrates how to do a WebDAV PROPPATCH.’The sample changes the subject of one message in the inbox. ‘ Note: You cannot specify a condition with a PROPPATCH; ‘ Note: Understand how the Depth header affects patching and you should understand how its used          before using any other setting than 0. dim sHREFdim…

0

Howto: WebDAV SEARCH with range headers using VBScript

 ‘The example below demonstrates how to do a WebDAV SEARCH with range headers. Public Function GetItemListXML(sHREF, sUserName, sPassword, sDepth)    Dim sQuery ‘ As String    Dim sText ‘As String        sQuery = “<?xml version=’1.0′?>” & _       “<g:searchrequest xmlns:g=’DAV:’>” & _       “<g:sql>SELECT “”DAV:displayname””, ” & _       “””DAV:href””  ” & _       “FROM SCOPE(‘SHALLOW TRAVERSAL OF “”” & sHREF…

0

Howto: WebDAV SEARCH using VBScript

‘The example below demonstrates how to do a WebDAV SEARCH  dim strExchangeURL dim strApptStartDate dim strUser dim strPasswordstrUser  = “Administrator”strPassword = “test” strExchangeURL = “http://myexserver/exchange/Administrator/Calendar/”strApptStartDate = “2004-04-09T15:00:00Z”Dim sRet strQuery = “<?xml version=’1.0′?>” & _”<g:searchrequest xmlns:g=’DAV:’ >” & _”<g:sql>SELECT  ” & vbCrLf & _        “””urn:schemas:calendar:alldayevent””, ” & vbCrLf & _        “””urn:schemas:calendar:duration””, ” & vbCrLf & _       …

0