Access - Enviar Informe a un Correo Electronico

Sub EnviarInformePorEmail()

Dim objOutlook As Object

Dim objEmail As Object

Dim strEmail As String

Dim strNombreInforme As String

' Establecer el nombre del informe que se enviará

strNombreInforme = "NombreDelInforme"

' Establecer la dirección de correo electrónico del destinatario

strEmail = "destinatario@correo.com"

' Crear una instancia del objeto Outlook

Set objOutlook = CreateObject("Outlook.Application")

' Crear un objeto Email

Set objEmail = objOutlook.CreateItem(olMailItem)

' Adjuntar el informe al correo electrónico

objEmail.Attachments.Add CurrentProject.Path & "\" & strNombreInforme & ".pdf"

' Establecer el destinatario

objEmail.To = strEmail

' Establecer el asunto

objEmail.Subject = "Informe " & strNombreInforme

' Establecer el cuerpo del mensaje

objEmail.Body = "Adjunto se encuentra el informe " & strNombreInforme & "."

' Enviar el correo electrónico

objEmail.Send

' Liberar los objetos de Outlook

Set objEmail = Nothing

Set objOutlook = Nothing

End Sub