您的位置：程序门 -> vb -> 基础类

可不可以写程序自动提取outlook中的附件？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

可不可以写程序自动提取outlook中的附件？[已结贴,结贴人:liuping00]

发表于：2007-03-29 17:08:03 楼主

有没有人做过？或是知道怎么实现

发表于：2007-03-30 13:36:161楼得分:20

n年前做过，msmapi有个叫getattachment的方法，可以取附件。

发表于：2007-03-30 22:54:582楼得分:30

保存outlook收件夾中的附件

funxtion saveattachfile（)
on error resume next
dim myolapp as new outlook.application
set fs = createobject（ "scripting.filesystemobject ")
if not fs.folderexists（ "c:\mail ") then fs.createfolder （ "c:\mail ")

set mynamespace = myolapp.getnamespace（ "mapi ")
set myfolder = mynamespace.getdefaultfolder（olfolderinbox)

for i = 1 to myfolder.items.count
set mymailitem = myfolder.items（i)
with mymailitem
set myattachments = mymailitem.attachments
para = myattachments.item（1).displayname
myattachments.item（1).saveasfile "c:\mail\ " + _
iif（isnull（myattachments.item（1).displayname), i, myattachments.item（1).displayname)
end with
next
msgbox "附件保存完畢,請到目錄中中查看 ", vbdefaultbutton1, "提示 "
end sub

其他资讯