Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
To specify the common script file, make sure you have a script file saved as a text file on your server. Simply assign the URL of your text file to the CommonScriptURL property of the ProcessDefinition object.
Dim fso As New Scripting.FileSystemObject Dim file1 As TextStream Set file1 = fso.OpenTextFile(cstPath) Dim commonscripttext As String commonscripttext = file1.ReadAll Dim Rec As New ADODB.Record Dim Conn As New ADODB.Connection Dim Stm As New ADODB.Stream With Conn .Provider = "Exoledb.datasource" .ConnectionString = wfFolder .Open End With Rec.Open pdURL, Conn, adModeReadWrite, adCreateOverwrite With Stm .Open Rec, adModeReadWrite, adOpenStreamFromRecord .Charset = "ascii" .Type = adTypeText .Position = 0 .SetEOS .WriteText commonscripttext .Position = 0 .Flush .Close End With