VBA电子邮件附件问题

时间:2017-06-06 16:35:32

标签: vba email attachment access email-attachments

我有一个数据库,通过电子邮件向个人发送特定于该人的附件,但随后它还包含两个附加的静态附件,与每封电子邮件一起使用。

我的问题是偶尔我会收到一条错误消息,说它无法找到一个或两个静态附件。当我重命名附件并使用新名称更新代码时,它继续工作。它不会一直这样做,例如它能够完成所有188封电子邮件而没有任何问题,但在今天之前就已经发生了。

这只发生在一个或两个静态附件上。附加即时创建的PDF没有问题。以下是我的代码。

    'Begin Email Attachment
    varAttachmentName = varDBPath & "Quarterly Estimate Report - Admin " & [Forms]![frmEmailer]![AdminID] & ".xlsx"
    If FileExists(varAttachmentName) Then
        SetAttr varAttachmentName, vbNormal
        Kill varAttachmentName
    End If
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Quarterly Estimate Report", varAttachmentName, True
    Call AutoFitExcel(varAttachmentName)
    .Attachments.Add (varAttachmentName)
    varAttachmentName = varDBPath & "Fax_Back_Sheet.pdf"
    If FileExists(varAttachmentName) Then
        SetAttr varAttachmentName, vbNormal
        Kill varAttachmentName
    End If
    DoCmd.OutputTo acOutputReport, "rptFaxBackSheet", acFormatPDF, varAttachmentName
    .Attachments.Add (varAttachmentName)
    varAttachmentName = varDBPath & "Quarterly_Estimate_Instructions.docx"
    .Attachments.Add (varAttachmentName)
    'End Email Attachment

0 个答案:

没有答案