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

    Let objMe.Type = olBCC
    objMe.Resolve

    Set objMe = Nothing
End Sub

Tags: Bernardes, VBA, Office, send, Bcc, oculto, e-Mail

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com