Ir para o conteúdo principal

Como copiar automaticamente todos os e-mails que você envia no Outlook?

Ao enviar uma mensagem de e-mail e tiver um destinatário secreto permanente, mas não quiser que os outros destinatários vejam o endereço, você deve usar a função Cco. Mas quando precisamos bcc, temos que mostrar manualmente o campo bcc e selecionar um contato para ele. Para evitar essas operações manuais, o artigo a seguir mostrará como modificar o Outlook para Cco automaticamente um endereço de e-mail em todos os e-mails que você enviar.


Cco automático padrão no Outlook usando VBA

Você pode aplicar o código VBA abaixo para configurar a regra Cco automática no Outlook. Faça o seguinte:

1. aperte o outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

2. Clique duas vezes no Esta sessão do Outlookno painel Projeto e, a seguir, cole o código VBA na janela de abertura. Veja a imagem abaixo:

Código VBA: Cco automático ao enviar todos os e-mails

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next
    
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = ""
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

Nota: Substitua o "" no código acima com o endereço de e-mail para o qual você enviará o Cco.

3. Salve o código VBA e feche a janela Microsoft Visual Basic for Applications.

A partir de agora, você não precisa mais preencher o endereço no campo Bcc. Quando você envia um e-mail do Outlook, ele será automaticamente cco para o destinatário desejado conforme o código VBA é executado.


Cco automático no Outlook usando Kutools para Outlook

O código VBA acima é difícil e problemático para nós, iniciantes, aqui está uma ferramenta fácil e rápida - Kutools para o Outlook para ajudá-lo a Cco automaticamente todos os e-mails ou e-mails especificados que você envia no Outlook.

Kutools for Outlook: Ultimate Outlook toolkit com mais de 100 ferramentas úteis. Experimente GRATUITAMENTE por 60 dias, sem limitações, sem preocupações!   Leia mais...   Comece a avaliação grátis agora!

Depois de instalar o Kutools for Outlook, faça o seguinte:

1. Clique Kutools > Auto CC/BCC > Gerente de regras, veja a captura de tela:

2. No Gerenciador de CC automático / CCO caixa de diálogo, clique em Novo botão.

3. No Assistente de regras, especifique as condições pelas quais você filtrará os emails. No meu caso, eu marquei o com palavras específicas no corpo opção e, em seguida, clique no texto sublinhado de palavras específicas para editá-lo.

4. Na caixa de diálogo Texto contém, clique no Novo botão para adicionar novas palavras.

5. Na caixa de diálogo Pesquisar texto, digite uma palavra no Novo Texto de Pesquisa caixa, clique no Adicionar botão e, em seguida, clique no botão OK botão.
Tips: Para adicionar várias palavras ao mesmo tempo, você precisa digitar uma palavra no Novo Texto de Pesquisa caixa e clique no Adicionar botão e, em seguida, repita esta operação para adicionar outras palavras uma por uma e, finalmente, clique no OK botão.

6. Agora, ele volta para a caixa de diálogo Text Contains. Se necessário, você pode clicar no Novo para adicionar outras palavras conforme necessário e, em seguida, clique no botão OK para salvar essas palavras.
Dicas: se você adicionar várias palavras na mesma caixa de texto de pesquisa simultaneamente, a relação entre essas palavras será "E". Se você adicionar várias palavras clicando no Novo botão sucessivamente, a relação entre essas palavras é "OR".

7. Em seguida, ele retorna ao Assistente de regras, especifique outras condições conforme necessário e clique no botão Próximo botão.

8. No segundo Assistente de regras, especifique as exceções ou não verifique nenhuma exceção conforme necessário e clique no botão Próximo botão.

9. No terceiro Assistente de regras, digite um nome para esta nova regra Cco no Nome da Regra caixa, insira descrições para a regra no Notas de regra caixa, clique no beneficiário botão para adicionar destinatários Cc ou Bcc, marque as opções de execução no Definir opções de regra seção e clique no OK botão.

10. No Auto CC / BCC Manager, certifique-se de que a nova regra Cc / Bcc esteja marcada e pressione o botão OK para fechar o diálogo.

11. Clique em Kutools> CC / BCC> Ativar CC / BCC automático na interface principal do Outlook para ativar a regra.

