Enviar datos de formulario VB6 por Outlook

[Insomnia]

Hola

Añade los controles MAPI (MapiSession y MapiMessages). El código de la conexión sería:

Código:

            'sesion de correo
            With MAPISession1
                .UserName = "Insomnia"
                .NewSession = True
                .DownLoadMail = False
                .SignOn
            End With
            
            With MAPIMessages1
                .SessionID = MAPISession1.SessionID
                .MsgIndex = -1
            End With

Para añadir texto en el cuerpo del mensaje:

Código:

MAPISession1.MsgNoteText = Text1.text & vbcr & Text2.text

De esta forma puedes ir añadiendo los campos que necesites al cuerpo del mensaje del email.

Para finalizar

Código:

MAPISession1.Send True ' Para enviar el email
MAPISession1.SignOff 'Cerrar sesión

--Saludos--