Сохранение и перемещение входящих писем из Outlook

Sub test_mail()
    Const SAVE_FOLDER As String = "D:\temp"
    Const NAME_FIRST_LEN As Integer = 9
    Const NAME_SECOND_START As Integer = 11
    Const NAME_SECOND_LEN As Integer = 5
    Const DATE_FORMAT As String = "yyyy-mm-dd_hhmmss"
    Const MSG_FORMAT As String = "msg"
    
    Dim oSelection As Selection
    Dim oItem As MailItem
    Dim i As Long
    Dim fold_name As String
    Dim sdt As String
    
    
    Set oSelection = Outlook.ActiveExplorer.Selection
    
    For i = 1 To oSelection.Count
        If oSelection.Item(i).Class = olMail Then
            Set oItem = oSelection.Item(i)
            fold_name = oItem.Parent.Name
            sdt = Format(Now, DATE_FORMAT)
            oItem.SaveAs SAVE_FOLDER & "" & Left(fold_name, NAME_FIRST_LEN) & "_" & sdt & "_" & Mid(fold_name, NAME_SECOND_START, NAME_SECOND_LEN) & " - " & i & "." & MSG_FORMAT
        End If
    Next i
End Sub

Dim objFolder2 As Outlook.Folder
Set objFolder2 = Application.GetNamespace("MAPI").Folders(1).Folders("Итоги").Folders("В работу")
'Set objFolder2 = Application.GetNamespace("MAPI").Folders("Личные папки").Folders("Итоги").Folders("В работу")
 
'По мере необходимости :   
oItem.Move objFolder2

MsgBox Format(oItem.ReceivedTime, "hhnnss")   '"hhmmss"
MsgBox Format(oItem.ReceivedTime, "hh_nn_ss") '"hh_mm_ss"

Sub IsItMailItem1()
        Dim MailItem1 As MailItem
        Dim myinspector As Outlook.Inspector
        Dim objMail As MailItem
        Dim Object1 As Object
        Set Object1 = Application.ActiveExplorer.Selection.Item(1)
        MsgBox Format(oItem.ReceivedTime, "hhnnss")   '"hhmmss"
             End Sub

datrrr = Format(oItem.ReceivedTime, "dd.mm.yyyy_hhnnss")

oItem.SaveAs SAVE_FOLDER & "" & imya & "_" & datrrr & "." & MSG_FORMAT

Const SAVE_FOLDER As String = "D:\temp\"
 
datrrr = Format(oItem.ReceivedTime, "_dd.mm.yyyy_hhnnss")
 
MsgBox SAVE_FOLDER & imya & datrrr & ".msg"