Outlook 2010 规则是否对从 Excel VBA 发送的邮件运行

在使用Outlook 2010发送电子邮件时，我们可以创建规则来自动处理接收到的邮件。这些规则可以根据特定的条件对邮件进行分类、标记、移动或删除等操作。然而，有些人可能会问，这些规则是否适用于通过Excel VBA发送的邮件？

vba
Sub SendEmailWithRule()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim strRecipient As String
    Dim strSubject As String
    Dim strBody As String
    
    ' 创建Outlook对象
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set objMail = objOutlook.CreateItem(0)
    
    ' 设置收件人、主题和正文
    strRecipient = "example@example.com"
    strSubject = "这是一封测试邮件"
    strBody = "Hello, 这是一封通过Excel VBA发送的测试邮件。"
    
    ' 设置邮件的各种属性
    With objMail
        .To = strRecipient
        .Subject = strSubject
        .Body = strBody
        .Send
    End With
    
    ' 释放对象
    Set objMail = Nothing
    Set objOutlook = Nothing
    
    ' 显示成功发送消息
    MsgBox "邮件已成功发送！"
End Sub

vba
Sub SendEmailWithRule()
    ' 代码内容
End Sub