Enviar datos de formulario VB6 por Outlook

[Insomnia]

Hola

Buscando un poco en la red he encontrado el siguiente código.

Código:

    Dim objOL As Outlook.Application
    Dim msg As Outlook.MailItem
        
    Set objOL = New Outlook.Application
    Set msg = objOL.CreateItem(olMailItem)
    
    With msg
        .Subject = "Título del email"
        .Body = text1.text & vbcr & text2.text
        .Send
    End With

    Set objOL = Nothing

Recuerda que tienes que agregar la referencia "Microsoft Outlook 11.0 Object Library" desde Proyecto / Referencias (en este caso al ser una referencia no aparecerá ningún nuevo control, se hace todo desde código)

Suerte.