Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

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

Quando você envia uma mensagem de e-mail e tem um destinatário secreto permanente, mas não quer que os outros destinatários vejam seu endereço, você deve usar a função bcc. Mas quando precisamos de bcc, temos que mostrar manualmente o campo bcc e selecionar um contato para ele. Para evitar essas operações manuais, o seguinte artigo irá mostrar-lhe como modificar a perspectiva para automaticamente um endereço de e-mail em todos os emails enviados.

Autocódigo automático padrão no Outlook usando o VBA

Auto bcc no Outlook usando o Kutools for Outlook

Auto Cc ou Bcc todos os emails enviados para destinatários especificados (eu) no Outlook

Fornecido por Kutools para Outlook, recurso Auto CC / BCC. Clique para uma avaliação gratuita do 60-dia sem limitação!
auto cc para mim

Guia do Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - Traz Recursos Avançados Poderosos do 100 para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar email; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor de troca e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos, se o seu endereço de e-mail estiver na lista BCC; Lembrar quando faltam anexose mais lembrar recursos ...
  • Responder (todos) com todos os anexos na conversa por email; Responder muitos e-mails de uma só vez; Auto Adicionar saudação quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de anexos: Auto desanexar, compactar tudo, renomear tudo, salvar automaticamente todos ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails duplicados e contatos ...
  • Mais do que os recursos avançados do 100 resolver a maioria dos seus problemas no Outlook 2010-2019 e 365. Recursos completos Avaliação gratuita de um dia de 60.

arrow blue right bubble Padrão auto bcc no outlook usando o VBA

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

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

2. Clique duas vezes no ThisOutlookSessionno painel do projeto e, em seguida, cole abaixo o código VBA na janela de abertura. Veja a tela abaixo:

Código VBA: Auto bcc ao enviar todos os emails

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 = "SomeEmailAddress@domain.com"
    
    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

Observação: Substitua o "SomeEmailAddress@domain.com" no código acima com o endereço de e-mail ao qual você irá.

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

De agora em diante, você não precisa preencher o endereço no campo Bcc. Quando você envia e-mails de sua perspectiva, ele automaticamente ganhará o destinatário desejado conforme o código VBA estiver executando.


arrow blue right bubble Auto bcc no Outlook usando o Kutools for Outlook

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

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

1. Clique Kutools > Auto CC / BCC > Ativar Auto CC / BCC (Ou Auto CC / BCC Manager), veja a captura de tela:
doc auto bcc kto 1

2. No Auto CC / BCC Manager caixa de diálogo, clique em Novo botão. Veja a tela abaixo:

3. Na caixa de diálogo de abertura Auto CC / BCC, digite um nome para esta nova regra Bcc no Nome da Regra caixa, verifique Todos os e-mails de saída opção no filtros seção e clique no Destinatários botão. Veja a tela acima:

4. Então, você pode inserir seu endereço de e-mail que deseja cc no Bcc -> caixa de texto, ou você pode selecionar o endereço que deseja cco da lista e clique em Bcc -> para colocar o endereço no campo correspondente, e clique no botão OK botão. Veja a tela abaixo:

5. E agora ele retorna ao Auto CC / BCC caixa de diálogo, o endereço especificado que você deseja cco foi inserido no CC / BCC Nome do Destinatário caixa, clique no botão OK para salvar a configuração. E então clique no OK na caixa de diálogo Auto CC / Bcc Manager. Veja a tela abaixo:

Até agora, a regra bcc foi criada, quando você enviou um e-mail, a mesma mensagem enviará ao destinatário bcc ao mesmo tempo, e esta regra é aplicada a qualquer conta em seu Outlook.

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


arrow blue right bubbleDemo: Auto bcc no Outlook com Kutools para Outlook

Ponta: Neste vídeo, Kutools A aba é adicionada por Kutools for Outlook. Se você precisar, clique em aqui para fazer uma avaliação gratuita do 60-dia sem limitação!


arrow blue right bubbleArtigo relacionado:

Como me cc automaticamente sempre no Outlook?


