If EnvioEmail Then
        MsgBox "MENSAJE ENVIADO", vbInformation, "Aviso"
    End If
End Sub

Private Function EnvioEmail() As Boolean
On Error GoTo ManipulaError
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem

    ' Verifica que la dirección de correo no esté vacía
    If Me.TxtDireccion <> "" Then
        ' Crea una instancia de la aplicación Outlook
        Set oApp = CreateObject("Outlook.Application")
        Set oMail = oApp.CreateItem(olMailItem)

        ' Construye el cuerpo del mensaje concatenando el mensaje fijo con DNI y NOMBRE
        Dim cuerpoMensaje As String
        cuerpoMensaje = Nz(Me.TxtMensaje, "") & vbCrLf & _
                        "DNI: " & Nz(Me.DNI, "") & vbCrLf & _
                        "NOMBRE: " & Nz(Me.NOMBRE, "")

        ' Configura el correo
        With oMail
            .To = Me.TxtDireccion
            .Subject = Nz(Me.TxtAsunto, "")
            .Body = cuerpoMensaje
            .Importance = olImportanceHigh
            .Send
        End With

        ' Libera la instancia de la aplicación Outlook
        Set oApp = Nothing
        EnvioEmail = True
    Else
        MsgBox "ESPECIFIQUE UNA DIRECCION DE CORREO ELECTRONICO", vbExclamation, "Aviso"
        Me.Lista.SetFocus
    End If

Salir:
    Exit Function

ManipulaError:
    MsgBox Err.Number & " : " & Err.Description
End Function