当前位置：首页 → 问答吧 → 提供将邮件里的附件保存至硬盘的代码。

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

时间：2003-06-04

来源：互联网

上次提供了将“收件箱”里邮件导出至硬盘的代码。这次提供将邮件里的附件保存至硬盘的代码。Sub Exprot_Mail_Attachments()On Error Resume NextDim myolapp As New Outlook.ApplicationSet myNameSpace = myolapp.GetNamespace("MAPI")Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox)For i = 1 To myfolder.Items.CountSet mymailitem = myfolder.Items(i)With mymailitemSet myAttachments = mymailitem.AttachmentsmyAttachments.Item(1).SaveAsFile "C:\电子邮件\" + IIf(IsNull(myAttachments.Item(1).DisplayName), i, myAttachments.Item(1).DisplayName)End WithNextEnd Sub

作者: loadhigh 发布时间: 2003-06-04

下载了，在运行时老是提示有程序试图访问outlook，要我确定

作者: winak 发布时间: 2003-06-05

谢谢！

作者: DC.Direct 发布时间: 2003-06-05

引用:

以下是引用winak在2003-6-5 0:55:00的发言：下载了，在运行时老是提示有程序试图访问outlook，要我确定

这个实在太麻烦,能把它去掉就好了~

作者: jacklg 发布时间: 2003-07-29

为什么我将代码copy 到 excel 里之后，无法运行？？？初学者,请多多指教..........

作者: bainiangud 发布时间: 2003-08-28

你可能没有引用outlook对象。

作者: loadhigh 发布时间: 2003-09-30

好像用不着这么麻烦吧? 如果OUTLOOK中存在附件,直接右键单击,然后保存即可有必要自己写程序嘛?

作者: zhhlucky 发布时间: 2003-10-18

引用:

以下是引用zhhlucky在2003-10-18 8:40:00的发言：好像用不着这么麻烦吧? 如果OUTLOOK中存在附件,直接右键单击,然后保存即可有必要自己写程序嘛?

这是批量操作。

作者: loadhigh 发布时间: 2003-10-18

如何按　接收时间　生成文件名保存

作者: stlhq 发布时间: 2003-11-29

office xp里对地址簿和发送邮件加强了控制---防止邮件木马程序，主要还是出于“牺牲灵活性，保证安全性”的考虑。所以不少用outlook 2002的朋友会遇到麻烦。

作者: loadhigh 发布时间: 2003-12-04

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

作者: jacklg 发布时间: 2003-12-05

是的。

作者: loadhigh 发布时间: 2003-12-05

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

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

作者: lusen5s 发布时间: 2004-03-05

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

作者: iceboy 发布时间: 2004-03-06

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

作者: loadhigh 发布时间: 2004-03-06

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

作者: pinda 发布时间: 2004-04-10

saveasfile->地址

作者: jacklg 发布时间: 2004-04-13

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

作者: iyfish 发布时间: 2004-08-22