如何在Outlook VBA中访问EmbeddedItem附件

Sub AccessEmbeddedItemAttachment()
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objEmbeddedItem As Outlook.Attachment
    
    ' 获取当前选中的邮件
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    
    ' 遍历所有附件
    For Each objAttachment In objMail.Attachments
        ' 判断附件类型是否为EmbeddedItem
        If objAttachment.Type = olEmbeddeditem Then
            ' 将附件转换为EmbeddedItem对象
            Set objEmbeddedItem = objAttachment.EmbeddedItem
            
            ' 在这里可以对EmbeddedItem进行操作，例如获取其属性或保存到本地
            ' 例如，获取EmbeddedItem的名称和类型
            Debug.Print "EmbeddedItem名称：" & objEmbeddedItem.DisplayName
            Debug.Print "EmbeddedItem类型：" & objEmbeddedItem.Type
            
            ' 推荐的腾讯云相关产品和产品介绍链接地址
            ' 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
            ' 腾讯云云函数（SCF）：https://cloud.tencent.com/product/scf
            ' 腾讯云消息队列（CMQ）：https://cloud.tencent.com/product/cmq
        End If
    Next objAttachment
    
    ' 释放对象
    Set objEmbeddedItem = Nothing
    Set objAttachment = Nothing
    Set objMail = Nothing
End Sub