100分求用公式或者lotusscript写的,两服务器指定库的复制代码.手动的.

Lotusxyz 2004-09-24 10:26:04

100分求用公式或者lotusscript写的,两服务器指定库的复制代码.手动的.
十万火急!!!

...全文

81 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

chenyg2000 2004-09-24

打赏
举报

http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/f061510bf30112ba85256ce900574c0b?OpenDocument

Lotusxyz 2004-09-24

打赏
举报

Sub Initialize
Dim s As New notessession
Dim uidb As notesdatabase
Dim firstdb As notesdatabase
Set uidb=s.currentdatabase
Set firstdb = New notesdatabase(uidb.server,"merit_firexchange.nsf")
Call firstdb.Replicate( "qyoaserver" )
Print "复制完毕！"
End Sub

结果运行时出现如下错误:
提示Source database must be on the local machine to do replication (Foaserver/SFoacert!!merit_firexchange.nsf)

大家帮我分析分析??

EANFS 2004-09-24

打赏
举报

Dim db, archiveDb As NotesDatabase
Set db = New NotesDatabase( "servername","purchase.nsf" )
Set archiveDb = db.CreateCopy( "servername","archive\purchase.nsf" )