ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 11085|回复: 25

提供将邮件里的附件保存至硬盘的代码。

[复制链接]

TA的精华主题

TA的得分主题

发表于 2003-6-4 16:57 | 显示全部楼层 |阅读模式
上次提供了将“收件箱”里邮件导出至硬盘的代码。这次提供将邮件里的附件保存至硬盘的代码。 Sub Exprot_Mail_Attachments() On Error Resume Next Dim myolapp As New Outlook.Application 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 myAttachments.Item(1).SaveAsFile "C:\电子邮件\" + IIf(IsNull(myAttachments.Item(1).DisplayName), i, myAttachments.Item(1).DisplayName) End With Next End Sub

TA的精华主题

TA的得分主题

发表于 2003-6-5 00:55 | 显示全部楼层
下载了,在运行时老是提示有程序试图访问outlook,要我确定

TA的精华主题

TA的得分主题

发表于 2003-6-5 05:45 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2003-7-29 19:37 | 显示全部楼层
以下是引用winak在2003-6-5 0:55:00的发言: 下载了,在运行时老是提示有程序试图访问outlook,要我确定
这个实在太麻烦,能把它去掉就好了~

TA的精华主题

TA的得分主题

发表于 2003-8-28 08:02 | 显示全部楼层
为什么我将代码copy 到 excel 里之后,无法运行??? 初学者,请多多指教..........

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-9-30 16:44 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2003-10-18 08:40 | 显示全部楼层
好像用不着这么麻烦吧? 如果OUTLOOK中存在附件,直接右键单击,然后保存即可 有必要自己写程序嘛?

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-10-18 14:10 | 显示全部楼层
以下是引用zhhlucky在2003-10-18 8:40:00的发言: 好像用不着这么麻烦吧? 如果OUTLOOK中存在附件,直接右键单击,然后保存即可 有必要自己写程序嘛?
这是批量操作。

TA的精华主题

TA的得分主题

发表于 2003-11-29 12:30 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-12-4 12:58 | 显示全部楼层
office xp里对地址簿和发送邮件加强了控制---防止邮件木马程序,主要还是出于“牺牲灵活性,保证安全性”的考虑。所以不少用outlook 2002的朋友会遇到麻烦。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-1-22 16:15 , Processed in 0.115697 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表