This sub will import a msg file into outlook.
The FileName should include the path info and
the FolderName is which folder inside outlook
to place the message.

Public Sub ImportMsgFromFile(FileName As String, FolderName As String)
  '
  'ImportMsgFromFile: Import a msg or olt file into a specific outlook folder
  'Example Use: ImportMsgFromFile "C:\WINDOWS\Desktop\test.msg","Misc"
  '
  Dim olApp As Outlook.Application
  Dim fldr As MAPIFolder
  Dim msg As MailItem
  'use automation to create link to outlook
  Set olApp = New Outlook.Application
  
  If FolderName <> "" Then
    'get the folder which should be in the users personal folders
    Set fldr = olApp.GetNamespace( "MAPI" ).Folders( "Personal Folders" ).Folders(FolderName)
  End If
  If FileName <>  "" Then
    If Dir(FileName) <> "  " Then
      'load the meg file into the drafts folder
      Set msg = olApp.CreateItemFromTemplate(FileName)
      'save it
      msg.Save
      If FolderName <> " " Then
        If Not fldr Is Nothing Then
          'move the restored message into the desired folder
          msg.Move fldr
        End If
      End If
    End If
  End If
  'always clean up memory
  Set msg = Nothing
  Set fldr = Nothing
  Set olApp = Nothing
End Sub