Show Mail item in IE : InternetExplorer « Outlook « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Outlook
3. InternetExplorer

Show Mail item in IE

 

Public Sub ShowIE()
  Dim omail As Outlook.MailItem
  Dim colSelection As Outlook.Selection
  
  Set colSelection = Application.ActiveExplorer.Selection
  
  If colSelection.Count = 1 Then
    Set omail = colSelection.Item(1)
    Call ViewInIE(omail)
  End If

  Set omail = Nothing
  Set colSelection = Nothing
End Sub

Private Sub ViewInIE(objMail As Outlook.MailItem)
  Dim strURL As String
  Dim strPath As String
  
  strPath = "c:\" & objMail.Subject & ".htm"
  objMail.SaveAs strPath, olHTML
  
  strURL = "File://" & strPath
  
  Set m_objIE = New InternetExplorer
  
  m_objIE.Visible = True
  m_objIE.Navigate strURL
End Sub

 

Related examples in the same category