Add distribution list in email on VBA

[as586]

Hi, I am trying to write a macro to add an email distribution list in bcc on an email in Outlook.

Could anyone please help me with this?

 

[Trevor G]

Is the list in an excel spreadsheet? If Excel Which Column holds the email addresses do you want names in the body of the email or is it just a message not indicating any names? Are they to all go into one email or individual emails? There plenty of YouTube videos you could study.

 

[as586]

Is the list in an excel spreadsheet? If Excel Which Column holds the email addresses do you want names in the body of the email or is it just a message not indicating any names? Are they to all go into one email or individual emails? There plenty of YouTube videos you could study.

Hi Trevor, the distribution list is in my contacts folder in Outlook, and the list would be going into 1 email. Thanks

 

[Trevor G]

I have added comments where you will need to change things.

Sub SendEmailDist()
Dim OlApp As Object 'Use object don't need to set reference
Dim OlMail As Object

Set OlApp = CreateObject("Outlook.Application")
Set OlMail = OlApp.CreateItem(0) 'Create email

On Error Resume Next
With OlMail
    
    .BCC = "Test2" 'Replace Distribution List Name
    .Subject = "Distribution" 'Change title
    .Body = "What you want to say" 'Add your content
    .Display 'Once checked change to .Send
End With
On Error GoTo 0

Set OlMail = Nothing
Set OlApp = Nothing
End Sub

 

[as586]

Great, thanks for the help Trevor, thats very useful.

 

[Trevor G]

Happy to Help thank you for letting me know.