Utiliza los controles MAPISession y MAPIMessages...
MAPISession1.DownLoadMail = False
MAPISession1.LogonUI = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipAddress = "SMTP:
[email protected]"
MAPIMessages1.RecipDisplayName = "Tesifonte"
MAPIMessages1.RecipType = 1
MAPIMessages1.MsgSubject = "Prueba"
MAPIMessages1.MsgNoteText = "Texto del mensaje"
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Send True
MAPISession1.SignOff