Como eu baseio uma regra do outlook no número de endereços “Para:”?

Question

Eu gostaria de criar uma regra do Outlook que me impeça de enviar e-mails com mais de dez endereços de e-mail na linha "Para:". Isso é possível? Estou usando o Outlook 2010 no Windows 7 de 64 bits.

Meu raciocínio: Eu envio uma carta de distribuição para um grande número de endereços. Eu geralmente envio este e-mail para mim com os endereços da lista de distribuição na linha "BCC:". De vez em quando eu estrago e acidentalmente coloco os endereços da lista de distribuição na linha "Para:". Isso é um problema porque cada destinatário de e-mail verá todos os endereços da lista. Eu quero que o Outlook me impeça de fazer isso, ou pelo menos me avise antes de enviá-lo.

Também saúdo sugestões sobre como contornar este problema.

    

Answer 1

Não há uma maneira integrada de fazer isso, mas você pode conseguir isso com uma macro.

Etapas ¹ :

1. No Outlook, pressione Alt + F11 para abrir o Microsoft Visual Basic .

2. No lado esquerdo da tela, expanda a pasta chamada Microsoft Office Outlook e clique duas vezes em ThisOutlookSession . ²

3. Na janela VbaProject.OTM - TheOutlookSession , selecione Aplicativo à esquerda e ItemSend no menu suspenso à direita . ²

4. Substitua o código que apareceu no corpo da janela da seguinte forma:

   Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
       Dim Recipients As Integer
       Dim Start As Integer
       Dim Last As Integer
       Recipients = 1
       Do
           Start = Last + 1
           Last = InStr(Start, Item.To, ";")
           If Last = 0 Then Exit Do
           Recipients = Recipients + 1
       Loop
       If (Recipients > 10) Then
           Cancel = (MsgBox(Str(Recipients) & " recipients in To field.", vbOKCancel) = vbCancel)
       End If
   End Sub
   

5. Pressione Ctrl + S para salvar.

6. Pressione Alt + Q para retornar ao Outlook.

Esta macro exibirá um aviso se houver mais de 10 destinatários no campo Para (com base no número de ponto e vírgula usado para delimitar os destinatários). Você pode clicar em OK para ignorar o aviso ou Cancel para abortar. ³

¹ Estou usando o Outlook 2007 (em espanhol). Espero que o Outlook 2010 seja semelhante.

²

³

    

Answer 2

Infelizmente, isso não é possível com o Outlook. Enquanto você pode usar soluções de terceiros para limitá-lo (ou seja, Thunderbird), você perde a funcionalidade do próprio Outlook. Esta é realmente uma ótima pergunta, e eu adoraria ver a Microsoft fornecer um controle melhor sobre o que você pode e não pode enviar!

    

Answer 3

Eu peguei a resposta do Sudo e contei os destinatários no CC e no BCC, apenas no caso de alguém desejar:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim Recipients As Integer
    Dim Start As Integer
    Dim Last As Integer
    Dim RecipientFields As String
    Recipients = 1

    RecipientFields = Item.To

    If (Item.CC <> "") Then
        RecipientFields = RecipientFields + ";" + Item.CC
    End If

    If (Item.BCC <> "") Then
        RecipientFields = RecipientFields + ";" + Item.BCC
    End If

    Do
        Start = Last + 1
        Last = InStr(Start, RecipientFields, ";")
        If Last = 0 Then Exit Do
        Recipients = Recipients + 1
    Loop

    If (Recipients > 6) Then
        Cancel = (MsgBox("You have " & Str(Recipients) & " recipients in To/CC/BCC fields.  Click OK to send.", vbOKCancel) = vbCancel)
    End If
End Sub