====== Auto BCC ====== This is to have Outlook automatically BCC you or the person of your choice on all emails you send. * http://www.outlookcode.com/article.aspx?id=72 * either self sign a certificate of your own or change the trust center security settings * (recommended) to self sign a certificate, see http://www.howto-outlook.com/howto/selfcert.htm * on windows 7 mine was located at C:\Program Files (x86)\Microsoft Office\Office15\SELFCERT.EXE * to change trust center security settings - open outlook, go to File --> Options --> Trust Center --> Trust Center Settings --> Macro Settings, click Notifications for all macros; restart outlook * press Alt-F11 * open Project1 --> Microsoft Outlook Objects --> ThisOutlookSession, then enter this code Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String On Error Resume Next ' #### USER OPTIONS #### ' address for Bcc -- must be SMTP address or resolvable ' to a name in the address book strBcc = "user@example.com" Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & _ "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub * change the email address to your own and save * close and re-open outlook, click to trust all