E clique no botão OK botão na caixa de diálogo de reconfirmação.

Até agora a regra Cco foi criada, ao enviar um e-mail, a mesma mensagem será enviada ao destinatário Cco ao mesmo tempo.

Notas:
(1) Com esta função, você pode definir o sempre CC regras também.
(2) Você pode criar várias regras conforme sua necessidade usando esta ferramenta.
(3) Se você deseja fechar as regras, você pode clicar Ativar CC / BCC automático, e todas as regras não funcionarão. Além disso, você pode desmarcar o nome das regras no Gerenciador de CC automático / CCO caixa de diálogo para desativar algumas regras especificadas.


Artigo relacionado:

Como me cc automaticamente sempre no Outlook?


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (53)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to send mail BCC & recipient recieve mail with Dear <Recipient>
This comment was minimized by the moderator on the site
Confirming this works for Outlook 2020, I just have 1 issue. How can I auto bcc FROM multiple accounts? My work issues us (2) separate emails different domains. Currently, when I send an email from both, I get the copy to the email entered in the code. I would like separate copies from whichever email is sending it. Any solutions?
This comment was minimized by the moderator on the site
How to set it up auto bcc to multiple email addresses?
in outlook 2013 only had to add an additional line shown as below
strBcc = ""
strBcc = ""
But outlook 2016 only took 2nd line to add onto bcc.
This comment was minimized by the moderator on the site
Try Kutools for Outlook's Auto Bcc feature!
This comment was minimized by the moderator on the site
same problem here, do u have a solution so far?
This comment was minimized by the moderator on the site
The VBA code works great. Thanks, but what if I want to bcc still, but only when sending to one specific email recipient?
This comment was minimized by the moderator on the site
Great job guyz. Thank you . Worked for Outlook 2016 . Wonder how can i check the From to Field in order to autobcc only from one account. BR Chris
This comment was minimized by the moderator on the site
Works great all day in Outlook 2010. Next day, it stopped working. I followed the instructions that SILUVIA ZHOU gave about macro security (without having to re-do the script) and it appears to work again.
This comment was minimized by the moderator on the site
Hi. Works great for my laptop and office PC but after using it for about 1 day, or sending about 20+ emails, this feature just doesn't work anymore on both my desktop and laptop. Anyone can help me out? I'm using outlook 2010 and 2013. Thanks!
This comment was minimized by the moderator on the site
Nice, very useful for me, Thanks
This comment was minimized by the moderator on the site
Hi guys, I have tried this code and whilst it does work, it only CC's and not BCC's. I only want emails that contain Ref, REF or ref in the subject line to be BCC'd. Is anyone able to check that I have it constructed correctly please? ******* Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Msg As Outlook.MailItem Dim onsMapi As Outlook.NameSpace Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String If Item.Subject = "Ref" Then strBcc = "" ElseIf Item.Subject = "ref" Then strBcc = "" ElseIf Item.Subject = "REF" Then strBcc = "" End If Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
This comment was minimized by the moderator on the site
If the "ref" is the only thing in your subject, then it should work fine. Although I would make a few small changes. If you put "Option Compare Text" above your first line (outside the sub) then when you're doing the comparison for your "If" statement, upper and lower case letters will be considered the same. So ref=REF=Ref=rEf=REf, etc. Then you can simplify your conditional to: [quote]If Item.Subject = "ref" then strBcc = ""[/quote] Personally, I would also add an [else strBcc = ""] just to cover your bases. Now, if you want to BCC emails that contain "ref" anywhere in the subject, you can try: [quote]If instr(Item.Subject,"ref",1) 0[/quote] The instr method searches the subject for "ref" and returns a number representing the character in the subject where "ref" starts. If it doesn't find "ref", it returns a 0. A disadvantage of using this method is that you may get some false positives (e.g. the subject contains the word "prefer"). If you want all emails with subjects that start with "ref" with anything following it, then you can use the following: [quote]If instr(Item.Subject,"ref",1) = 1[/quote] This is the same as the last one, except instead of getting all emails whose subjects contain "ref" anywhere, you'll only get emails whose subjects contain "ref" that starts with the first character.
This comment was minimized by the moderator on the site
Can we make this work with sent items that have attachments.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations