Private Sub btnEnviarPDF_Click()
On Error GoTo ErrorHandler
Dim strReporte As String
Dim strArchivoPDF As String
' Nombre del informe en Access que se va a exportar
strReporte = "NombreDelInforme"
' Ruta y nombre del archivo PDF que se va a crear (puedes ajustar la ruta según tus necesidades)
strArchivoPDF = "C:\Ruta\NombreDelArchivo.pdf"
' Imprimir el informe en la impresora virtual CUTEPDF Writer para generar el archivo PDF
DoCmd.OpenReport strReporte, acViewNormal
DoCmd.PrintOut acPrintAll, , , , 1, True
DoCmd.Close acReport, strReporte
' Enviar el archivo PDF por correo electrónico
DoCmd.SendObject acSendNoObject, , , "nombre@example.com", , , "Asunto del correo", "Mensaje del correo", False, strArchivoPDF
' Mostrar mensaje de éxito
MsgBox "El archivo PDF se ha creado y enviado por correo electrónico.", vbInformation
Exit Sub
ErrorHandler:
MsgBox "Error al crear o enviar el archivo PDF.", vbExclamation
End Sub