Regra do Outlook 2010: Mover a mensagem se for maior que 5 destinatários

0

A única vez que recebo e-mails com cinco ou mais destinatários é quando as fofocas do escritório estão acontecendo. 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? Eu não consegui encontrar nada parecido com as regras padrão, não tinha certeza se você poderia VB a regra. Qualquer insight é apreciado.

    
por kingkode 06.02.2013 / 22:09

1 resposta

0

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

Este script recebe todos os e-mails recebidos e conta os destinatários no campo To: , se a contagem de destinatários for maior que 5, marca como lida e move para uma pasta Gossip .

Há também uma condição secundária para verificar se o assunto contém CVS (recebemos atualizações de nosso sistema de versão simultânea que tem 10 destinatários) e movemos 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 isso não estiver no formato mais formal e sei que ele pode ser organizado um pouco melhor, mas essa foi minha primeira tentativa de usar qualquer sintaxe do Visual Basic.

    
por 08.02.2013 / 20:46