Excel VBA email using Outlook Quick Steps

[xxbc320xx]

I have a macro for sending a sheet or multiple using a command button click. I have to put each email address I want into the code itself.

I have another project I am working on with a group of emails that tend to chance as people come and go from a couple organizations. Right now I use a "Quick Steps" on outlook for sending an email to this group. I would like to use that for the the TO field in my VBA code. I set up a test group and outlook didn't recognize the address as it was just the name of the "Quick Steps" group. When I use the "Quick Steps" in outlook, I see each email as an individual and not the "Quick Steps" name. Below is the relevant part of the code.

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.To = "Email Macro Test"
.CC = ""
.BCC = ""
.Subject = "Macro Email test"
.Body = ""
.Attachments.Add Destwb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.display 'or use .Display
End With

 

[shknbk2]

I'm not finding that it is possible to access Quick Steps via VBA. However, I have a suggestion that might work. I created a new Contact group called TestGroup and added a couple of my email addresses for test. I then created a new Quick Steps action to send an email to the TestGroup by selecting the group as the only To destination. In Excel, I used .To = "TestGroup" and followed that with ".Recipients.ResolveAll" in addition to the rest of the mailItem parameters.

In this way, the Quick Steps in Outlook still works, and Excel can reference the Contact group. As users come and go, you'd have to change the Contact group rather than the Quick Steps actions.