O Massa entendeu, nós entendemos, o mundo inteiro entendeu.
Infelizmente.
Eventualmente dicas sobre outros programas, Windows e hardware.
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