docmd.runsavedimportexport vba обработка ошибок

Question

У меня есть настройка макроса для запуска нескольких savedimportexports, но когда происходит сбой, мне нужно отправить мне электронное письмо с заголовком savedimportexport, который не удался, и продолжить со следующим, чтобы я мог потом вернуться и перезапустить экспорт. У меня настроена часть электронной почты, мне просто нужно знать, как поместить заголовок savedimportexport в тело письма. Err.Description, Err.Number, Err.Source не имеют то, что мне нужно. Ниже мой код....

Function Payday_Audit_Biweekly()
On Error GoTo Payday_Audit_Biweekly_Err

DoCmd.RunSavedImportExport "Export 1"
DoCmd.RunSavedImportExport "Export 2"
DoCmd.RunSavedImportExport "Export 3"
DoCmd.RunSavedImportExport "Export 4"
DoCmd.RunSavedImportExport "Export 5"
DoCmd.RunSavedImportExport "Export 6"
Call file_copy

DoCmd.RunMacro "CloseDatabase", , ""


Payday_Audit_Biweekly_Exit:
Exit Function

Payday_Audit_Biweekly_Err:
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")Set oMail = oApp.CreateItem    (olMailItem)
oMail.Body = 'This is where I need the title of the SavedImportExport'
oMail.Subject = "Report Failed"
oMail.To = "myemailaddress"
oMail.SendUsingAccount = oApp.Session.Accounts.Item(1)
oMail.Display
SendKeys "%s", True

Set oMail = Nothing
Set oApp = Nothing
Resume Next
End Function