| 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