Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium


Sending Appointment Reminders in Outlook

Posted on 2005-04-19
Medium Priority
Last Modified: 2010-04-08
I have an administrative assistant that is sending a meeting request to various employees.  They all accept it and shows up in their calendars.  She needs a way to send reminders to the various employees to remind them of the meeting.  Currently, she opens up the appointment and clicks on Send Update.  Unfortunately, a user sees the reminder and thinks it is already in his calendar so he deletes it.  It does not send an e-mail to the administrative assistant indicating he deleted it but it does get removed from his Calendar.

Is this just a matter of training the user not to delete the update?

Question by:ajruiz
  • 4
  • 2
LVL 76

Expert Comment

by:David Lee
ID: 13823205
Hi ajruiz,

If you're interested in a solution that uses an Outlook macro, then I can help you solve this.


Author Comment

ID: 13824062
A macro would be solution.  Do you have one available?
LVL 76

Expert Comment

by:David Lee
ID: 13829201
I'll put one together and post it as quickly as I can.
Prepare for your VMware VCP6-DCV exam.

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

LVL 76

Accepted Solution

David Lee earned 2000 total points
ID: 14840582

I owe you a huge apology!  Somehow this question fell through the cracks and I forgot about it.  Here's the macro I'd mentioned.  This macro will create a reminder message for the currently selected appointment.  If you need instructions on how to set a macro up and use it, then let me know and I'll get them posted.

Sub SendAppointmentReminder()
    Dim olkAppointment As Outlook.AppointmentItem, _
        olkMessage As Outlook.MailItem, _
        olkRecipient As Outlook.Recipient
    Set olkAppointment = Application.ActiveExplorer.Selection.Item(1)
    Set olkMessage = Application.CreateItem(olMailItem)
    With olkMessage
        For Each olkRecipient In olkAppointment.Recipients
            .Recipients.Add olkRecipient.Address
        .Subject = "Appointment Reminder: " & olkAppointment.Subject
        .Body = "This is to remind you of the subject appointment." & vbCrLf & _
            "  Begins: " & olkAppointment.Start & vbCrLf & _
            "Location: " & olkAppointment.Location
    End With
End Sub

Author Comment

ID: 14841079
I tried it and it works great.  The user is very pleased better late than never.
LVL 76

Expert Comment

by:David Lee
ID: 14841169
Glad to hear it.  I apologize again for having forgotten the question for so long.

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The core idea of this article is to make you acquainted with the best way in which you can export Exchange mailbox to PST format.
This article will help to fix the below errors for MS Exchange Server 2016 I. Certificate error "name on the security certificate is invalid or does not match the name of the site" II. Out of Office not working III. Make Internal URLs and Externa…
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…
Is your OST file inaccessible, Need to transfer OST file from one computer to another? Want to convert OST file to PST? If the answer to any of the above question is yes, then look no further. With the help of Stellar OST to PST Converter, you can e…
Suggested Courses

578 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question