send the report then append a record to the log table.
Code:
DoCmd.SendObject acSendReport, "rptName", acFormatPDF, email, , , vSubj, vMsg
PostLog "Bob Smith" ,"rptName", email
'-----------
Public Sub Post2Log(pvUser, pvEvent, pvDescr)
'-----------
Dim sSql As String
docmd.setwarnings false
sSql = "INSERT INTO tLogs ([USER],[Event],[Descr],[EntryDate] ) values ('" & pvUser & "','" & pvEvent & "','" & pvDescr & "',#" & Now() & "#)"
DoCmd.RunSQL sSql
End Sub
the tLogs table has
[user]
[Event]
[descr]
[EntryDate] , general date format, default = Now()