Outlook VBA开发第五讲-导出邮件到Excel，每个发件人一个Sheet

xdjing_08 · 发表于 2013-9-24 18:14

dsd999 发表于 2011-5-20 10:08
没有2010环境，没在2010下用过。

具体什么错误，谢谢。

楼主好，我用公司电脑运行，总是出现上面截图中的情况。
公司电脑系统是2010版的，而且接受邮件的方式是先从xxxx@xx.com中周转一下最终被放入xxxx收件箱中截图2.GIF

如截图所示，下面的那个收件箱里是没有邮件的，最终只有上面的xiaodan.jing中的收件箱里有邮件，不知道这个对于代码运行成功与否有没有影响呢？

zbh_ronaldo · 发表于 2014-1-15 09:23

学习中，拜谢了。。

irene_hj · 发表于 2014-2-7 16:39

我用的是2010，工具栏出了按键，可是无法使用呢 C:\Users\ihe\Desktop\捕获.JPG

劼がじ · 发表于 2014-4-7 22:08

如何下载啊

paladinhch · 发表于 2016-9-12 22:24

好贴，非常难得的outlook vba资料，楼主辛苦了，顶起~~~

天涯凝望 · 发表于 2017-10-8 16:30

很想学习一下，如何把特定主题或正文的邮件导出到excel里。比如主题或正文中包含“报名”时，就将相关邮件的主题导出到excel

闻启学 · 发表于 2017-10-10 05:03

天涯凝望发表于 2017-10-8 16:30
很想学习一下，如何把特定主题或正文的邮件导出到excel里。比如主题或正文中包含“报名”时，就将相关邮 ...

加个判断语句就行

ghty · 发表于 2018-9-12 21:24

学习了，谢谢分享。

ztccsj · 发表于 2019-12-1 08:58

版主，咨询：
感谢提供代码，按照您的代码，我复制后略修改，结果发现字典运行到最后一行时就报错“运行时错误 438 对象不支持属性或方法“ 死活都无法解决，请求诊断
.......
Set myWorksheet = myWorkbook.Sheets("Sheet1")
myWorksheet.cells(1, 1) = "接收时间"
myWorksheet.cells(1, 2) = "上级目录"
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
myWorksheet.Range("g1").Select
myWorksheet.Range("g1").Resize(d.Count, 1) = Application.Transpose(d.keys)

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

[原创] Outlook VBA开发第五讲-导出邮件到Excel，每个发件人一个Sheet