| 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