Note: The other languages of the website are Google-translated. Back to English

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 = "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

NOTA Substitua o "SomeEmailAddress@domain.com" 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 para Outlook: Adicione mais de 100 ferramentas úteis para Outlook, grátis para testar sem limitação em 60 dias. Saiba Mais      Teste grátis agora

Depois de instalar o Kutools para 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 Seguinte 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 Seguinte 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?


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

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange 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 houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (53)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi, isso não parece funcionar no Outlook 2013. Você pode criar outro código para essa versão? Obrigado!
Este comentário foi feito pelo moderador no site
Caro Kitkat, Este código também funciona no Outlook 2013. Após salvar o código, faça o seguinte: 1. Vá para o Desenvolvedor guia e clique em Segurança Macro. 2. No pop-up trust Center diálogo, selecione o Habilite todas as macros (não recomendado, o código potencialmente perigoso pode ser executado) opção na seção Configurações de macro. Então clique OK. 3. Agora, feche seu aplicativo Outlook 2013 e reinicie-o, o código funcionará. :-)
Este comentário foi feito pelo moderador no site
eu tomo ajuda de seu site obrigado
Este comentário foi feito pelo moderador no site
Funciona muito bem, mas existe uma maneira de fazer isso com vários bcc?
Este comentário foi feito pelo moderador no site
[quote]Funciona muito bem, mas existe uma maneira de fazer isso com vários Cco?Chris[/quote] Assim, como ele chama o método Item.Recipients.Add(strBcc) para adicionar outro destinatário, o programa trata qualquer string que você fornecer como um único endereço de e-mail. O truque é simplesmente chamar o mesmo método novamente da mesma maneira para uma segunda variável. Por exemplo, 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 Eu não sou especialista em vba, então não tenho certeza do que a parte Set objRecip faz ... mas o acima funciona para mim.
Este comentário foi feito pelo moderador no site
Eu tentei sua sugestão, mas mostra a mensagem de erro "a operação falhou. As interfaces de mensagens retornaram um erro desconhecido. Se o problema persistir, reinicie o Outlook. Não é possível resolver o destinatário.", alguma sugestão?
Este comentário foi feito pelo moderador no site
ola, fiz as instrucoes para o outlook 2007 e nao funcionou :/ alguma dica?
Este comentário foi feito pelo moderador no site
As macros iniciam, mas não fazem nada no Outlook 2010: Se eu colocar Stop na linha 13, ela abre a janela do VBA e me permite executar macros passo a passo... mas quando as macros terminam, não vejo nenhuma letra. Parece que ele enviou uma carta antes do BCC ser adicionado.
Este comentário foi feito pelo moderador no site
Funcionou bem com o Outlook 2013, mas apresentou um erro de compilação em 2007
Este comentário foi feito pelo moderador no site
VBA funcionou como anunciado. Obrigada.
Este comentário foi feito pelo moderador no site
Ao enviar o e-mail, como posso remover o BCC dos itens de envio, quero que o Bcc fique oculto nos itens de envio.
Este comentário foi feito pelo moderador no site
Oi, gostaria de saber se você encontrou uma solução para ocultar o bcc da pasta de envios? Tenho tentado fazer isso mas sem sucesso. Qualquer ajuda será apreciada. Obrigado!
Este comentário foi feito pelo moderador no site
Oi, também estou procurando a mesma solução que quero enviar automaticamente todos os meus e-mails para o meu endereço de e-mail pessoal via código VBA, que está funcionando bem. Mas quando vou para os itens enviados, o campo BCC está visível para mim, quero escondê-lo de mim também para que mesmo ele não fique visível para mim. Alguém por favor pode ajudar sobre isso com o código VBA. Obrigado Atualmente estou usando o seguinte código: 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 # ### ' endereço para Cco -- deve ser um endereço SMTP ou resolvível ' para um nome no catálogo de endereços strBcc = "privateemail@gmail.com" Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC Se não objRecip.Resolve Then strMsg = "Não foi possível resolver o destinatário Cco. " & _ "Deseja ainda enviar a mensagem?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Não foi possível resolver o destinatário Cco") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
Este comentário foi feito pelo moderador no site
Oi eu também estou procurando a mesma solução, plz me ajude também. Eu quero automaticamente BCC todos os meus e-mails para o meu endereço de e-mail pessoal via código VBA que está funcionando bem. Mas quando vou para os itens enviados, o campo BCC está visível para mim, quero escondê-lo de mim também para que mesmo ele não fique visível para mim. Alguém por favor pode ajudar sobre isso com o código VBA. Obrigado Atualmente estou usando o seguinte código: 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 # ### ' endereço para Cco -- deve ser um endereço SMTP ou resolvível ' para um nome no catálogo de endereços strBcc = "privateemail@gmail.com" Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC Se não objRecip.Resolve Then strMsg = "Não foi possível resolver o destinatário Cco. " & _ "Deseja ainda enviar a mensagem?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Não foi possível resolver o destinatário Cco") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
Este comentário foi feito pelo moderador no site
ei, este VBA funciona bem, uma pergunta se eu puder perguntar existe uma maneira de ativar apenas para uma conta? por exemplo eu tenho 3 contas no meu computador @yahoo, @hotmail, @gmail e quero que apenas as enviadas da conta @gmail sejam auto BCC mas o resto vai normal o que deve ser adicionado ao script?
Este comentário foi feito pelo moderador no site
Estou interessado nisso também. Obrigado!
Este comentário foi feito pelo moderador no site
Se você precisar BCC de volta para alguma conta basta usar Item.SendUsingAccount em vez de E-mail fixo, ou seja, use na linha 10 o seguinte: strBcc = Item.SendUsingAccount esta string irá encontrar o endereço de e-mail da conta que usou para envie e use. Aproveitar!
Este comentário foi feito pelo moderador no site
Isso só funcionaria quando você deseja enviar como BCC o mesmo endereço de e-mail do qual você está enviando o e-mail. E se você quiser BCC diferentes endereços de e-mail em contas diferentes? Conta 1 :: 123@Gamil.com : BCC 123@abc.com Conta 1 :: 123@Hotmail.com : BCC 123@def.com Conta 1 :: 123@Yahoo.com : BCC 123@xyz.com
Este comentário foi feito pelo moderador no site
Você pode usar declarações condicionais combinadas com o bit que Harry forneceu para determinar quem BCC. Nesse caso, eu usaria a instrução Select Case: [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]
Este comentário foi feito pelo moderador no site
eu tomo ajuda do seu site
Este comentário foi feito pelo moderador no site
Eu enfrento outro problema No MS office Outlook o Microsoft Office Outlook encontrou um problema e precisa ser fechado pedimos desculpas pelo inconveniente
Este comentário foi feito pelo moderador no site
Obrigado pelas instruções! Como faço para ajustar isso para que eu possa ser BCC em todos os e-mails, exceto em alguns endereços de e-mail específicos ou grupo de "@domain.com". Obrigado!
Este comentário foi feito pelo moderador no site
Esse post foi muito útil para mim! Eu uso o gmail como uma espécie de backup para todos os meus e-mails e isso tornou possível sem que as pessoas comentassem em uma linha CC adicionada (a única opção que o Outlook fornece como padrão).
Este comentário foi feito pelo moderador no site
Ótimo post - realmente ajudou, o único problema é que o bcc não é executado quando o email não é criado no Outlook - por exemplo, você clica com o botão direito do mouse em um arquivo da área de trabalho, envia para, destinatário do email ou clica no email ícone de arquivo de dentro de um programa e não é bcc - alguém pode ajudar? Eu também modifiquei um pouco o código, para que o Outlook dê a você a opção de usar ou não o Bcc do destinatário. 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("Clique em Sim para compartilhar este e-mail com o controle de qualidade , clique em Não para mantê-lo privado", _ 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 = "Não foi possível resolver o destinatário Cco." & _ "Deseja ainda enviar a mensagem?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Não foi possível resolver o destinatário Cco") If res = vbNo Then Cancel = True End If End If End If End Sub
Este comentário foi feito pelo moderador no site
Olá, não consigo fazer o código funcionar no Office2013. No menu de ferramentas>>referências preciso ativar alguma biblioteca específica? Obrigado Kevin
Este comentário foi feito pelo moderador no site
Obrigado. O autobcc funciona como um deleite.
Este comentário foi feito pelo moderador no site
Olá e obrigado pelo código. Funciona perfeitamente para mim no Outlook 2013. Eu queria saber se existe uma maneira de fazê-lo funcionar também ao responder aos e-mails de outras pessoas. Parece funcionar apenas quando eu envio um 'novo' e-mail para alguém?
Este comentário foi feito pelo moderador no site
oi, obrigado, funciona bem, mas minha pergunta é como posso usar esse BCC automático para vários e-mails, aqui você mostrou apenas um e-mail bcc, posso usar isso para vários e-mails? se eu posso como?
Este comentário foi feito pelo moderador no site
Este código funciona, exceto que preciso abrir o desenvolvedor após cada reinicialização. Após uma reinicialização, a macro não funciona a menos que eu clique no desenvolvedor, abra a macro, feche-a, abra a segurança, feche-a. Alguma ideia?
Este comentário foi feito pelo moderador no site
Esta macro funciona muito bem em 2013 até eu reiniciar. Se eu não fizer nada depois de uma reinicialização, não funciona, Funciona se eu fizer o seguinte após cada reinicialização: clico no desenvolvedor, Visual Basic, fecho-o, depois clico em Macro Security, feche-o. Depois de fazer isso, funciona para a sessão. Ele para novamente na reinicialização.
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos