打开outlook, 按ALT-F11,打开microsfot visual basid-vbaProject, 工具-preferences- 确保microsoft office Object library前面打了勾。
然后,插入-模块
Sub SaveToNwsFolder(MyMail As MailItem)
Dim strID As String
Dim objNS As Outlook.NameSpace
Dim objMail As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim c As Integer
Dim save_name As String
'Place path to sav to on next line. Note that you must include the
'final backslash
Const save_path As String = "N:\settle\nws\"
strID = MyMail.EntryID
Set objNS = Application.GetNamespace("MAPI")
Set objMail = objNS.GetItemFromID(strID)
If objMail.Attachments.Count > 0 Then
For c = 1 To objMail.Attachments.Count
Set objAtt = objMail.Attachments(c)
save_name = Left(objAtt.FileName, Len(objAtt.FileName) - 4)
'save_name = save_name & Format(objMail.ReceivedTime, "_mm-dd-yyyy_hhmm")
save_name = save_name & Right(objAtt.FileName, 4)
objAtt.SaveAsFile save_path & save_name
Next
End If
Set objAtt = Nothing
Set objMail = Nothing
Set objNS = Nothing
End Sub
保存,注意要修改其中的目录名,目录要以反斜杠结尾。
然后,在outlook中创建 规则,在选择动作的时候, 选运行脚本,然后在弹出的对话框中选择刚才保存的工程模块即可。
分享到:
相关推荐
自动保存Outlook邮件的附件(利用VBA).docx
Microsoft Outlook邮箱附件自动保存.docx
outlook VBA 自动保存邮件及附件代码
如何让outlook自动保存特定发件人发来的邮件中的附件.pdf
利用VBA将outlook附件保存到本地电脑 支持 outlook 2003 2007 2010 2013
uipath自动获取outlook邮箱附件,可自动依据收件时间或者是“标题内容”进行筛选。
Outlook无法保存附件该怎么办? Outlook不能下载附件的解决办法.docx
微软网站的一个实例脚本。 保存 Outlook 中多个已选项目的附件 对于工作中需要大量保存Outlook的人,可以减少工作量。
从Outlook拖拽附件到WinForm
如何更改outlook2016文件保存位置,将原来默认保存在C盘的Outlook数据修改保存到C盘之外的其他如D盘去。
做成实例实现MFC自动给outlook附加附件,以及自动附加多个附件。可编译通过。同时因懒得建工程附带了colorcombo的控件。
每天发报表 好几个文件 发到好几个邮箱 每次选来选去比较麻烦 现在好了 一个vbs搞定 但是要安装outlook 具体参数自己修改吧
不同联系人 带附件 outlook 宏
Outlook自动配置脚本
更改默认Outlook2016 ost文件保存位置,保存到“D:\System Files\Documents\Outlook”目录下面,
Outlook2010不能上传大附件,双击本文件后重启Outlook2010即可解决Outlook2010最大附件上传限制问题。
文档说明:添加按钮,实现带上附件的全部回复功能。 文档含有详细的代码和注释,适合办公者更完善使用outlook的功能。
2:增加MailItem的AttachmentAdd事件 通过判断附件大小 小于 Mb 则保存在附件 大于 Mb则后台Post到Web或FTP服务器 并返回连接 4:将连接作为html 的超链接模式<A href "返回值">下载超大附件< A>...
Outlook Express 无法保存邮箱登录密码解决方案
解除outlook2007的打开附件限制