Call ctxDump.getRichTextItem(doc,"Body")
if ses.platform = "Macintosh" then
 path = strLeft(ndb.FilePath,":") + ":" ' default place(?) where it stores things without path (exported to in export sample)
 Else
 path = Environ("TEMP")
 if path<>"" then path = path + "\" ' it's a W32 client
End if
Dim img As rtGraphic
set rtp = new rTextParagraph("JPEG:" &Chr(9))
ctxDump.add rtp
' JPEG
Set img = New rtGraphic(path &"flagDE.jpg") ' you may replace it with your image names, or you may run at first export sample
ctxDump.add img
' GIFS
set rtp = new rTextParagraph ("GIFS:" &Chr(9))
rtp.hasParagraphBreak = True
ctxDump.add rtp
Set img = New rtGraphic(path &"flagDE.gif")
ctxDump.add img
Set img = New rtGraphic("")
img.importFromFile path &"flagEN.gif" ' alternative way
ctxDump.add img
Set img = New rtGraphic(path &"flagIT.gif")
ctxDump.add img
|