Como impedir que os anexos sejam enviados aos destinatários em CC e CCO ao compor um e-mail no Outlook?

Como todos sabem, todos os destinatários nos campos «Para», «CC» ou «CCO» recebem os anexos ao enviar e-mails com ficheiros em anexo. No entanto, alguns utilizadores pretendem que apenas os destinatários em «Para» recebam os anexos, enquanto os de «CC» e «CCO» recebem apenas a mensagem, sem os ficheiros em anexo. Como pode resolver esta tarefa no Outlook?

Impedir o envio de anexos aos destinatários em CC e CCO ao compor um e-mail com código VBA

---

Impedir o envio de anexos aos destinatários em CC e CCO ao compor um e-mail com código VBA

Na verdade, o Outlook não oferece uma opção nativa para realizar esta tarefa, mas o código VBA abaixo pode ajudá-lo. Siga estes passos:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo em branco.

Código VBA: Impedir o envio de anexos aos destinatários em CC e CCO:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As Outlook.MailItem
Dim xNewMail As Outlook.MailItem
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
With xNewMail
    .CC = xMailItem.CC
    .BCC = xMailItem.BCC
    .Subject = xMailItem.Subject
    .HTMLBody = xMailItem.HTMLBody
    .Send
End With
xMailItem.CC = ""
xMailItem.BCC = ""
End Sub

3. Em seguida, guarde e feche a janela do código.

4. A partir de agora, ao enviar um e-mail com anexos, apenas os destinatários no campo «Para» recebem os anexos — os que estiverem em «CC» e «CCO» recebem apenas a mensagem, sem os ficheiros anexos.