用于检查.msg文件是否包含任何附件的VBA代码

Sub CheckMsgForAttachments()
    Dim objMsg As Object
    Dim objFolder As Object
    Dim objItem As Object
    Dim strFilePath As String
    Dim blnHasAttachment As Boolean
    
    ' 设置.msg文件的路径
    strFilePath = "C:\path\to\your\file.msg"
    
    ' 创建一个 Outlook 对象
    Set objMsg = CreateObject("Outlook.Application").GetNamespace("MAPI").OpenSharedItem(strFilePath)
    
    ' 检查是否有附件
    blnHasAttachment = objMsg.Attachments.Count > 0
    
    ' 输出结果
    If blnHasAttachment Then
        MsgBox "该文件包含附件。"
    Else
        MsgBox "该文件不包含附件。"
    End If
    
    ' 释放对象
    Set objMsg = Nothing
End Sub