透過Domino COM實現Web的痕跡保留設計思路 (轉)

透過Domino COM實現Web的痕跡保留設計思路 (轉)[@more@]

總體思路：

實現步驟：
1，客戶端註冊NOTES COM。（regsvr32 c:lotusnotesOBJ.TLB）regsvr32  c:lotusnotesnlsxbe.dll
2，在公文中，儲存一些已經定製好的公文模板。已供新建公文時使用。
3，表單上加入將附件從拆離到本地，然後起用。(Word的宏性設為中)
4，公文模板中，WORD的文件的退出事件中加入VBA程式碼，實現到伺服器。

注：為避免啟動COM時出現提示口令輸入框，可以透過製作一個DLL來避開。(參考：API例子的)

相關程式碼：
 表單上的VBScript程式碼：

 表單上的按鈕程式碼：

Word模板上的VBA程式碼：
Private Sub Document_Close()
  ActiveDocument.Save
  Dim s, dir, db, doc, eo, no, word, worddoc
  Set s = CreateObject("Lotus.NotesSession")
  Call s.Initialize
  Set db = s.GetDatabase("sh_server", "intranetwebtemp.nsf")
  Set doc = db.GetDocumentByUNID("C47E90193C0E4D3248256C780006A73E")
  Set eo = doc.GetAttachment("普通公文.doc")
  Call eo.Remove
  Set ritem = doc.GetFirstItem("rtfAttachment")
  Set no = ritem.EmbedObject(1454, "", "C:Temptest.doc")
  Call doc.Save(True, False)
  MsgBox db.FileName + " 檔案已上傳至伺服器！& " + db.Server, , "Databases on " + db.Server
End Sub