✔ Programação GLOBAL®: VBA Outlook - Envia uma cópia oculta automaticamente para um e-mail.

VBA Outlook - Envia uma cópia oculta automaticamente para um e-mail.

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Desenvolvermos um código que fique incubado no nosso MS Outlook para garantir que todos os e-mails que forem enviados através dele, automaticamente faça uma cópia deste conteúdo para outro endereço específico pode ser conseguido através da programação VBA.

Se você for menos experiente no uso de automação, talvez esteja se perguntando porque é que iria desejar implementar um código assim no seu MS Outlook. É verdade que talvez não precise deste código agora, mas certamente o utilizará alguma vez na vida, reflita nas duas situações abaixo:

Digamos que deseje auditar todas as mensagens que estão sendo enviadas através do seu MS Outlook, recebendo uma cópia de qualquer mensagem que enviarem. Como fazer isso?

Quem sabe, queira guardar em uma conta de e-mail externa, o conteúdo de todos os e-mails enviados diariamente da sua máquina, através do MS Outlook, para garantir que nada se perca caso hajam problemas com o seu servidor local de e-mails, como fazer isso?

Private Sub Application_ItemSend (ByVal Item As Object, _

Cancel As Boolean)

' Author: André Luiz Bernardes - bernardess@gmail.com

' Date: 05/08/13 - 16:03

' Application: OutlookFunctionalities®

' Functionality: Envia uma cópia oculta automaticamente para um e-mail.



Dim objRecip As Recipient

Dim strMsg As String

Dim res As Integer

Dim strBcc As String

On Error Resume Next



Let strBcc = "bernardess@gmail.com"

Set objRecip = Item.Recipients.Add(strBcc)



Let objRecip.Type = olBCC



If Not objRecip.Resolve Then

Let strMsg = "O Outlook não consegue enviar a mensagem para este endereço de e-mail BCC. " & _

"Deseja continuar enviando a mensagem?"

Let res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _

"Não consigo decifrar este endereço Bcc")



If res = vbNo Then

Let Cancel = True

End If

End If

Set objRecip = Nothing

End Sub