Доступ - электронная почта с приложенным отчетом в формате PDF

email access-vba access

92 просмотра

2 ответа

5 Репутация автора

У меня есть база данных, которая в настоящее время отправляет электронные письма всем сотрудникам, у которых есть запись, показывающая как просроченную.

У меня также есть отчет, который автоматически сохраняется в формате PDF каждый день с указанием просроченных записей.

Я хотел бы, чтобы электронное письмо отправлялось, чтобы прикрепить новейший отчет в формате PDF из папки сохраненных отчетов.

В настоящее время у меня есть код ниже для вложенной части моего электронного письма, но я не уверен, как заставить это делать то, что я хочу, как указано выше:

strAtt = Array("J:\performancereview\coaching\ " & ".pdf")

Любые идеи были бы хорошы? Спасибо

Автор: a_stead89 Источник Размещён: 19.07.2016 08:20

Ответы (2)


0 плюса

585 Репутация автора

Решение

Вы делаете это на индивидуальной основе или в цикле всего персонала?

Мы делаем нечто подобное в нашей системе. Мы работаем с ним в цикле запросов.

Общая идея о том, как мы это делаем:

Dim pdfFileName as string
Dim permail as string

'Open an Rst Record Set

pdfFileName = "Y:\Personnell\" & rst!ID & newfolder & ".pdf" ' Rst!ID is from the query.
permail = rst![email]

'Save the report from access report using the pdfFileName name construct.

               With oMail
                    .to = permail
                    .htmlBody = "Email Body" ' Enter your email body here
                    .Subject = "Email Subject" ' Enter email subject here
                    .Attachments.Add (pdfFileName)
                    .Send


                End With
rst.MoveNext

Loop
Автор: Dave B Размещён: 19.07.2016 10:49

0 плюса

76 Репутация автора

Я нашел самый простой способ - использовать дату в имени файла. Если вы включите дату в название PDF, например. overdue01012016.pdf каждый день

stratt = "reportfolderpath\" & "overdue" & replace(date(),"/","") & ".pdf"
Автор: John W Fowler Размещён: 31.07.2016 01:18
Вопросы из категории :
32x32