VBA to add a bcc

[warren66]

New to the forum; can anyone help me with the VBA code to add a specific bcc address to selected emails in the draft folder?

It needs to be run on just the selected drafts - not the entire folder or a global rule.

It's times like this I wish Outlook VBA had a macro recorder like its siblings Word and Excel!

Anyone?

Any help much appreciated.

[gmayor]

Maybe something like

Sub AddBCC()
Dim olFolder As Outlook.Folder
Dim olItem As Outlook.MailItem
Dim strBCC As String
    On Error Resume Next
    strBCC = "someone@somewhere.com"
    Set olFolder = Session.GetDefaultFolder(olFolderDrafts)
    For Each olItem In ActiveExplorer.Selection
        If olItem.Parent = olFolder And TypeName(olItem) = "MailItem" Then
            olItem.Recipients.Add(strBCC).Type = 3
            olItem.Save
        End If
    Next olItem
lbl_Exit:
    Set olFolder = Nothing
    Set olItem = Nothing
    Exit Sub
End Sub

[warren66]

Thanks for this, Graham. Running the code adds the name of the recipient, but to the "Send To" field.

What should the code be for adding it to the Bcc field instead?

Very grateful for your input.

Warren

[gmayor]

The line

olItem.Recipients.Add(strBCC).Type = 3

adds the name defined in strBCC as BCC. Type = 3 is BCC.
If there is no existing BCC, you could probably use

olItem.BCC = strBCC

instead of the above line.

[warren66]

The line

olItem.Recipients.Add(strBCC).Type = 3

adds the name defined in strBCC as BCC. Type = 3 is BCC.
If there is no existing BCC, you could probably use

olItem.BCC = strBCC

instead of the above line.

That works perfectly now thanks, Graham.

The macro runs from the Developer window, but when I assign it to a button on the QAT and click it, it does nothing. Same with other macros, but if I add buttons for the built-in commands, like say "Reply", they work.

Would you happen to know if there is a setting I need to make in Outlook to get macros to run from the QAT? I have no such problems running macros from Excel and Word QATs...

Thanks again

W

[gmayor]

I can't think of one and it runs from the QAT here.
There can be a security issue with Outlook - see
https://www.gmayor.com/create_and_em...gital_cert.htm