Domino涓�浠ｇ悊瀹炵幇鍒犻櫎鏌愪竴鐢ㄦ埛鍙戦敊鐨勬墍鏈夐偖浠?- 鐧惧害鏂囧簱

棣栭〉

搴撳簱AI

骞垮満

鍘嗗彶

鏀惰棌

浜戠洏

鐭ヨ瘑搴?/div>

 

'

鍒犻櫎鏌愪竴鐢ㄦ埛鍙戦敊鐨勬墍鏈夐偖浠讹紙

Subject:

閭�浠舵爣棰橈�?/p>

From

锛氬彂浠跺湴鍧�锛?/p>

 

Sub

 Initialize

 

On

 

Error

 

GoTo

 e

 

Dim

 s 

As

 

New

 NotesSession

 

Dim

 directory 

As

 NotesDbDirectory

 

Dim

 db 

As

 NotesDatabase

 

Dim

 codedb 

As

 NotesDatabase

 

Dim

 downdb 

As

 NotesDatabase

 

Dim

 repdb 

As

 NotesDatabase

 

Dim

 query 

As

 

String

 

Dim

 docs 

As

 NotesDocumentCollection

 

Dim

 i 

As

 

Integer 

Set

 db = s.CurrentDatabase