仅将VBA代码应用于主题中包含"string“的电子邮件

Sub ProcessEmailsWithString()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olItems As Outlook.Items
    Dim olMail As Outlook.MailItem
    Dim strSubject As String
    Dim strBody As String
    Dim strString As String
    
    ' 设置 Outlook 应用程序对象
    Set olApp = New Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 设置要搜索的文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 设置要搜索的邮件项
    Set olItems = olFolder.Items
    
    ' 设置要搜索的主题字符串
    strString = "string"
    
    ' 遍历所有邮件项
    For Each olMail In olItems
        ' 检查邮件主题是否包含指定字符串
        If InStr(1, olMail.Subject, strString, vbTextCompare) > 0 Then
            ' 提取邮件主题和正文内容
            strSubject = olMail.Subject
            strBody = olMail.Body
            
            ' 在这里可以对提取出的字符串进行处理和操作
            ' ...
            
            ' 打印提取出的字符串
            Debug.Print "Subject: " & strSubject
            Debug.Print "Body: " & strBody
        End If
    Next olMail
    
    ' 释放对象
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub