☰

Regra do Outlook 2010: Mover mensagem se houver mais de 5 destinatários

tag-icon • tag-icon microsoft-outlook-2010 email-filter
Regra do Outlook 2010: Mover mensagem se houver mais de 5 destinatários

A única vez que recebo e-mails com mais de 5 destinatários é quando há fofocas no escritório. Eu adoraria criar uma regra/filtro para mover qualquer mensagem recebida com mais de 5 destinatários para uma pasta de lixo eletrônico.

Isso é possível com o Outlook 2010? Não consegui encontrar nada parecido nas regras padrão, não tinha certeza se você poderia VB a regra. Qualquer visão é apreciada.

Responder1

Escrevi o script VBA usando recursos do StackOverflow e SuperUser se alguém estiver interessado.

Este script pega todos os e-mails recebidos e conta os destinatários no To:campo, se a contagem de destinatários for maior que 5, marca-o como lido e move-o para uma Gossippasta.

Há também uma condição secundária para verificar se o assunto contém CVS(obtemos atualizações de nosso sistema de versão simultânea que possui 10 destinatários) e movê-lo para a pasta apropriada.

Sub moveOfficeGossip(item As Outlook.MailItem)

    Dim strNames As String, i As Integer, j As Integer, cvs As String
    Dim olApp As New Outlook.Application
    Dim olNameSpace As Outlook.NameSpace
    Dim olDestFolder As Outlook.MAPIFolder

    j = 1
    cvs = "CVS"
    strNames = item.To
    Set olNameSpace = olApp.GetNamespace("MAPI")

    For i = 1 To Len(strNames)
        If Mid(strNames, i, 1) = ";" Then j = j + 1
    Next i

    If (j >= 5) Then
        If InStr(UCase(item.subject), cvs) Then
            Set olDestFolder = olNameSpace.Folders("Personal Folders").Folders("Filtered").Folders("CVS")
            item.Move olDestFolder
        Else
            Set olDestFolder = olNameSpace.Folders("Personal Folders").Folders("Filtered").Folders("Gossip")
            item.UnRead = False
            item.Move olDestFolder
        End If
    End If

End Sub

Peço desculpas se não estiver no formato mais formal e sei que pode ser organizado um pouco melhor, mas esta foi minha primeira tentativa de usar qualquer sintaxe do Visual Basic.

informação relacionada