学步园

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

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