Question

我有一个数据库，目前通过电子邮件发送所有记录显示过期的员工。

我还有一份报告，每天自动保存为PDF，显示任何逾期记录。

我希望发送的电子邮件附加已保存报告文件夹中的最新 PDF报告。

目前我的电子邮件附件中有以下代码，但我不确定如何按照上述方式执行此操作：

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

任何想法都会受到赞赏吗？谢谢

Answer 1

您是在个人入职基础上还是在所有员工的循环中这样做？

我们在我们的系统中做了类似的事情。我们在查询循环上运行它。

我们如何做到的一般想法是：

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

Answer 2

我发现最简单的方法是在文件名中使用日期。如果您在pdf的名称中包含日期，例如。每天过期01012016.pdf

stratt = "reportfolderpath\" & "overdue" & replace(date(),"/","") & ".pdf"

访问 - 带附加PDF报告的电子邮件

2 个答案: