Criar email via VBA no Outlook - late binding

Mais óbvio e simples impossível.
Não esquecer:
- Que na hora do "Send", o Outlook vai dar um aviso de que outro programa está tentando enviar mensagens;
- O Outlook deve estar aberto na hora da execução do código.


;-)

Sub email()

Set olapp = CreateObject("Outlook.Application")
olapp.Session.Logon

Set mensagem = olapp.CreateItem(0)
With mensagem
  .To = ""
  .CC = ""
  .BCC = ""
  .Subject = ""
  .Body = ""
  .display
  .Send
End With

End Sub