Hola Insomnia, el código es correcto, pero falta el destinatario
Código:
Dim objOL As Outlook.Application
Dim msg As Outlook.MailItem
Set objOL = New Outlook.Application
Set msg = objOL.CreateItem(olMailItem)
With msg
.To = "[email protected]"
.Subject = "Título del email"
.Body = text1.text & vbcr & text2.text
' lo siguiente por si quieres adjuntar cualquier archivo
.Attachments.Add "c:\UnArchivo1.jpg"
.Send
End With
Set objOL = Nothing
Set msg = Nothing
Saludos
