I'm sure there is an easy way to accomplish this but I have yet been able to find any. I wrote some code (with the help of some of you experts) in visual basic editor to have an email automatically sent every x number of days. The problem I am having is with the body of the message. The entire message is one paragraph and doesn't look professional. I would like to break it up with a salutation, several paragraphs, and a signature. Please let me know what I need to to, thank you!
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)
Dim OlkRecip As Outlook.Recipient
Set OlkRecip = .Recipients.Add("email@example.com")
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"
'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)
Set objTaskItem = Nothing
Private Sub Application_Quit()
Set objReminders = Nothing
Private Sub Application_Startup()
Set objReminders = Application.Reminders