Outlook 2007 implements an automatic encryption Send method

Source: Internet
Author: User

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

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.