Outlook VBA to create a meeting reminder to send to all Recipients who have not declined 1 hour prior to the meeting
Attribute VB_Name = "Meeting_Reminders" 'Option Explicit Private Const PR_SENT_REPRESENTING_ENTRYID As String = "http://schemas.microsoft.com/mapi/proptag/0x00410102" Public Sub Outlook_MTG_REMINDER () Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Dim oMail As Outlook.MailItem Dim oAppt As Outlook.AppointmentItem Dim oPA As Outlook.PropertyAccessor Dim strSenderID As String Dim mRecipients As Recipients ''Recipients of meeting Dim mRecipient As Recipient ''Recipient in list Dim BoolSendRemind As Boolean ''proceed to send reminder or not Dim mBody As String Dim mDateUTC As Date Dim mDateZONE As Date Dim mDateZONEstr As String Dim objMail As MailItem Dim preHTML As String Dim postHTML As String Dim Re As New REGEXP Dim GeneratePrefixTextTxt As String Dim x As Integer Dim I As Integer Genera