Outlook Macro to add email to Bcc and send it



It goes under thisOutlookSession

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olRecip As Recipient
    Dim olMsg As String
    Dim res As Integer
    Dim olBcc As String

    On Error Resume Next

    '// set email address here
    olBcc = "Address@domain.com"

    Set olRecip = Item.Recipients.Add(olBcc)
    olRecip.Type = olBcc
    If Not olRecip.Resolve Then
        olMsg = "Could not resolve Bcc recipient. " & _
                 "Do you still want to send?"
        res = MsgBox(olMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If

    Set olRecip = Nothing
End Sub


To solve this (making a copy yourself for the emails you send) follow the below steps:

1. Rules > Manage Rules & Alerts

2. Click on New Rule

3. In the Step 1, Select ‘Apply rule on messages I send’

4. Click Next

5. In next screen you may have to select your conditions for this rule

6. Click Next

7. In this screen mark ‘move a copy to the specified folder’ and set the folder (say Inbox)

8. Then go ahead and choose other things and apply the rule.

Once this is done, next time you send an email, a copy of it will be placed in your specified folder.

Note: This is client only rule.

dpejic has written 85 articles

Leave a Reply

Your email address will not be published. Required fields are marked *


You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>