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

jacklg

也就是装outlook 2000就可以避免了？对吗？

loadhigh

是的。

lusen5s

以下是引用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

如果我要另存到指定的网络硬盘怎么办﹐如果有些信是有附件﹐有些是没有附件。

iceboy

如果我的outlook 是自动download到个人资料夹时程序如何改写。 Thanks iceboy

loadhigh

lusen5s：你好! 这个版里有关于如何自动批量保存附件的代码和程序示例，也是固顶的。 loadhigh iceboy：你好! 你的问题只要将 Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox) 这句代码修改一下就可以了。 loadhigh

pinda

这个很不错,但我不知道具体的操作.我把语句COPY过去后,但不知道存在哪了. 大侠告诉我具体一点,好吗?THANKS

jacklg

saveasfile->地址

iyfish

如果有病毒附件的垃圾邮件，不是也将它，下载保存了。

DC.Direct

还有个问题，请解决下，如何在规则向导中运用该程序。比如将该程序加载到“规则向导”中“如何处理该邮件”的模块里？这样就可以自定义，选择特定的邮件收到后，自动将该邮件的附件另存到指定文件夹中。[em02]

[此贴子已经被作者于2004-9-24 10:36:32编辑过]

lj1226189

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