With Experts Exchange’s latest app release, you can now experience our most recent features, updates, and the same community interface while on-the-go. Download our latest app release at the Android or Apple stores today!
Private Sub objReminders_ReminderFire(ByVal ReminderObject As Reminder) Dim olkMsg As Outlook.MailItem 'Is the reminder for a task If ReminderObject.Item.Class = olTask Then Set objItem = ReminderObject.Item 'Change "Send Message" on the following line to the subject you used for your task. The name must be an exact match. If objItem.Subject = "Reminder: Please go to emsCharts to electronically sign your Medical Command charts" Then Set olkMsg = Application.CreateItem(olMailItem) With olkMsg Dim OlkRecip As Outlook.Recipient Set OlkRecip = .Recipients.Add("firstname.lastname@example.org") OlkRecip.Type = olTo olkMsg.Subject = "Reminder: Please go to emsCharts to electronically sign your Medical Command charts" olkMsg.Body = "To All EM Physicians:" & "I am sending this email to serve as a reminder for you to please sign your EMS Medical Command PCRs." & "The website is www.emscharts.com. Enter your username and password. Select Patient Records. Select MD Consults. A list of PCRs in which you need to sign will populate the screen. Click on a chart to open it. Scroll down to the bottom. Select either Sign or Reject the chart. Electronically sign your chart by entering your Social Security Number (or 9 digit number which you entered in your User Section instead of your SSN) and your password (same password you used to login). Chart will close and return you to the list. Select the next chart and follow steps 5 thru 7. If you select Sign Chart within 2 minutes after signing your last chart you will not be required to perform step 7 (entering your SSN and Password). Please let me know if you have any issues." & "Thank you and have a great day!!!" & "Anthony" olkMsg.Send End With 'Reset the reminder to some point in the future. This code sets the next run to one day into the future. objItem.ReminderTime = DateAdd("d", 1, Now) objItem.Save End If End If Set objTaskItem = Nothing End Sub Private Sub Application_Quit() Set objReminders = Nothing End Sub Private Sub Application_Startup() Set objReminders = Application.Reminders End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.