Kutools for Outlook - traz os recursos avançados do 100 para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar email; Avanço automático Vários e-mails personalizados Resposta automatica sem servidor de troca e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta responder a todos se o seu endereço de e-mail estiver na lista de BCC; Lembrar quando faltam anexose mais lembrar recursos ...
  • Responder (todos) com todos os anexos na conversa de email; Responder muitos e-mails em segundos; Auto Adicionar saudação quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Auto Detach, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar mensagens selecionadas...
  • Lixo Eletrônico Poderoso pelo costume; Remover emails e contatos duplicados... Permitir que você faça de forma mais inteligente, rápida e melhor no Outlook.
tiro kutools outlook kutools aba 1180x121
tiro kutools outlook kutools mais aba 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    IT works but.. · 1 years ago
    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 = "SomeEmailAddress1@domain.com"
    strBcc = "SomeEmailAddress2@domain.com"
    But outlook 2016 only took 2nd line to add onto bcc.
    • To post as a guest, your comment is unpublished.
      kellytte · 11 months ago
      Try Kutools for Outlook's Auto Bcc feature!
    • To post as a guest, your comment is unpublished.
      steve · 1 years ago
      same problem here, do u have a solution so far?
  • To post as a guest, your comment is unpublished.
    Ty · 1 years ago
    The VBA code works great. Thanks, but what if I want to bcc still, but only when sending to one specific email recipient?
  • To post as a guest, your comment is unpublished.
    Chris · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Michael Z · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Clement · 3 years ago
    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!
  • To post as a guest, your comment is unpublished.
    Adhie Sastro Sadewo · 3 years ago
    Nice, very useful for me, Thanks
  • To post as a guest, your comment is unpublished.
    Andy · 3 years ago
    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 = "email@email.com"
    ElseIf Item.Subject = "ref" Then
    strBcc = "email@email.com"
    ElseIf Item.Subject = "REF" Then
    strBcc = "email@email.com"
    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
    • To post as a guest, your comment is unpublished.
      Joe · 2 years ago
      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 = "email@email.com"[/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.
  • To post as a guest, your comment is unpublished.
    Keshav · 3 years ago
    Can we make this work with sent items that have attachments.
  • To post as a guest, your comment is unpublished.
    SONU RAJ · 3 years ago
    Bravo!!!! Working great
  • To post as a guest, your comment is unpublished.
    JMax · 3 years ago
    Works great but after the message sends I get an extra blank message that sits in my Outbox (sometimes it has the recipient's email address). So if I send 12 msgs, I see 12 msgs in my Sent box, but is there a way to eliminate the "ghost" message just sitting in the Outbox?
  • To post as a guest, your comment is unpublished.
    OD · 4 years ago
    Thank you mate. :lol:
  • To post as a guest, your comment is unpublished.
    Prabhat · 4 years ago
    hello,

    It works fine when i put code inside the outlook. after restarting MS2007
    it is not working. Please help me
  • To post as a guest, your comment is unpublished.
    pj · 4 years ago
    It works on my win7 and outlook2010, thank you.
  • To post as a guest, your comment is unpublished.
    zeyd88 · 4 years ago
    Thank you very much.It is very good)))
  • To post as a guest, your comment is unpublished.
    Mehdidd · 4 years ago
    if someone could write it in the ItemLoad event, that would be great !
    to actually see the BCC field filled
  • To post as a guest, your comment is unpublished.
    savy · 4 years ago
    how can i use it for single account or profile?
  • To post as a guest, your comment is unpublished.
    Neil · 4 years ago
    Option 1 of using macro editor in outlook works perfect for me, just follow the instruction. I am using outlook 2013
  • To post as a guest, your comment is unpublished.
    Marc · 4 years ago
    Does anyone know a way to apply the auto bcc function to a SHARED mailbox? If you select as a filter 'custom' instead of 'All outting email', it seems that you can only select non-shared mailboxes...
  • To post as a guest, your comment is unpublished.
    SYNDenver · 5 years ago
    This macro works great in 2013 till I reboot. If I do not do anything after a reboot, it does not work, It works if I do the following after every reboot:
    I click on the developer, Visual Basic, close it,
    Then click on Macro Security, close it.

    Once I do this it works for the session. It stops again on reboot.
  • To post as a guest, your comment is unpublished.
    SYNDenver · 5 years ago
    This code works, except I find that I need to open the developer after every reboot. After a reboot, the macro does not work unless I click on developer, open the macro, close it, open the security, close it.

    Any Ideas?
  • To post as a guest, your comment is unpublished.
    Shahriar · 5 years ago
    hi,
    thanx its work nicely
    but my question is how can i use this auto BCC for multiple email, here you showed for only one email bcc, can i use this for multiple mail ?? if i can than how ?
  • To post as a guest, your comment is unpublished.
    SupremeAC · 5 years ago
    Hi there and thank you for the code. Works perfectly for me in Outlook 2013. I was wondering if there is a way to have it also work when replying to other people's mails. It seems to only work when I send a 'new' mail to someone?
  • To post as a guest, your comment is unpublished.
    Tony_Warren · 5 years ago
    Thanks.

    The autobcc works like a treat.
  • To post as a guest, your comment is unpublished.
    Kevin_Black · 5 years ago
    Hi There, I cannot get the code to work in Office2013.
    From the tools>>references menu do I need to activate any specific libraries?

    Thanks
    Kevin
  • To post as a guest, your comment is unpublished.
    Shep · 5 years ago
    Great post - really helped, the only problem is the bcc doesn't run when the mail isn't created from within Outlook - eg you right-click on a file from the desktop, send to, mailrecipient, or you click on the email file icon from within a program, and it doesn't bcc - can anyone help ?

    I also slightly modified the code, so that Outlook gives you choice whether or not to bcc the recipient.

    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
    Dim intresponse As Integer
    On Error Resume Next

    intresponse = MsgBox("Click Yes to share this email with QA, click No to keep it private", _
    vbYesNo + vbQuestion, _
    "Email Privacy")
    If intresponse = vbYes Then


    strBcc = "recipient@email.com"
    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

    End If



    End Sub
  • To post as a guest, your comment is unpublished.
    Marc · 5 years ago
    This was a very usefull post for me! I use gmail as a sort of backup for all my mail and this made it possible without people commenting on an added CC line (the only option Outlook provides as a default).
  • To post as a guest, your comment is unpublished.
    chris · 5 years ago
    Thanks for the instructions! How do i adjust this so that I can be BCC'd on all emails except to some specific email addresses or group of "@domain.com". Thanks!
  • To post as a guest, your comment is unpublished.
    Manjur Alam Bhuiyan · 5 years ago
    I face another Problem In MS office Outlook
    microsoft office outlook has encountered a problem and needs to close we are sorry for inconvenience
  • To post as a guest, your comment is unpublished.
    Manjur Alam Bhuiyan · 5 years ago
    i take help from ur site
  • To post as a guest, your comment is unpublished.
    Norbert Lars · 5 years ago
    hey,

    this VBA works nice, one question if i may ask

    is there a way to activate only to an account? for example i have 3 accounts on my compouter @yahoo, @hotmail, @gmail and i want only those sent from the @gmail account to be auto BCC but the rest to go normal

    what should be add to the script ?
    • To post as a guest, your comment is unpublished.
      Chris Cara · 5 years ago
      I am interested in this also.

      Thanks!
      • To post as a guest, your comment is unpublished.
        Harry · 5 years ago
        If you need to BCC back to some account just use Item.SendUsingAccount instead of fixed E-mail, in other words, use
        in line 10 the following:
        strBcc = Item.SendUsingAccount
        this string will find the account E-mail address which used for send and use it.
        Enjoy!
        • To post as a guest, your comment is unpublished.
          John · 4 years ago
          This would only work when you want to BCC the same email address from which you are sending email.
          What if you want to BCC different email addresses in different accounts?
          Account 1 :: 123@Gamil.com : BCC 123@abc.com
          Account 1 :: 123@Hotmail.com : BCC 123@def.com
          Account 1 :: 123@Yahoo.com : BCC 123@xyz.com
          • To post as a guest, your comment is unpublished.
            Joe · 2 years ago
            You could use conditional statements combined with the bit Harry provided to determine who to BCC. In this instance, I would use the Select Case statement:

            [quote]Select Case Item.SendUsingAccount
            Case "123@Gmail.com"
            strBcc = "123@abc.com"
            Case "123@Hotmail.com"
            strBcc = "123@def.com"
            Case "123@Yahoo.com"
            strBcc = "123@xyz.com"
            End Select[/quote]
  • To post as a guest, your comment is unpublished.
    Goups · 5 years ago
    When send the email, how i can remove the BCC from the send items, I want the Bcc to be hide in the send items.
    • To post as a guest, your comment is unpublished.
      karla123 · 5 years ago
      Hi, wondering if you found a solution to hide bcc from Sent Folder? I've been trying to do so but to no avail. Any help will be appreciated. Thanks!
      • To post as a guest, your comment is unpublished.
        Faraz · 3 years ago
        Hi

        I am also looking for the same solution, plz help me too.

        I want to automatically BCC all my emails to my personal email address via VBA code which is working fine. But when I go to sent items BCC field is visible to me, I want to hide it from myself as well so that even it is not visible to me.
        Can anyone please help on this with VBA code. Thanks
        Currently I am using the following code:
        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 = "privateemail@gmail.com"

        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
      • To post as a guest, your comment is unpublished.
        Faraz · 3 years ago
        Hi

        I am also looking for the same solution

        I want to automatically BCC all my emails to my personal email address via VBA code which is working fine. But when I go to sent items BCC field is visible to me, I want to hide it from myself as well so that even it is not visible to me.
        Can anyone please help on this with VBA code. Thanks
        Currently I am using the following code:
        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 = "privateemail@gmail.com"

        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
  • To post as a guest, your comment is unpublished.
    Steviej · 5 years ago
    VBA worked as advertised. Thank you.
  • To post as a guest, your comment is unpublished.
    Karen · 5 years ago
    Worked fine with Outlook 2013 but came up with a compile error in 2007
  • To post as a guest, your comment is unpublished.
    Harry · 6 years ago
    The macros starts but do nothing in Outlook 2010: If I put Stop to line 13 it opens VBA window and lets me run macros step-by-step... but when macros finishes I see no any leters. Looks like it send letter before BCC added.
  • To post as a guest, your comment is unpublished.
    Leisha · 6 years ago
    hello,

    I did the instructions for outlook 2007 and it didn't work :/ any tips?
  • To post as a guest, your comment is unpublished.
    Chris · 6 years ago
    It works great but is there a way to do this with multiple bcc?
    • To post as a guest, your comment is unpublished.
      Rory · 4 years ago
      [quote name="Chris"]It works great but is there a way to do this with multiple bcc?[/quote]

      So, since it calls the method Item.Recipients.Add(strBcc) to add another recipient the program treats whatever string you provide as a single email address. The trick is simply to call the same method again in the same fashion for a second variable.

      E.g.
      strBcc = "email1@email.com"

      strBcc2 = "email2@email.com"

      Set objRecip = Item.Recipients.Add(strBcc)
      objRecip.Type = olBCC

      Set objRecip = Item.Recipients.Add(strBcc2)
      objRecip.Type = olBCC


      I'm no vba expert so not sure what the Set objRecip part does at all... but the above works for me.
      • To post as a guest, your comment is unpublished.
        Jeremy · 2 years ago
        I've tried your suggestion but it show error message "the operation failed. The messaging interfaces have returned an unknown error. If the problem persist, restart Outlook. Cannot resolve recipient.", any suggestion?
  • To post as a guest, your comment is unpublished.
    manjur · 6 years ago
    i take help from ur site
    thanks
  • To post as a guest, your comment is unpublished.
    Kitkat · 6 years ago
    Hi, this doesn't seem to work on Outlook 2013. Can you create another code for that version?

    Thanks!
    • To post as a guest, your comment is unpublished.
      siluvia zhou · 6 years ago
      Dear Kitkat,
      This code also works on Outlook 2013.
      After saving the code, please do as follows:
      1. Go to the [b]Developer[/b] tab, and click [b]Macro Security[/b].
      2. In the popping up [b]Trust Center[/b] dialog, select the [b]Enable all macros (not recommended; potentially dangerous code can run)[/b] option in the Macro Settings section. Then click [b]OK[/b].
      3. Now, close your Outlook 2013 application and then restart it, the code will work. :-)