VBA Outlook/Excel - Criar mensagem de E-mail

[André Luiz Bernardes]

Sub CreateMailInExcelEarlyBound()
      Dim olApp As Outlook.Application
      Dim Msg As Outlook.MailItem

      Set olApp = New Outlook.Application
      Set Msg = olApp.CreateItem(olMailItem)

      Msg.Display

      Set Msg = Nothing
      Set olApp = Nothing
End Sub

Outra técnica:

Sub CreateMailInExcelLateBound()
      Dim olApp As Object
      Dim Msg As Object

      Set olApp = CreateObject("Outlook.Application")
      Set Msg = olApp.CreateItem(0)

      Msg.Display

      Set Msg = Nothing
      Set olApp = Nothing
End Sub