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("(e-mail address removed)")
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

ThisOutlookSession - Question 0
BCC based upon TO address 1
ItemSend only fired for new mail, not Reply, Replyall and Forward 3
Auto-BCC based on Outlook account 5
If Item.senderemailaddress Problem 8
Item.Recipients.Add 5
item_send event 4
VB script for Bcc line 3

Top