intendi una cosa di questo tipo?
codice:
Private Sub Command1_Click()
MAPISession1.SignOn
MAPIMessages1.MsgIndex = -1
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.RecipDisplayName = "yyz"
MAPIMessages1.RecipAddress = Text1.Text
MAPIMessages1.MsgSubject = "oggetto mail"
'MAPIMessages1.MsgNoteText = "Testo della mail"
MAPIMessages1.MsgNoteText = "<html><body>123prova</body></html>"
'MAPIMessages1.AttachmentPathName = "C:\test.doc"
MAPIMessages1.Send
MAPISession1.SignOff
End Sub