1) in Outlook, type ALT+F11 to open the VBA editor;
2) Activate the project panel on the left, expand and double-click "Project (VBAPROJECT.OTM)/microsoft Officeoutlook object/thisoutlooksession" above;
3) Paste the following code into the open edit area on the right:
OptionExplicit
Private Subapplication_itemsend (ByVal Item as Object, Cancel as Boolean)
Dim Oitem Asmailitem
Dimorecipient as Recipient
Set Oitem =item
Set orecipient = OItem.Recipients.Add ("[email protected]")
Orecipient.type = OUTLOOK.OLBCC
Setorecipient = OItem.Recipients.Add ("[email protected]")
Orecipient.type = OUTLOOK.OLBCC
Setorecipient = OItem.Recipients.Add ("[email protected]")
Orecipient.type = OUTLOOK.OLBCC
OItem.Recipients.ResolveAll
Oitem.save
Setorecipient = Nothing
Set Oitem =nothing
End Sub
4) Add or remove the BCC recipient address as required in the above code, save, exit the VBA editor and return to the main Outlook interface;
5) Select the menu "Tools-Trust Center", select "Macro Security" in the pop-up window, select "Provide warning for all macros" or "Do not perform macro security check" (the former is recommended);
6) Restart Outlook and see if you are prompted to use a macro, select Enable.
7) Now, although the BCC recipients are not visible in the new message, each message sent will be automatically copied to those that are set in the code.
Outlook 2007 implements an automatic encryption Send method