Экспорт активного листа в PDF, сохранение с динамическим именем файла и прикрепление к созданному электронному письму

Question

Создан код для экспорта активного листа в формате PDF с динамическими диапазонами в качестве имени файла, сохраняемого в определенный центральный каталог (необходимо прикрепить этот созданный файл PDF к электронной почте Outlook). Все работает хорошо, за исключением того, что сохраненный PDF-файл не прикреплен

Private Sub cbSubmitRFC_Click()
'Submit RFC button coding, send worksheet(RFC) as pdf attachment to Credit Mailbox

    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xActiveSheet As Object
    Dim xMailBody As String

    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)

    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next

    ChDir "M:\Credits 2019\Submitted RFC's"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "M:\Credits 2019\Submitted RFC's\" & Range("I8").Value & " " & "CN" & Range("E14").Value & " " & "Inv" & Range("H11") & ".pdf"

    With xOutMail
        .To = "LS_CreditRequests@general.com"
        .CC = ""
        .BCC = ""
        .Subject = "RFC" & " " & Range("I8") & " " & "Acc No." & Range("E8") & " " & "CN" & Range("E14") & " " & "Inv No." & Range("H11")
        .Attachments.Add
        .Attachments.Save
        .Display

    End With

    MsgBox ("RFC Successfully Submitted")

    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Я подозреваю, что проблема в приведенной ниже части, но не знаю, как правильно кодировать, чтобы прикрепить недавно сохраненный PDF-файл. Ранее имел следующий код (который создает вложение «ActiveWorkbook» в формате Excel, а не сохраненный PDF)

.Attachments.Add (ActiveWorkbook.FullName)