Add hidden recipient to each mail

M

Michele TheGuru

Hi,
I use Outlook 2000 and I want add a recipient (CCN) when a
mail is sending.
I wanna have a copy of each mail sent by the PC and I
don't want that the users see it. Is possible?
I use this code but it doesn't work... Why?

Private Sub Application_ItemSend(ByVal Item As Object,
Cancel As Boolean)
Dim NewRec As Recipient
Set NewRec = Item.Recipients.Add("[email protected]")
NewRec.Type = OlMailRecipientType.olBCC
End Sub

Bye Bye and Sorry for my terrible english.

Michele
 
S

Sue Mosher [MVP-Outlook]

This is the correct statement you need to set the Type:

NewRec.Type = olBCC
 
Top