Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 'comments 'This version is suitable for Outlook 2003 or later. It uses Outlook objects exclusively and 'includes error handling to avoid problems with an invalid Bcc address. 'Place this VBA code in the built-in ThisOutlookSession module 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 strBcc = "firstname.lastname@example.org" 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
|Outlook 2010 Recall Emails that are on Exchange Online.||3||45|
|i want to change the ADD_CAR table available to true and import the data to RETURN table. now the problem is the data can import into RETURN table but the ADD_CAR table the available still not change||8||48|
|Linked mailboxes and outlook||1||42|
|Exchange 2010/Outlook 2016 Calendar permissions greyed out||5||37|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!