启动:
首先,在declaration里面定义
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"(_
ByVal hwnd as Long_,
Byval lpOperation as String_,
Byval lpFile as string_,
Byval lpParameters as String_,
Byval lpDirectory as String_,
Byval nShowCmd as Long) As Long
使用该函数:
dim filename as string
dim filepath as string
dim hwnd as long
dim obs as variant
dim ob as variant
dim rtitem as variant
filepath = "C:\Temp\"
set rtitem = doc.getfirstitem("Attachement")
obs = rtitem.EmbeddedObjects
set ob = obs(0)
filename = ob.source
call ob.extractfile(filepath&filename)
Call ShellExecute(hwnd,"Open",filepath&filename,"","",1)
保存:
取得rtf域item,
obs = item.EmbeddedObjects
forall ob in obs
if ob.type = EMBED_ATACHEMENT THEN
FileName = ob.Source
call ob.ob.ExtractFiule(FilePath&FileName)
end if
end forall