Ms access 使用access vba发送附件

我正在使用下面的代码。它可以在没有代码附件行的情况下工作。但是，一旦我添加了附件行，如果我发现一个错误，并且无法解决如何更正它：

    Dim Email
Dim CC
Dim objOutlook    As Object
Dim objEmail      As Object
Dim db As Database
Dim rec As Recordset

'Export report in same folder as db with date stamp
todayDate = Format(Date, "MMDDYYYY")
fileName = Application.CurrentProject.Path & "\XXDispute_" & todayDate & ".pdf"
DoCmd.OutputTo acReport, "XXDispute", acFormatPDF, fileName, False

strItem = "http://schemas.microsoft.com/cdo/configuration/"
strFrom = "XX Disputes <asd@asd.com>"

Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = CreateObject("CDO.Message")

With objEmail

    .To = "asd@asd.com"
    .CC = ""
    .From = strFrom
    .Subject = "XXDispute Report: " & Now()
    .Textbody = "Your XX dispute has been reviewed and responded to:" & vbNewLine & vbNewLine
    .Attachments Add = fileName


With .Configuration.Fields
        .Item(strItem & "sendusing") = 2
        .Item(strItem & "smtpserver") = "mailhost"
        .Item(strItem & "smtpserverport") = 25
        .Update
    End With
    .Send
End With

---

您应该能够看到该行的错误语法。

    .Attachments Add = fileName