outlook msgファイルをExcelに送信する方法

Question

次のコードでは、.msgファイルをExcelにインポートできます。 Outlookでマクロを作成して、インポートするのではなくエクセルファイルにメッセージを送ることができるかどうかは疑問でした。次のように

私はファイルを.msgのインポートに使用されるコードは次のとおりです。

Sub IMPORTMSG() 
    Application.ScreenUpdating = False 
    Application.EnableEvents = False 
    Application.DisplayAlerts = False 

    Dim i As Long 
    Dim inPath As String 
    Dim thisFile As String 
' Dim Msg As MailItem 
    Dim ws As Worksheet 
' Dim myOlApp As Outlook.Application 
' Dim MyItem As Outlook.MailItem 

    Set myOlApp = CreateObject("Outlook.Application") 
    Set ws = ThisWorkbook.Worksheets("A") 

    With Application.FileDialog(msoFileDialogFolderPicker) 
     .AllowMultiSelect = False 
      If .Show = False Then 
       Exit Sub 
      End If 
     On Error Resume Next 
     inPath = .SelectedItems(1) & "\" 
    End With 
    thisFile = Dir(inPath & "*.msg") 
    i = 4 
    Do While thisFile <> "" 
      Set MyItem = myOlApp.CreateItemFromTemplate(inPath & thisFile) 
     If MyItem.Subject = "testheader" Then 
      ws.Cells(i, 1) = MyItem.Body 
      i = i + 1 
     End If 
      thisFile = Dir() 
    Loop 

    Set MyItem = Nothing 
    Set myOlApp = Nothing 

    Application.ScreenUpdating = True 
    Application.EnableEvents = True 
    Application.DisplayAlerts = True 
End Sub 

Answer 1

あなたがOutlookのCOMアドインを作成することができ、それは上記のコードを実行しました。または、OutlookでApplication.ActiveExplorer.Selectionコレクションを使用して、スタンドアロンのMSGファイルを処理する代わりにOutlookで選択したメッセージをループすることができます。

Answer 2

Excelを自動化してExcelのセル値を設定できるOutlook VBAマクロを開発することができます。詳細については、How to automate Microsoft Excel from Visual Basicを参照してください。

また、Getting Started with VBA in Outlook 2010の記事が役立つことがあります。