1: 2: 3: 4: 5: 6: 7:
Sub StripReminder (o artigo como Outlook.MailItem) Se Item.FlagStatus = olFlagMarked então Item.FlagStatus = olNoFlag Item.FlagRequest = "" Terminar se Item.Save Terminar o submarino