如何自动保存以日期命名的附件到指定的文件夹？

lgcmeli

如何定时自动保存以日期命名的附件到指定的文件夹中？ 我已经从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

henrry

sTime = Format(Mi.ReceivedTime, "yyyy-mm-dd hh/mm/ss")

myAttachments.Item(1).SaveAsFile "C:\指定文件夹\" +sTime+ IIf(IsNull(myAttachments.Item(1).DisplayName), i, myAttachments.Item(1).DisplayName)

lgcmeli

谢谢老兄。我来研究一下。呵呵。

手放开以后

想问下网络路径是不是也可以呢？