VB script for Bcc line



Hi

I had a small VB script running so the Bcc field was filled out on every new
Email.

Example

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim objMe As Recipient
Set objMe = Item.Recipients.Add("test@xxxxxxxx")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing

End Sub

This worked fine for a while but now has stopped working and i am unsure of
why.

Help

Andy
.