Cara recebi seu e´-mail, o projeto é bem bacana, porem não é bem isso que eu quero, quero algo bem simples. Consegui fazer assim:
Private Sub Command1_Click()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = Text1.Text
MAPIMessages1.MsgSubject = Text2.Text
MAPIMessages1.MsgNoteText = Text3.Text
MAPIMessages1.Send False
MAPISession1.SignOff
End Sub
Porem ele abre o outlook, para enviar, gostaria de fazer algo que enviasse direto sem abrir o outlook, alguem sabe como fazer?