问VBA未能向电子邮件中添加附件

EN

Public Sub DraftEmailWithAttachment(strTo As String, strSubject As String, _
                                    strBody As String, fileName As String)

    Dim oApp As Object
    Dim oEmail As Object

    Set oApp = CreateObject("Outlook.Application")
    Set oEmail = oApp.CreateItem(0)

    With oEmail
        .To = strTo
        .subject = strSubject
        .Attachments.Add fileName
        .display
        .HTMLBody = strBody & oEmail.HTMLBody
    End With

End Sub

Private Sub btnEmailActionItems_Click()

    Dim fileName As String
    Dim todayDate As String
    Dim strTo As String
    Dim strSubject As String
    Dim strBody As String
    Dim filter As String

    Dim oApp As Object
    Dim oEmail As Object

    Set oApp = CreateObject("Outlook.Application")
    Set oEmail = oApp.CreateItem(0)

    strTo = Nz(Me.cboUnderwriter.Column(2), "")
    strSubject = Nz(Me.txtNamedInsured.Value, "") & " - " & _
                 Nz(Me.txtSubmissionNumber.Value, "") & " - " & _
                 Nz(Me.txtQuoteNumber.Value, "")

    strBody = "Hello " & Me.cboUnderwriter.Column(3) & ", <br/><br/>"
    todayDate = Format(Date, "MM.DD.YYYY")
    fileName = "C:\Users\crewsj3\Desktop\tmp\Action Items Report -" & _
                strSubject & " " & todayDate & ".pdf\"

    filter = "submission_number=" & Nz(Me.txtSubmissionNumber.Value, "")

    'generate filtered report
    Call ExportFilteredReportToPDF("rptActionItemsForAllPolicies", fileName, filter)

    'generate email
    Call DraftEmailWithAttachment(strTo, strSubject, strBody, fileName)

End Sub