|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
如何定时自动保存以日期命名的附件到指定的文件夹中?
我已经从EXCELHOME上拷贝到如下保存收件箱里的全部邮件的附件到指定文件夹,但是不知如何实现自动保存有特定名称的附件到指定的文件夹?
请高手帮助小弟一把啊。谢谢。拜托了! Sub 自动保存附件() 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 |
|