将outlook的收件箱里的邮件里的文件导出的代码.

loadhigh

如何将outlook的收件箱里的邮件里的文件导出： 导入程序的关键需要引用一个outlook对象 1、导入至excel或access，如下代码为excel里的一个宏： Sub Exprot_Mail_xl() Dim myolapp As New Outlook.Application Set myNameSpace = myolapp.GetNamespace("MAPI") Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox) For i = 1 To myfolder.Items.Count '简单for...next循环，将所有邮件导出，myfolder.Items.Count是收件箱里邮件的数量 Set mymailitem = myfolder.Items(i) With mymailitem Sheet1.Cells(i, 1) = .Subject Sheet1.Cells(i, 2) = .SenderName Sheet1.Cells(i, 3) = .Body End With Next xlapp.quit End Sub ********************************************************************** 2、导出成文本文件： Sub Exprot_Mail_txtfile() Dim myolapp As New Outlook.Application Set myNameSpace = myolapp.GetNamespace("MAPI") Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox) For i = 1 To myfolder.Items.Count '简单for...next循环，将所有邮件导出，myfolder.Items.Count是收件箱里邮件的数量 Set mymailitem = myfolder.Items(i) With mymailitem .SaveAs "c:\电子邮件\" + .Subject + ".txt", olTXT End With Next xlapp.quit End Sub ****************************************************

DC.Direct

了不起！版主就是版主，请问有没有将邮件中的附件，导出到指定的文夹中的程序；如导成功后，能否有校验和提示，如显示“该文件以成功拷贝到某某文件中”。有否可能？谢谢！

DC.Direct

请保留此经典帖子，实在是太有用了，太有水准了。我们大家都热切盼望版主，多提供些相关信息，让我们这些初学者有机会学习。不知版主一般什么时间来，有机会讨教。谢谢！

winak

有没有试过把电子邮件导出到数据库(access,sql) 包括邮件的附件

wangydm2

如能将附件导出那更是功德无量.

loadhigh

存入数据库其实不难，只要将代码稍加改动，加入ado代码就可。 保存附件的： http://club.excelhome.net/dispbbs.asp?boardID=22&ID=17844

taipei-joe

版主： 我试过导出，但在XP上老是出错，停留在“ .SaveAs "c:\电子邮件\" + .Subject + ".txt", olTXT ”这段程式上，请教如何解决？ 另外在导出附件的部分，如果一个信件有很多的附件，则仅能导出该信件中的第一个附件，该如何解决？谢谢！

andy800529

太牛了！想不到outlook这么简单的一个软件居然包含了这么艰深的奥秘！

andy800529

不过真的好复杂，我照原样输入发现错误，什么“用户定义类型未定义”不知道是怎么回事儿。

loadhigh

需要引用 outlook对象。