✔ VBA Dashboards Specialist®: VBA Outlook - Envia uma cópia oculta automaticamente para um e-mail.

5 de agosto de 2013

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

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart |

desenvolvedores VBA

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