以下是一个遍历Outlook未读邮件的宏示例：

Sub CheckUnreadEmails()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olMail As Outlook.MailItem
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 获取当前Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的所有邮件
    For Each olMail In olFolder.Items
        ' 检查邮件是否未读
        If olMail.UnRead Then
            ' 在此处可以添加其他自定义操作
            ' 例如，打印邮件主题
            Debug.Print olMail.Subject
        End If
    Next olMail
    
    ' 清理对象
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

这个宏的作用是遍历Outlook收件箱中的所有邮件，并打印出未读邮件的主题。你可以根据自己的需求，自定义操作未读邮件的代码部分。