Access - Enviar informe por correo con codigo VBA

Sub EnviarInformePorCorreo()

    Dim appOutlook As Object

    Dim msg As Object

    Dim filename As String

    ' Crea una instancia de la aplicación Outlook

    Set appOutlook = CreateObject("Outlook.Application")

    ' Crea un objeto mensaje de correo electrónico

    Set msg = appOutlook.CreateItem(0)

    ' Establece el destinatario, asunto y cuerpo del mensaje

    msg.To = "destinatario@ejemplo.com"

    msg.Subject = "Informe de ventas"

    msg.Body = "Adjunto se encuentra el informe de ventas del mes."

    ' Especifica el archivo que se adjuntará

    filename = "C:\Informes\InformeVentas.pdf"

    ' Agrega el archivo adjunto al mensaje

    If Dir(filename) <> "" Then

        msg.Attachments.Add filename

    Else

        MsgBox "El archivo no existe.", vbExclamation, "Error"

    End If

    ' Envía el mensaje

    msg.Send

    ' Libera los objetos

    Set msg = Nothing

    Set appOutlook = Nothing

End Sub

Sub EnviarInformePorFax()

    Dim filename As String

    ' Establece la impresora predeterminada como la impresora de fax

    Application.Printer = Application.Printers("Nombre de la impresora de fax")

    ' Imprime el informe en la impresora de fax

    DoCmd.OpenReport "InformeVentas", acViewNormal

    DoCmd.PrintOut acPrintAll

    ' Restaura la impresora predeterminada

    Application.Printer = Nothing

End Sub