Have you ever received the meetings if you are simply an optional attendee? In face of such meetings, you may wish Outlook to remove their reminders. This post will introduce a method to realize it.
If you are using Outlook in a business environment, you may have used Outlook “Meeting” feature. At times, you may receive the meetings in which you are only an optional recipient, which means that you are not the required and most vital attendee. Hence, you’re unwilling to be reminded of upcoming such meetings. In other words, you hope to auto remove the reminders of such meetings. Now, here we will teach you how to achieve it with Outlook VBA.
Auto Remove the Meeting Reminders If You’re an Optional Attendee
- At the very beginning, start your Outlook application.
- Then, tap on “Alt + F11” to access VBA editor.
- Next, put the following VBA code in the “ThisOutlookSession” project.
Public WithEvents objIncomingItems As Outlook.Items Private Sub Application_Startup() Set objIncomingItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items End Sub 'Occurs when a new item arrives in Inbox Private Sub objIncomingItems_ItemAdd(ByVal Item As Object) Dim objMeetingRequest As Outlook.MeetingItem Dim objAttendees As Outlook.Recipients Dim objOptionalAttendee As Outlook.Recipient Dim strOptionalAttendees As String Dim objMeeting As Outlook.AppointmentItem If TypeOf Item Is MeetingItem Then Set objMeetingRequest = Item Set objAttendees = objMeetingRequest.Recipients 'Get the email address list of all optional attendees For i = objAttendees.Count To 1 Step -1 If objAttendees.Item(i).Type = olOptional Then Set objOptionalAttendee = objAttendees.Item(i) strOptionalAttendees = strOptionalAttendees & ";" & objOptionalAttendee.Address End If Next 'Check if your email address is in Optional attendee list 'Change "firstname.lastname@example.org" to your own email address If InStr(strOptionalAttendees, "email@example.com") > 0 Then Set objMeeting = objMeetingRequest.GetAssociatedAppointment(True) 'Remove reminders If objMeeting.ReminderSet = True Then objMeeting.ReminderSet = False objMeeting.Save End If End If End If End Sub
- After that, move the cursor in the “Application_Startup” subroutine.
- Lastly, click “F5” key button to activate this macro.
- Since then, every time when you get a meeting in which you are an optional attendee, Outlook will auto remove its reminders.
What if Encountering Outlook Corruption
Many users have been subject to Outlook damage before. Have you ever suffered it? In general, when coming across such problems, you have to check your regular data backups to see if there is a useful Outlook PST file. If not, it demands you to fall back on a remarkable third party tool, such as DataNumen Outlook Repair. It is able to fix PST file, thereby getting back maximum data from your corrupt file.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including damaged mdf and outlook repair software products. For more information visit www.datanumen.com