VBA 从 Outlook 邮件中检索 HTMLBody

VBA代码示例：从Outlook邮件中检索HTMLBody

vba
Sub RetrieveHTMLBodyFromOutlookEmail()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olMail As Outlook.MailItem
    Dim htmlBody As String
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的邮件
    For Each olMail In olFolder.Items
        ' 检查是否为邮件，并且未读
        If TypeOf olMail Is Outlook.MailItem And olMail.UnRead = True Then
            ' 检索邮件的HTML内容
            htmlBody = olMail.HTMLBody
            ' 在此处可以对HTML内容进行处理，如提取需要的信息等
            
            ' 标记该邮件为已读
            olMail.UnRead = False
        End If
    Next olMail
    
    ' 释放对象
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

vba
Sub RetrieveOrdersFromOutlookEmails()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olMail As Outlook.MailItem
    Dim htmlBody As String
    Dim orderInfo As String
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的邮件
    For Each olMail In olFolder.Items
        ' 检查是否为邮件，并且未读
        If TypeOf olMail Is Outlook.MailItem And olMail.UnRead = True Then
            ' 检索邮件的HTML内容
            htmlBody = olMail.HTMLBody
            ' 在HTML内容中提取订单信息
            orderInfo = ExtractOrderInfo(htmlBody)
            ' 处理订单信息，如保存到数据库或生成报告等
            
            ' 标记该邮件为已读
            olMail.UnRead = False
        End If
    Next olMail
    
    ' 释放对象
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub
Function ExtractOrderInfo(htmlBody As String) As String
    ' 在此处编写提取订单信息的代码
    ' 这里只是一个示例，您需要根据实际情况自行编写代码
    
    ' 假设订单信息位于HTML的某个标签中
    ' 在此处使用正则表达式或其他方法提取订单信息，并将其存储到变量中
    Dim orderInfo As String
    orderInfo = "订单号：123456，商品：ABC，数量：2"
    
    ' 返回订单信息
    ExtractOrderInfo = orderInfo
End Function