1: 2: 3: 4: 5: 6: 7:
Sub StripReminder(Item As Outlook.MailItem) If Item.FlagStatus = olFlagMarked Then Item.FlagStatus = olNoFlag Item.FlagRequest = "" End If Item.Save End Sub