在EXCEL中列出OUTLOOK收件箱里所有的邮件

最新推荐文章于 2025-11-26 12:17:57 发布

原创最新推荐文章于 2025-11-26 12:17:57 发布 · 1.7k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #2010

EXCEL VBA 同时被 2 个专栏收录

30 篇文章

订阅专栏

OFFICE其他

8 篇文章

订阅专栏

本文介绍了一种使用VBA批量导出Outlook收件箱中所有邮件的方法，包括邮件标题、接收时间、附件数量、是否已读及邮件大小等信息，并将其整理成Excel表格。

首先需引用你所用的OUTLOOK版本的库（2003为11.0，2007 12.0，2010 14.0）

Sub showAllEmails() Dim OLF As Outlook.MAPIFolder Dim Emails&, i&, k& Dim arr Application.ScreenUpdating = False Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Emails = OLF.Items.Count ReDim arr(1 To Emails + 1, 1 To 5) arr(1, 1) = "标题" arr(1, 2) = "接收时间" arr(1, 3) = "附件数" arr(1, 4) = "已读" arr(1, 5) = "大小" For i = 1 To Emails With OLF.Items(i) arr(i + 1, 1) = .Subject arr(i + 1, 2) = Format(.ReceivedTime, "yyyy-m-d") arr(i + 1, 3) = .Attachments.Count arr(i + 1, 4) = IIf(.UnRead, "否", "是") arr(i + 1, 5) = .Size End With Next Set OLF = Nothing ActiveSheet.Range("a1").Resize(UBound(arr), 5) = arr Columns("A:F").AutoFit Application.ScreenUpdating = True MsgBox "查找完毕" End Sub

作者：laoyebin(Paladin.lao)

博客园出处： http://laoyebin.cnblogs.com/

个人网站英文出处： http://mrvsto.com/

个人网站中文出处： http://cn.mrvsto.com/