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 : deptname.out@companyname.com
----------------------------
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 = Item.Recipients.Add("deptname.out@companyname.com")
ObjRecip.Type = olBCC
ObjRecip.Resolve
End Sub
----------------------------

And I add this mailbox (deptname.out@companyname.com) 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.