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考勤计算系统
楼主: loadhigh

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2003-12-5 11:10 | 显示全部楼层
也就是装outlook 2000就可以避免了?对吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-12-5 12:19 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-3-5 21:14 | 显示全部楼层
以下是引用loadhigh在2003-6-4 16:57:00的发言:

上次提供了将“收件箱”里邮件导出至硬盘的代码。这次提供将邮件里的附件保存至硬盘的代码。

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的得分主题

发表于 2004-3-6 01:32 | 显示全部楼层
如果我的outlook 是自动download到个人资料夹时程序如何改写。 Thanks iceboy

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-3-6 15:11 | 显示全部楼层
lusen5s:你好! 这个版里有关于如何自动批量保存附件的代码和程序示例,也是固顶的。 loadhigh iceboy:你好! 你的问题只要将 Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox) 这句代码修改一下就可以了。 loadhigh

TA的精华主题

TA的得分主题

发表于 2004-4-10 15:44 | 显示全部楼层
这个很不错,但我不知道具体的操作.我把语句COPY过去后,但不知道存在哪了. 大侠告诉我具体一点,好吗?THANKS

TA的精华主题

TA的得分主题

发表于 2004-4-13 19:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-8-22 09:27 | 显示全部楼层
如果有病毒附件的垃圾邮件,不是也将它,下载保存了。

TA的精华主题

TA的得分主题

发表于 2004-9-24 10:31 | 显示全部楼层
还有个问题,请解决下,如何在规则向导中运用该程序。比如将该程序加载到“规则向导”中“如何处理该邮件”的模块里?这样就可以自定义,选择特定的邮件收到后,自动将该邮件的附件另存到指定文件夹中。[em02]
[此贴子已经被作者于2004-9-24 10:36:32编辑过]

TA的精华主题

TA的得分主题

发表于 2007-3-5 17:48 | 显示全部楼层

多谢了!

这个是转移收件箱的!我想转移我在outlook中自建的一个文件夹 报表 中邮件的附件到硬盘不知能否实现!

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2019-2-18 06:31 , Processed in 0.089578 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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