Another entry in my Lazy Programmer Series, this time I have a macro that sends an email message when a reminder fires. This macro was the result of a request for the ability to send messages to the sales team each morning with the day's agenda.
If you prefer to use an add-in, I have a list of reminder tools at Calendar Tools for Outlook
You can use the macro to send yourself reminders or even to compose an email message ahead of time (in the body of a an appointment form) and send it later. Outlook will need to be running and be able to connect to the mail server for the message to be generated and sent.
Because the message is composed when the reminder fires, the message time stamp will be the reminder time. Please don't abuse the trust others have in you: use this macro for legitimate purposes, not to convince someone you were working when you weren't!
Outlook needs to be running for these macros to work. Note, this will trigger the email security alert in older versions of Outlook. Use one of the tools listed at the end to dismiss the dialogs.
To use, press Alt+F11 to open the VBA editor then copy the code and paste it into ThisOutlookSession.
Send a message to someone when a reminder fires
This macro checks for Appointment reminders and sends a message to the value in the location field. For this to be useful, you need to use a category, otherwise Outlook will attempt to send a message with every appointment reminder.
Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem to watch for Task Reminders If Item.MessageClass <> "IPM.Appointment" Then Exit Sub End If If Item.Categories <> "Send Message" Then Exit Sub End If objMsg.To = Item.Location objMsg.BCC = "email@example.com" objMsg.Subject = Item.Subject objMsg.Body = Item.Body objMsg.Send Set objMsg = Nothing End Sub
To use a template instead of the default message form, replace Set objMsg = Application.CreateItem(olMailItem) with Set objMsg = Application.CreateItemFromTemplate("C:\path\to\test-rule.oft")
Send a message to yourself when a reminder fires
This is the original code we had on this page and sends an email message to an address when any reminder fires.
Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) objMsg.To = "firstname.lastname@example.org" objMsg.Subject = "Reminder: " & Item.Subject ' Code to handle the 4 types of items that can generate reminders Select Case Item.Class Case olAppointment '26 objMsg.Body = _ "Start: " & Item.Start & vbCrLf & _ "End: " & Item.End & vbCrLf & _ "Location: " & Item.Location & vbCrLf & _ "Details: " & vbCrLf & Item.Body Case olContact '40 objMsg.Body = _ "Contact: " & Item.FullName & vbCrLf & _ "Phone: " & Item.BusinessTelephoneNumber & vbCrLf & _ "Contact Details: " & vbCrLf & Item.Body Case olMail '43 objMsg.Body = _ "Due: " & Item.FlagDueBy & vbCrLf & _ "Details: " & vbCrLf & Item.Body Case olTask '48 objMsg.Body = _ "Start: " & Item.StartDate & vbCrLf & _ "End: " & Item.DueDate & vbCrLf & _ "Details: " & vbCrLf & Item.Body End Select objMsg.Send Set objMsg = Nothing End Sub
Select an appointment and send a message
With a few tweaks, the macro above can be used to send a message by selecting the appointment then running the macro.
- Press Alt+F11 to open the VBA editor.
- Right click on Project1 and choose Insert > Module.
- Paste the code below into the Module.
- Get the GetCurrentItem function from Outlook VBA: work with open item or selected item and paste it into the module.
Public Sub App_Reminder() Dim Item As AppointmentItem Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) Set Item = GetCurrentItem() With objMsg ' .To = Item.Location .Subject = Item.Subject .Body = Item.Body .Display ' use .Send to send it instead End With Set objMsg = Nothing Set Item = Nothing End Sub
Pop up a dialog
You can use the code on this page to do pretty much anything VBA can do when the reminder fires.
This simple code sample displays a dialog box to remind you.
Private Sub Application_Reminder(ByVal Item As Object) If Item.MessageClass <> "IPM.Appointment" Then Exit Sub End If MsgBox "You have an appointment for " & vbCrLf _ & Item.Subject & vbCrLf _ & "on " & Format(Item.Start, "mmm dd") & vbCrLf _ & "Time: " & Format(Item.Start, "hh:mm AM/PM") _ & vbCrLf & "Location: " & Item.Location End Sub
Use Advanced Security for Outlook to learn what programs are trying to access Outlook and permanently allow or deny access to the program and the next time it requests access, the action you choose will be automatically executed and Outlook Security will not annoy you with messages about trying to access e-mail addresses you have stored in Outlook. Freeware, available in English, German and Russian. Advanced Security is fully compatible with Windows 8 (32-bit and 64-bit editions) and Microsoft Office 2013 (32-bit editions only). The programs button is available on the ribbon in Outlook 2010 and Outlook 2013.
ClickYes Pro is a tuning tool for Microsoft Outlook security settings. It allows you to configure which applications can automatically send emails using Outlook and access email addresses stored in Outlook address book. ClickYes Pro runs as a background task providing a convenient icon in the taskbar notification area to manage allowed applications. It uses an encrypted storage and is highly secure and safe. Client and Server versions available. Works with Outlook 2000 - Outlook 2010.
CodeTwo Outlook WarningDoctor removes the security warnings that appear when sending mail or performing other actions recognized by Microsoft as a "risky" (for example, when you try to read some data using the Outlook or CDO API #. Especially useful for designers of macros, Visual Basic, and programmers of other scripting languages that use the object model.Outlook 2000 and up, including Outlook 2010 64bit.
Discuss in our community