Outlook VBA сохраняет вложения с датой и временем из тела письма в именах файлов - PullRequest
Новая
       15

Outlook VBA сохраняет вложения с датой и временем из тела письма в именах файлов

0 голосов
/ 04 марта 2019

Я очень мало знаю о vba, и мне удалось уйти от того, чтобы брать кусочки из переполнения стека.В настоящее время VBA, которую я использую, сохраняет вложения от моих камер безопасности с отправленной датой и временем в именах файлов как «2019-03-03 D06-13-26-19 3..jpg» («D06» id номер камеры и«3» - третье изображение / вложение)

Я хотел бы использовать «ВРЕМЯ СОБЫТИЯ» (дата и время) из тела письма и не знаю, как.

Тело электронной почты: 

 This is an automatically generated e-mail from your NVR.

 EVENT TYPE:    Motion Detected
 EVENT TIME:    2019-03-04,05:55:14
 NVR NAME:      NVR 15
 NVR S/N:       1620151014AARR053855353WCVU
 CAMERA NAME(NUM):   6(D6)

Вложения электронной почты: 

D04-1.jpg, D04-2.jpg, D04-3.jpg

Мой код VBA: 

     Public Sub saveAttachOnArrivalHome(itm As Outlook.MailItem)
     Dim objAtt As Outlook.Attachment
     Dim saveFolder As String

     Dim file As String
     Dim dateFormat As String
     Dim TimeFormat As String
     dateFormat = Format(itm.SentOn, "yyyy-mm-dd ")
     TimeFormat = Format(itm.SentOn, "hh-mm-ss ")

     saveFolder = "F:\Users\Tom\Documents\OLAttachments99\"
     For Each objAtt In itm.Attachments
     file = saveFolder & dateFormat & Left(objAtt.DisplayName, 4) & 
     TimeFormat & Mid(objAtt.DisplayName, 5, 2) & ".jpg"
     objAtt.SaveAsFile file
         Set objAtt = Nothing
     Next
     End Sub

Заранее благодарен за помощь!

...