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

loadhigh · 发表于 2003-6-4 16:57

上次提供了将“收件箱”里邮件导出至硬盘的代码。这次提供将邮件里的附件保存至硬盘的代码。 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

winak · 发表于 2003-6-5 00:55

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

DC.Direct · 发表于 2003-6-5 05:45

谢谢！

jacklg · 发表于 2003-7-29 19:37

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

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

bainiangud · 发表于 2003-8-28 08:02

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

loadhigh · 发表于 2003-9-30 16:44

你可能没有引用outlook对象。

zhhlucky · 发表于 2003-10-18 08:40

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

loadhigh · 发表于 2003-10-18 14:10

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

这是批量操作。

stlhq · 发表于 2003-11-29 12:30

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

loadhigh · 发表于 2003-12-4 12:58

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

用户名		自动登录	找回密码
密码			免费注册

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

浏览过的版块