첨부 파일에서 첨부 파일 추출하기

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 

Answer 2

메시지를 MSG 파일 (Attachment.SaveAsFile)로 저장 한 다음 Namespace.OpenSharedItem을 사용하여 열 수 있습니다.

Outlook 개체 모델에서는 파일 시스템에 먼저 저장하지 않고 포함 된 메시지 첨부 파일에 직접 액세스 할 수 없습니다. Redemption 옵션을 사용하는 경우 RDOAttachment이 표시됩니다. EmbeddedMsg 속성 (RDOMail 개체 반환). Outlook 메시지는 RDOSession 개체 및 호출 GetRDOObjectFromOutlookObject 메서드의 인스턴스를 만들어 보냄에서 다시 열 수 있습니다.