富域插入圖片和附件
一 CS 下给 RTF 域插入图片(非附件形式)
'我要的效果是在当前打开的文档中插入一张图片,并打印。不需要用户自己去选择图片,也不能让用户去修改 RTF 字段
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument, readuidoc As NotesUIDocument
Dim doc As Notesocument
Dim session As New NotesSession
Set uidoc = ws.CurrentDocument
'这种方法也可以,但是 RTF 域必须是编辑状态
'uidoc.GotoField("aa")
'Call uidoc.Import("JPEG Image", "C:\aa.jpg")
'uidoc.EditMode = False
’我的方法
Set doc = uidoc.Document
'先保存当前文档
uidoc.Save
'置为阅读模式
uidoc.EditMode=False
'在后台文档中添加 RTF 的图片
Call EmbedPictureIntoRichText(doc, "C:a.jpg")
’在 CS 下以阅读模式打开新的 UI 文档实例
Set readuidoc = ws.EditDocument(False, doc,True,"", True,True )
'关闭原来的 UI 文档
uidoc.Close
'打印
readuidoc.Print
End Sub
Function EmbedPictureIntoRichText(doc As NotesDocument, strFilePath As String) As Boolean
On Error Goto errorHandle
EmbedPictureIntoRichText = False
Dim session As New NotesSession
Dim db As NotesDatabase
Dim body As NotesMIMEEntity
Dim header As NotesMIMEHeader
Dim child As NotesMIMEEntity
Dim stream As NotesStream
Dim fileFormat As String
Dim rtitemA As NotesRichTextItem