Script para sacar datos adjuntos de outlook?

Por he encontrado en la web de Portal+Tips el siguiente Script para ejecutar desde una regla de Outlook:

VBScript que guarda todos los archivos recibidos (No remplaza existentes agrega la fecha al archivo)

Public Sub saveAttachtoDisk (itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String Dim dateFormat dateFormat = Format(Now, "yyyy-mm-dd H-mm") saveFolder = "C:Archivos" For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "" & dateFormat & " - "& objAtt.DisplayName Set objAtt = Nothing Next End Sub

Este código entiendo que añade la fecha y hora del momento en el cual ejecuta el script y/o se ejecuta la regla.

Yo lo que necesitaría es que añada la fecha y hora que aparece en el correo porque cada archivo es una extracción del sistema correspondiente a un día y un turno. Si me voy de vacaciones o falto unos días, al abrir el outlook y ejecutar el script me pondría la misma fecha a todos los archivos que estén "en cola".

¿Alguien sabe cómo hacer esto?