Hi All,

----------------------------
Here is my config :
Messaging server : W2k Server / Exchange 2k
Users computers : W2k Pro / Ms Outlook 2000
----------------------------

I'm using this script (in outlook of all my users) to send a copy of each
outgoing message to :
----------------------------
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim ObjItem As MailItem
Dim ObjNs As NameSpace
Dim ObjElementsenvoyes As MAPIFolder
Dim ObjRecip As Recipient
Set ObjNs = Application.GetNamespace("MAPI")
Set ObjElementsenvoyes = ObjNs.GetDefaultFolder(olFolderSentMail)
Set ObjRecip = " )
ObjRecip.Type = olBCC
ObjRecip.Resolve
End Sub
----------------------------

And I add this mailbox ) to outlook (for all
users) so that they can all see it, but sometimes some users need to send
private messages that the others doesn't have to see.

What should I add to this script?
Any suggestions?

Thanks in advance.