从附件中提取附件

Question

我有一些宏可以将附件保存在特定的文件夹中。它与以下代码完美地工作: atmt.SaveAsFile

然而，有些电子邮件包含包含所需文件的电子邮件附件。我如何提取这样的二级依恋？

Answer 1

更新:谢谢大家的建议。以下工作：

For Each atmt In zMsg.Attachments 'Loop through attachments

    atmt.SaveAsFile DestPath & atmt.FileName
    Set zMsg2 = Application.CreateItemFromTemplate(DestPath & atmt.FileName)

    For Each atmt2 In zMsg2.Attachments
        atmt2.SaveAsFile DestPath & atmt2.FileName
    Next
    Set zMsg2 = Nothing
    Kill DestPath & atmt.FileName
Next