Access - (Código) guardar en formato Html

Public Sub GuardarFormularioComoHTML()

    Dim strFormulario As String

    Dim strDirectorio As String

    Dim strArchivo As String

    ' Nombre del formulario que deseas guardar

    strFormulario = "NombreDelFormulario"

    ' Directorio donde se guardará el archivo HTML

    strDirectorio = "C:\Ruta\Al\Directorio"

    ' Nombre del archivo HTML

    strArchivo = "formulario.html"

    DoCmd.OutputTo acOutputForm, strFormulario, acFormatHTML, strDirectorio & "\" & strArchivo

End Sub

Public Sub EnviarEmailConFormularioHTML()

    Dim strFormulario As String

    Dim strDirectorio As String

    Dim strArchivo As String

    Dim strDestinatario As String

    Dim strAsunto As String

    Dim strMensaje As String

    ' Nombre del formulario que deseas guardar

    strFormulario = "NombreDelFormulario"

    ' Directorio donde se guardará el archivo HTML

    strDirectorio = "C:\Ruta\Al\Directorio"

    ' Nombre del archivo HTML

    strArchivo = "formulario.html"

    ' Dirección de correo electrónico del destinatario

    strDestinatario = "ejemplo@correo.com"

    ' Asunto del correo electrónico

    strAsunto = "Formulario HTML adjunto"

    ' Mensaje del correo electrónico

    strMensaje = "Adjunto encontrarás el formulario HTML."

    ' Guardar el formulario como HTML

    DoCmd.OutputTo acOutputForm, strFormulario, acFormatHTML, strDirectorio & "\" & strArchivo

    ' Crear objeto de aplicación de Outlook

    Dim objOutlook As Object

    Set objOutlook = CreateObject("Outlook.Application")

    ' Crear nuevo correo electrónico

    Dim objEmail As Object

    Set objEmail = objOutlook.CreateItem(0)

    ' Configurar propiedades del correo electrónico

    With objEmail

        .To = strDestinatario

        .Subject = strAsunto

        .Body = strMensaje

        ' Adjuntar el archivo HTML

        .Attachments.Add strDirectorio & "\" & strArchivo

        ' Enviar el correo electrónico

        .Send

    End With

    ' Liberar objetos

    Set objEmail = Nothing

    Set objOutlook = Nothing

End Sub