[原创]如何将图片写和读到ＲＴＦ域中

buglary36

Write:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )

Read :
Set item= doc.GetFirstItem( "Body" )
itemType = item.Type
flag = doc.HasEmbedded
If (itemType=RICHTEXT And item.values<> "" And flag=True) Then
Forall o In item.EmbeddedObjects
Select Case o.Type
Case EMBED_ATTACHMENT:
filename =AttachPath+ MemoID+"_"+DocNo+"_"+o.Name
Call o.ExtractFile(filename)
Call ToSQL_Attach(MemoID,o.name)
End Select
End Forall
End If

neil_1

Wirte....抄帮助～唉～