Definindo uma regra para uma mensagem recebida (lida ou não lida)

Question

Preciso de um pequeno conselho sobre o Outlook 2010.

Existe esta situação: - uma conta de webmail usada por várias pessoas (usando o navegador ou telefone para acessá-lo) - um computador com o cliente do MS Outlook 2010 conectado a este webmail (via IMAP)

Minha pergunta é: - é possível definir uma regra que sempre copie qualquer email recebido para uma determinada pasta?

A questão atual: - é possível definir uma regra que copie os e-mails recebidos para uma determinada pasta, mas que o e-mail deve ser marcado como "não lido" ... se este e-mail já tiver sido lido por outra pessoa em um dispositivo diferente usando o acesso via webmail via telefone, por exemplo; depois de abrir o Outlook, este e-mail não será copiado para essa pasta.

Alguma ideia de como resolver este problema, por favor?

    

Answer 1

Após o Código VBA, você moverá a cópia do e-mail recebido e marcará como UnRead

Criar regra e aplicar nas mensagens que recebo - > Próximo - > Próximo - > Executar script

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