Макрос Outlook, который прикрепляет определенный файл

Question

Мне нужно отправлять некоторые электронные письма на работе ежедневно. Я хочу сделать это быстро и легко. Я пытаюсь создать макрос, который отвечает на выбранное письмо с шаблоном и прикрепляет определенный файл с компьютера. Однако у меня возникли проблемы с прикреплением файла. Проблема в том, что в названии файла указана дата, поэтому он меняется каждый день. Ниже моего кода, надеюсь, вы можете дать некоторое руководство.

Sub ColorReply()

    Dim spath As String
    NM = "GSAM USD Additional colors "

    Dim origEmail As MailItem
    Dim replyEmail As MailItem
    Dim dateFormat As String
        dateFormat = Format(Now, "YYYYMMDD")

        spath = "C:\Users\U6072591\Documents\MoneyMarkets\Color" & Format(Now, "YYYYMMDD") & "\"

    Set origEmail = Application.ActiveWindow.Selection.Item(1)
    Set replyEmail = Application.CreateItemFromTemplate("C:\Users\U6072591\AppData\Roaming\Microsoft\Templates\Test.oft")

    replyEmail.Attachments.Add "spath" & "NM" & Format(Now, "yyyymmdd") & ".xls"

    replyEmail.To = origEmail.Sender
    replyEmail.CC = origEmail.CC
    replyEmail.Subject = "Re: " & origEmail.Subject

    replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
    replyEmail.Display

End Sub