статья полезная.
аюсь переместить элементы Outlook, однако код работает без сообщений об ошибках, но электронные письма не перемещаются.
Это приводит меня к убеждению о необходимостиIF condition
никогда не встречал? Однако я могу ошибаться.
Пожалуйста, найдите код ниже.
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