I found a script on ExtendOffice.com that does this perfectly, except the BCC email address isn't displayed in the field. The value is there, but invisible (as it does indeed work). I want to alter the following code so that the auto-BCC email will be visible in the field when writing an email, for exceptional cases where I don't want to BCC anybody, so that it can be removed.
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 = "email@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
Edited 2 Years Ago by caltech