Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
To copy an item from a folder, use the CopyRecord method on an ADO Record object of that item you want to copy.
If you use this method on a folder, any subfolders or items are also copied.
Dim Rec Dim strURL Dim DomainName Dim strLocalPath Dim strDestination 'specify your own domain DomainName = "microsoft.com" 'specify a URL to the folder or item to copy 'in this example, a folder and its items are copied 'into an existing reports folder in public folders strLocalPath = "public folders/sales" strDestination = "public folders/reports/sales" Set Rec = CreateObject("ADODB.Record") strURL = "file://./backofficestorage/" & DomainName & "/" & strLocalPath Rec.Open strURL Rec.CopyRecord ,"file://./backofficestorage/" & DomainName & "/" strDestination Rec.Close