VBA Outlook: Reencaminhar mensagens enviadas como ocultas.

Controle o fluxo de informações ocultas da sua máquina, rede, departamento, etc... Esta pequena funcionalidade permite que acompanhe o que vem trafegando na sua rede.

A funcionalidade abaixo é apenas um exercício de como manipular as mensagens dentro do MS Office Outlook.


Private Sub Application_ISend(ByVal Item As Object, Cancel As Boolean)
    ' Author:                     Date:               Contact:
    ' André Bernardes             02/05/2009 09:15    bernardess@gmail.com
    ' Reencaminhar mensagens enviadas para outro destinatário através do campo Bcc
   
    Dim objMe As Recipient

    Set objMe = Item.Recipients.Add("bernardess@gmail.com")

    objMe.Type = olBCC
    objMe.Resolve

    Set objMe = Nothing
End Sub

André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com