Hola
Eso es, cuando digo ponerlo en el botón quería decir en el evento click de un botón (puedes ponerlo en cualquier otro evento que te interese). Me he dado cuenta que tenía un error en el código, las propiedades .MsgNoteText y .Send pertenecen al MAPIMessages en lugar del MAPISession1 como había puesto.
El código quedaría de la siguiente forma:
Código:
Private Sub Command1_Click()
'sesion de correo
With MAPISession1
.UserName = "Insomnia"
.NewSession = True
.DownLoadMail = False
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.RecipIndex = 0
.RecipType = mapToList
.MsgNoteText = Text1.Text & vbCr & Text2.Text
.Send True ' Para enviar el email
End With
MAPISession1.SignOff 'Cerrar sesión
End Sub
El formulario sería el siguiente:
P.D. Una de las condiciones para que funcione es que el usuario tenga instalado y definido como correo predeterminado el Outlook.
--Saludos--