Отпрака нескольких Отчетов в одном письме

[fitushka]

Добрый день. СТолкнулся со следующей проблемой (сам извернуться не могу): есть Report1 и Report2, нужно отправить их по почте в ОДНОМ письме. В формате snapshot.

Двумя письмами отправить не проблема:

Function SendReports()
DoCmd.SendObject acReport, "Report1", "SnapshotFormat(*.snp)", "mail@yandex.ru", "", "", "", "", False, ""
DoCmd.SendObject acReport, "Report2", "SnapshotFormat(*.snp)", "mail@yandex.ru", "", "", "", "", False, ""
End Function

Пытался обойти через неведомые дали:

Sub SendMail()
DoCmd.OpenReport "Report1", acViewPreview 'открываем, иначе в коллекции отчетов не будет
DoCmd.OpenReport "Report2", acViewPreview

Dim oOutlook As Outlook.Application 'запускаем аутлук
Set oOutlook = Outlook.Application
Dim oMail As Outlook.MailItem 'создаем письмо
Set oMail = oOutlook.CreateItem(olMailItem)
Dim oAttach As Object 'переменная с приложениями к письму
Set oAttach = oMail.Attachments

With oMail
.To = "mail@yandex.ru" 'адрес e-mail для отправки письма, если несколько адресов e-mail, пишем, отделяя их точкой с запятой - ";"
.CC = "" 'копия
.Subject = "Отчеты" 'это тема письма
'.Body = "Это текст письма" 'вариант отправки определённого текста
'.Body = ActiveDocument.Selection 'вариант отправки выделенного текста
.Attachments.Add Reports.Item(1) 'КАМЕНЬ ЗДЕСЬ!: отчеты висят в оперативной памяти (если висят) и как и приаттачить непонятно. Можно было бы сохранить их на диск и подтянуть оттуда, но как их сохранять я тоже не нашел.
.Attachments.Add Reports.Item(2)
.OriginatorDeliveryReportRequested = True 'уведомление о доставке письма
.ReadReceiptRequested = True 'уведомление о прочтении письма
.Save ' сохраним письмо
' .Display 'показать окно письма, то есть показать открытую программу Outlook
.Send 'отправить письмо
End With

End Sub

Буду благодарен за любой дельный совет (кроме "воспользуйся гуглом")