Автосохранение вложений Outlook с использованием полученной даты (минус 1 календарный день)

Question

Справочная информация. Я получаю несколько ежедневных отчетов об инфекционном контроле в формате pdf из нашей системы электронных медицинских карт через приложения электронной почты Outlook.

Запрос. Учитывая большое количество отчетов, я пытаюсь найти способ автоматического сохранения вложений с использованием правила Outlook. В настоящее время код, который я использую, работает только для сохранения вложения с соответствующей датой получения. Тем не менее, эти медицинские отчеты в значительной степени отражают данные предыдущего дня. Поэтому мне было интересно, как бы я отформатировал этот код так, чтобы он занимал полученную дату вложения электронной почты меньше (минус) 1 дня и автоматически сохранял ее в указанном месте?

Вот что у меня есть:

Sub Save_DailyFluReport(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim dateFormat As String
Dim saveFolder As String

dateFormat = Format(itm.ReceivedTime, "dd-mmmm-yyyy")
saveFolder = "Z:\Infection Control\IP Daily Surveillance Reports"
    For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "\" & dateFormat & " - " & objAtt.DisplayName
        Set objAtt = Nothing
     Next
End Sub

Answer 1

Я понял это!Надеюсь, что это решение может помочь кому-то еще в будущем.

Sub Save_DailyFluReport(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim dateFormat As String
Dim saveFolder As String

dateFormat = Format(DateSerial(Year(itm.ReceivedTime), Month(itm.ReceivedTime), Day(itm.ReceivedTime) - 1), "dd-mmmm-yyyy")
saveFolder = "Z:\Infection Control\IP Daily Surveillance Reports"
    For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "\" & dateFormat & " - Daily Flu Report.pdf"
        Set objAtt = Nothing

     Next
End Sub