把收集到outlook个人文件夹邮件下载到桌面

shlin86 · 发表于 2010-12-29 09:12

各位高手好！
现在在用OFFICE OUTLOOK，使用过程中遇到一个问题，就是我用OUTLOOK把163上的邮件都下载到OUTLOOK上的个人文件夹，现在要把文件夹中的邮件一封封下载到桌面，有没有快捷的方法，我要下几百封邮件，不想一封封的点击下载(也就是另存为)，能不能一次性全部下载（另存为），且效果和一封封下载（另存为）是一样的[有多少封邮件下载后（另存为后）就是多少]，而不是一个总的文件让我不能一封邮件查看。。。

[ 本帖最后由 shlin86 于 2010-12-29 11:35 编辑 ]

dsd999 · 发表于 2010-12-29 09:32

你说的下载时什么意思？

另存为？

shlin86 · 发表于 2010-12-29 11:09

对。。。就是另存为。。。有办法吗

dsd999 · 发表于 2010-12-29 12:52

Sub SaveAsMsg()
Dim objOutlook As New Outlook.Application
Set mobjOutlook = objOutlook.GetNamespace("MAPI")
Set objFolder = mobjOutlook.GetDefaultFolder(olFolderInbox)
For Each objItem In objFolder.Items
If objItem.Class = olMail Then
strName = objItem.Subject
objItem.SaveAs "C:\" & strName & ".msg", olMSG
End If
Next
End Sub

shlin86 · 发表于 2010-12-29 13:29

不好意思。。可以告诉这个。。这个。。代码怎么用吗。。。不得不承认我是菜鸟。。。

dsd999 · 发表于 2010-12-29 13:42

http://club.excelhome.net/viewth ... p;page=1#pid3649596

看这个帖子

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

[求助] 把收集到outlook个人文件夹邮件下载到桌面

回复 2楼 dsd999 的帖子

回复 4楼 dsd999 的帖子