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") Set objMsg = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Then 'IPM.TaskItem to watch for Task Reminders Private Sub Application_Reminder(ByVal Item As Object) For this to be useful, you need to use a category, otherwise Outlook will attempt to send a message with every appointment reminder. This macro checks for Appointment reminders and sends a message to the value in the location field. Send a message to someone when a reminder fires To use, press Alt+F11 to open the VBA editor then copy the code and paste it into ThisOutlookSession. Use one of the tools listed at the end to dismiss the dialogs. Note, this will trigger the email security alert in older versions of Outlook. Outlook needs to be running for these macros to work. 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 will need to be running and be able to connect to the mail server for the message to be generated and sent.īecause the message is composed when the reminder fires, the message time stamp will be the reminder time. 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.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |