cs结构下打开附件会弹出查看、启动、拆离窗口,有人知道怎么对这个窗口的程序进行编程吗?

venfy 2005-03-04 11:11:56
如题
...全文
183 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
venfy 2005-03-30
  • 打赏
  • 举报
回复
不明白。没人回叫我怎么给分
wbx007 2005-03-29
  • 打赏
  • 举报
回复
你用进程搜索一下
因为这里是涉及到进程的api
你像编码要会用vb修改器,或别的语言也可以
luobing1972 2005-03-29
  • 打赏
  • 举报
回复

venfy 2005-03-23
  • 打赏
  • 举报
回复
这么久都没人会吗?
win api,不会吧?那那个默认打开附件时的窗口的api是写在哪里的呀?
reload 2005-03-12
  • 打赏
  • 举报
回复
这么简单都不会,建议你马上到我这里来学win api
venfy 2005-03-11
  • 打赏
  • 举报
回复
我顶
hanwenjuan3 2005-03-11
  • 打赏
  • 举报
回复
帮忙顶!
venfy 2005-03-07
  • 打赏
  • 举报
回复
对附件打开拆离下载到本地我会呀,问题是默认那个附件查看和启动的窗口,我想在启动时候加提示说文件当前打开是保存在临时目录的,请不要直接在上面直接修改的提示
chapel 2005-03-04
  • 打赏
  • 举报
回复
启动:
首先,在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)
chapel 2005-03-04
  • 打赏
  • 举报
回复
保存:
取得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

536

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