2015-04-08

CCO automático no Outlook 2013

Você não confia no seu computador para manter seus emails de trabalho nele porque ele vive dando pau?

Manter uma cópia desses emails em um email gratuito da internet (p.ex Gmail) pode ser uma solução para diminuir essa preocupação.

No Outlook 2013 pode-se facilmente criar uma regra para redirecionar todo e qualquer email que entra, a um endereço de email de bakcup qualquer mas as mensagens que são enviadas você precisa colocar manualmente esse endereço de email no CCO/BCC toda vez que criar uma mensagem.

Se você tem um leve conhecimento de macros esse serviço braçal pode ser evitado com esta macro abaixo que vai automatizar esse processo manipulando todos os emails na Caixa de Saída e automaticamente inserindo um endereço de email no CCO/BBC:

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

' #### EMAIL CÓPIA OCULTA ####

strBcc = "email_bkp@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 to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc")
If res = vbNo Then
Cancel = True
End If
End If

Set objRecip = Nothing
End Sub

Essa macro deve ser inserida no ThisOutlookSession:



Enjoy! =)

Nenhum comentário: