將物理路徑下的附件存到文檔的RTF域當中

 Sub Initialize()
 On Error GoTo a
 
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.Currentdatabase
 Dim doc As NotesDocument
 Set doc = New NotesDocument( db )
 Dim rtitem As NotesRichTextItem
 Set rtitem = New NotesRichTextItem( doc, "RTFBody" ) '這裏的RTFBody是rtf域名，自己任意取名
 Dim emobject As NotesEmbeddedObject
 '將物理路徑下的附件掛到rtf域當中
 Set emobject=rtitem.EmbedObject(EMBED_ATTACHMENT,"","D:\圖片1.png") 
 
 Call doc.Save(true,true)
 
 Exit Sub
a:
 MsgBox "錯誤在代理agent_attachment的第" & Erl & "行，描述：--" & error
 
End Sub