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: Make XML returned from a propfind easier to read

Here is a sample to reformat XML returned from WebDAV PROPFINDs to make it a little easier to read. ‘  ReformXML – reformats the XML to be more easily readablePrivate Function ReformXML(sOriginalXML)    Dim sXML As String    sXML = sOriginalXML    sXML = Replace(sXML, “<“, (vbCrLf & “<“))    sXML = Replace(sXML, “/>”, (“/>” & vbCrLf))    sXML =…

0