访问Temp子文件夹的Outlook VBA遍历代码无法运行求助

1. 先确认文件夹是否存在且路径正确 #

• 检查默认收件箱下确实有Temp子文件夹，注意名称拼写（Outlook多数环境不区分大小写，但个别场景可能敏感）。
• 如果Temp是嵌套在其他子文件夹里，要写全路径，比如olFolder.Folders("二级文件夹").Folders("Temp")。

2. 加错误捕获定位问题 #

原代码没有错误处理，一旦Folders("Temp")找不到文件夹，olFolder会变成Nothing，后续遍历自然不会进入循环。添加错误捕获快速定位：

Sub getmail2()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.mailitem

On Error Resume Next
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("Temp")
If Err.Number <> 0 Then
    MsgBox "找不到Temp文件夹：" & Err.Description
    Exit Sub
End If
On Error GoTo 0

For Each msg In olFolder.Items
    Debug.Print msg.Subject
Next
End Sub

3. 排查文件夹内的项目类型 #

如果Temp文件夹里没有邮件（比如只有会议邀请、任务请求这类非MailItem项），直接用Outlook.mailitem遍历会跳过所有项，甚至中断循环。可以先打印所有项目的类型：

Dim item As Object
For Each item In olFolder.Items
    Debug.Print item.Class & " - " & item.Subject ' olMail对应的Class值是43
Next

也可以直接筛选出仅邮件类型：

Dim mailItems As Outlook.Items
Set mailItems = olFolder.Items.Restrict("[MessageClass] = 'IPM.Note'")
For Each msg In mailItems
    Debug.Print msg.Subject
Next

4. 确认默认收件箱是否对应目标账户 #

如果Outlook有多个邮箱账户，GetDefaultFolder(olFolderInbox)取的是默认账户的收件箱，可能Temp文件夹在其他账户下。可以指定账户路径：

Set olFolder = objNS.Folders("你的邮箱地址@xxx.com").Folders("Inbox").Folders("Temp")

内容的提问来源于stack exchange，提问作者andygeekboy