1: 2: 3: 4: 5: 6: 7:
Sub StripReminder (Punt als Outlook.MailItem) Als Item.FlagStatus = toen olFlagMarked Item.FlagStatus = olNoFlag Item.FlagRequest = "" Eind als Item.Save Sub van het eind