Установка правила для входящей почты (прочитанной или непрочитанной)

Question

Мне нужен небольшой совет по Outlook 2010.

Существует такая ситуация:- одна учетная запись веб-почты, которая используется несколькими людьми (используя веб-браузер или телефон для доступа к ней)- один компьютер с клиентом MS Outlook 2010, подключенным к этой веб-почте (через IMAP)

Мой вопрос:- возможно ли установить такое правило, которое всегда копировало бы любую входящую электронную почту в данную папку?

Текущая проблема:- возможно установить правило, которое копирует входящее электронное письмо в указанную папку, но это электронное письмо должно быть помечено как «непрочитанное» ... если это электронное письмо уже было прочитано кем-то еще на другое устройство, использующее, например, доступ к веб-почте через телефон; после открытия Outlook это письмо не будет скопировано в данную папку.

Любая идея, как решить эту проблему, пожалуйста?

Answer 1

Следующий код VBA переместит копию входящего электронного письма и пометит его как непрочитанное.

Создать правило и применить к полученным сообщениям -> Далее -> Далее -> Выполнить скрипт

Option Explicit
Public Sub MoveItems(olItem As Outlook.MailItem)
    Dim olApp As New Outlook.Application
    Dim olNameSpace As Outlook.NameSpace
    Dim olInbox As Outlook.MAPIFolder
    Dim olDestFolder As Outlook.MAPIFolder
    Dim olItems As Outlook.Items
    Dim CopyItem As Object

    Set olNameSpace = olApp.GetNamespace("MAPI")
    Set olInbox = olNameSpace.GetDefaultFolder(olFolderInbox)
    Set olItems = olInbox.Items

    '// loop
    While TypeName(olItem) <> "Nothing"
        Set olDestFolder = olInbox.Folders("TEMP") '// Folder Name
        Set CopyItem = olItem.Copy
        olItem.Move olDestFolder
        olItem.UnRead = True '// <- Mark UnRead
        Set olItem = olItems.FindNext
    Wend
    '// Clean up
    Set olNameSpace = Nothing
    Set olInbox = Nothing
    Set olDestFolder = Nothing
    Set olItems = Nothing
    Set olItem = Nothing
    Set CopyItem = Nothing
End Sub