Outlook VBA 如何循环浏览收件箱并从电子邮件地址列表（如果主题匹配）

VBA

在Outlook VBA中，我们可以使用循环来遍历收件箱中的电子邮件，并根据主题匹配从电子邮件地址列表中生成一篇文章。下面是一个示例代码：

VBA
Sub GenerateArticle()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.MAPIFolder
    Dim objMAIl As Outlook.MAIlItem
    Dim objAddressList As Outlook.AddressList
    Dim objRecipient As Outlook.Recipient
    Dim strArticle As String
    
    ' 创建Outlook应用程序对象
    Set objOutlook = CreateObject("Outlook.Application")
    ' 获取默认Namespace对象
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    ' 获取收件箱文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的每封邮件
    For Each objMAIl In objFolder.Items
        ' 检查主题是否匹配
        If objMAIl.Subject = "匹配的主题" Then
            ' 获取邮件地址列表
            Set objAddressList = objNamespace.AddressLists("所有联系人")
            
            ' 遍历地址列表中的每个收件人
            For Each objRecipient In objMAIl.Recipients
                ' 检查收件人是否在地址列表中
                If objRecipient.AddressEntry.AddressList.Name = objAddressList.Name Then
                    ' 根据收件人的姓名生成文章段落
                    strArticle = strArticle & "尊敬的" & objRecipient.Name & "先生/女士，"
                    strArticle = strArticle & "您好！"
                    strArticle = strArticle & "......"
                End If
            Next objRecipient
        End If
    Next objMAIl
    
    ' 输出生成的文章
    Debug.Print strArticle
End Sub

VBA
尊敬的张三先生/女士，
您好！
......
<strong>尊敬的李四先生/女士，</strong>
<strong>您好！</strong>
<strong>......</strong>
尊敬的王五先生/女士，
您好！
......

在Outlook VBA中，要循环浏览收件箱并从电子邮件地址列表中筛选（如果主题匹配），可以使用以下代码逻辑示例：首先，声明所需的对象变量；然后，使用Namespace和Folders属性来获取收件箱；接着，使用Items集合来遍历收件箱中的邮件；最后，在循环中使用条件判断来检查邮件主题是否匹配，并进行相应的操作。请注意，实际代码需要根据具体需求进行调整。