时间戳

首页 > 解决方案 > 访问 VBA 代码：使用 Outlook 单独保存和电子邮件输出

vba - 访问 VBA 代码：使用 Outlook 单独保存和电子邮件输出

问题描述

一直在尝试构建一个自动保存并将输出发送到每个 Email_ID 的 VBA 代码。刚开始在access中学习vba代码。

我在 DoCmd.SendObject 部分中遇到错误，“在此集合中找不到项目”。

如果有人可以帮助我解决此错误，我将不胜感激。

Private Sub Command_PDF_Click()

    Dim myrs As Recordset
    Dim myPDF, myStmt As String
    Dim oApp As New Outlook.Application, oEmail As Outlook.MailItem

    myStmt = "Select distinct Code1 from Query_Certificate_Eng"
    Set myrs = CurrentDb.OpenRecordset(myStmt)

    Do Until myrs.EOF

        myPDF = "C:\Users\93167\Desktop\Output Certificate\" & Format(myrs.Fields("Code1"), "0000000000000") & ".pdf"

        DoCmd.OpenReport "Certificate_Eng", acViewPreview, , "Code1 = '" & myrs!Code1 & "'"

        DoCmd.OutputTo objectType:=acOutputReport, objectName:="Certificate_Eng", outputformat:=acFormatPDF, outputfile:=myPDF, outputquality:=acExportQualityPrint
        
        DoCmd.SendObject objectType:=acSendReport, objectName:="Certificate_Eng", outputformat:=acFormatPDF, To:=myrs.Fields("Email_ID"), Subject:="Test", MessageText:="Test Message"
        
               
        DoCmd.Close
        myrs.MoveNext

    Loop

myrs.Close
Set myrs = Nothing
End Sub

标签： vbams-accessoutlook

解决方案

myStmt = "Select distinct Code1 from Query_Certificate_Eng"
Set myrs = CurrentDb.OpenRecordset(myStmt)
...
..., To:=myrs.Fields("Email_ID")

这行不通。您的记录集仅包含字段Code1，因此Email_ID将“在此集合中找不到”。

您必须在 SELECT 子句中包含它。

推荐阅读