Mover elementos a una subcarpeta especificada dentro de Outlook según ReceivedTime
Estoy tratando de mover elementos de Outlook, sin embargo, el código se ejecuta sin mensajes de error pero no se mueven correos electrónicos.
Esto me lleva a creer lo necesarioIF condition
nunca se cumple? Sin embargo, podría estar equivocado.
Por favor encuentre el código a continuación.
Sub Gatekeeper()
Dim aItem As Object
Dim mail As Object
Dim strTime As String
Dim Items As Outlook.Items
Dim olNs As Outlook.NameSpace
Dim subfolder As Outlook.MAPIFolder
Set olNs = Application.GetNamespace("MAPI")
Set mail = olNs.GetDefaultFolder(olFolderInbox)
Set Items = mail.Items
For Each aItem In Items
strTime = aItem.ReceivedTime
If strTime > #6:00:00 PM# And strTime < #5:30:00 AM# Then
Set subfolder = mail.Folders("Nights")
aItem.Move subfolder
End If
Next aItem
End Sub