1: 2: 3: 4: 5: 6: 7:
Sub StripReminder (objektet som Outlook.MailItem) Om Item.FlagStatus = olFlagMarked därefter Item.FlagStatus = olNoFlag Item.FlagRequest = "", Avsluta om Item.Save Avsluta suben