Private Sub Application_Reminder(ByVal EventItem As Object) Dim MailMsg As MailItem Set MailMsg = Application.CreateItem(olMailItem) If EventItem.MessageClass = "IPM.Appointment" Then Call SendApptMail(MailMsg, EventItem) End If Set MailMsg = Nothing End Sub Sub SendApptMail(Mail_Item As Object, Appt_Item As Object) Mail_Item.To = Appt_Item.Location Mail_Item.Subject = Appt_Item.Subject Mail_Item.Attachments = Appt_Item.Attachments 'this line throws an error - Help! Mail_Item.HTMLBody = Appt_Item.Body 'other html formatting omitted for brevity Mail_Item.Send End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.