Automatic emails sent through appointment reminders (Sending to a contact group)

Hello,

I have acode which automatically sends a calendar appointment as an email when email addresses are entered into the location field of the appointment and when it is selected as a certain category.

However, the location section has a limited number of characters and I would like outlook to send to all of the contacts in a group.

There is a link that I got the code from but the website won't allow me to post it.
slipstick . c0m/developer/send-email-outlook-reminders-fires/

And here is the code:

Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "Automated Email Sender" Then
Exit Sub
End If
objMsg.To = Item.Location
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send
Set objMsg = Nothing
End Sub

Thanks,
Matt

Enter the group name in location. Then objMsg.Recipients.ResolveAll

Code:

---

Private Sub Application_Reminder(ByVal Item As Object)

Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
 
If Item.MessageClass <> "IPM.Appointment" Then
        Exit Sub
End If

If Item.Categories <> "Automated Email Sender" Then
        Exit Sub
End If

objMsg.To = Item.location
objMsg.Recipients.ResolveAll

objMsg.Subject = Item.Subject
objMsg.body = Item.body
 
objMsg.send
Set objMsg = Nothing

End Sub

---