急求outlook邮件保存到电脑的VBA

woshiwocd

各位高手，在下要写一个将outlook的邮件保存到电脑指定文件夹的macro vba, 邮件以msg的形式保存并以日期和邮件的主题命名。 急等，请各位帮帮忙啊，万分感谢啊

dsd999

http://club.excelhome.net/thread-717218-1-1.html

参考下，不会再问。

woshiwocd

版主大人您好，
我自己写了一个, 但是运行到MonMail.SaveAs Path这行就出错，说失败，实在不明白，菜鸟啊，版主大人能看看吗？万分感谢。代码如下:
Private Sub SaveMail()

Dim f As String
Dim fso

f = "保存文件夹路径"
Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(f) <> True Then
    fso.CreateFolder (f)
End If

Dim MonApply As Outlook.Application
Dim MonMail As Outlook.MailItem
Dim MonNSpace As Outlook.NameSpace
Dim MonDossier As Outlook.Folder

Set MonApply = Outlook.Application
Set MonNSpace = MonApply.GetNamespace("MAPI")
Set MonDossier = MonNSpace.GetDefaultFolder(olFolderInbox)

For i = 1 To MonDossier.Items.Count

Set MonMail = MonDossier.Items(i)
Dim Path As String
Path = f & "\" & Left(MonMail.ReceivedTime, 10) & "-" & MonMail.Subject & ".msg"
MonMail.SaveAs Path

Next iEnd sub

dsd999

MonMail.ReceivedTime  有“/"，文件名不合法。

woshiwocd

谢谢版主大人

海尔拾壹11

楼主，给个完整版代码吧。。还有vb怎么用啊。。。

excelhomehuawei

woshiwocd 发表于 2015-1-20 06:22
谢谢版主大人

Path = f & "\" & Left(Replace(MonMail.ReceivedTime, "/", "-" ), 10) & "-" & MonMail.Subject & ".msg"
楼主你好, 我按版本说的，修改了时间，但只提取一部分邮件，请问有完整的代码可以提供下吗？谢谢

梧月书声

直接鼠标选中所有要保存的邮件，拖拽到你要保存的地方就ok了，这方法一般人我不告诉他。。。。