Private Sub btn_email_Click()
On Error GoTo btn_email_Click_Err
Dim vMsg As String
vMsg = "Buen dia equipo" & _
Chr$(13) & _
Chr$(13) & "Adjunto remito el listado de pendientes de XXXX del area XXXX." & _
Chr$(13) & _
Chr$(13) & "Sin mas," & _
Chr$(13) & "Gracias." & _
Chr$(13) & _
Chr$(13) & "-----MENSAJE AUTOMATICO, NO RESPONDER-----" & _
Chr$(13) & _
Chr$(13) & "Saludos Cordiales/Best Regards" & _
Chr$(13) & "XXXX Process - XXXX Department" & _
Chr$(13) & "XXXXX XXXXXXX XXXXXXXXXXXXX."
DoCmd.SendObject acSendQuery, "qry_pendientes_generales", acFormatXLSX, "XXXX@XXXX.XXX", , , "Pendientes XXXX" & Date, vMsg, True
btn_email_Click_Exit:
Exit Sub
btn_email_Click_Err:
MsgBox "Envio del correo fue cancelado."
Resume btn_email_Click_Exit
End Sub