Попытка извлечь вложения Outlook из сохраненных файлов .msg с помощью VBA

Question

Я пытаюсь извлечь вложения из сохраненных сообщений Outlook, чтобы я мог добывать данные из прилагаемых таблиц Excel. Сообщения были сохранены в общей папке в виде файлов .msg, и я изо всех сил пытаюсь получить VBA, чтобы даже распознавать сообщения в виде файлов. Сначала я пытаюсь получить детали сообщения в коде ниже в качестве доказательства концепции.

Как только у меня есть эта работа, я могу работать над обходом файлов и работой с вложениями. Я нашел много кода на этом сайте для извлечения вложений из писем, все еще находящихся в Outlook, но у меня нет доступа к папкам Outlook, и исходные сообщения были удалены.

Sub ExtractExcel() 
Dim aExcel As Outlook.Attachment 
Dim stFilePath As String 
Dim stFileName As String 
Dim stAttName As String 
Dim stSaveFolder As String 
Dim oEmail As Outlook.MailItem 


'~~> Outlook Variables for email 
Dim eSender As String, dtRecvd As String, dtSent As String 
Dim sSubj As String, sMsg As String 


stFilePath = "Y:\Purchasing\The Team\User Name\Supply Chain Admin - Outlook\New-Revised Orders\FW Mail Order Daffodil.msg" 
stSaveFolder = "C:\Projects\SOTD\PO_Excel" 

Debug.Print stFilePath 
Debug.Print stSaveFolder 

oEmail = stFilePath 


With oEmail 
    eSender = oEmail.SenderEmailAddress 
    dtRecvd = oEmail.ReceivedTime 
    dtSent = oEmail.CreationTime 
    sSubj = oEmail.Subject 
    sMsg = oEmail.Body 

Debug.Print eSender 
Debug.Print dtRecvd 
Debug.Print dtSent 
Debug.Print sSubj 
Debug.Print sMsg 
End With 

End Sub 

Я использую Excel VBA, поскольку я знаком с ним, но рад предложить альтернативные стратегии. Любые и все указатели с благодарностью получили.
Благодаря
Kyle

Answer 1

Использование CreateItemFromTemplate из VBA Code to save an attachment (excel file) from an Outlook email that was inside another email as an attachment вы могли

• открытым тзд файлы C:\temp\
• полосы все вложения в C:\temp1\

код

Sub SaveOlAttachments() 

Dim msg As Outlook.MailItem 
Dim att As Outlook.Attachment 
Dim strFilePath As String 
Dim strAttPath As String 

    'path for creating msgs 
strFilePath = "C:\temp\" 
    'path for saving attachments 
strAttPath = "C:\temp1\" 

strFile = Dir(strFilePath & "*.msg") 
Do While Len(strFile) > 0 
    Set msg = Application.CreateItemFromTemplate(strFilePath & strFile) 
    If msg.Attachments.Count > 0 Then 
     For Each att In msg.Attachments 
      att.SaveAsFile strAttPath & att.FileName 
     Next 
    End If 
    strFile = Dir 
Loop 

End Sub 

Answer 2

Namespace.OpenSharedItem. Не используйте CreateItemFromTemplate - он стирает многие свойства (такие как свойства, связанные с отправителем).