Hola, aca te paso un codigo que uso y funciona usando la sesion de mail de tu cuenta en outlook.
Tenes poner estos dos componentes en el formulario (MAPIMessages, MAPISession). Tenes que agregar desde proyecto, el componente Microsoft Mapi Controls 5.0
Espero te sirva
Código:
Private Sub Command1_Click()
With MAPISession1
.NewSession = False
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
' Creamos el mensaje
.Compose
' Asunto del mensaje
.MsgSubject = "Tu Asunto"
' Mensaje
.MsgNoteText = "Tu Mensaje"
' Nombre del Mail del destinatario
.RecipDisplayName = "[email protected]"
' Enviamos el correo
.Send False
End With
' Cerramos la sesión abierta del Mapi
MAPISession1.SignOff
End Sub