1: 2: 3: 4: 5: 6: 7:
Sub StripReminder (деталь как Outlook.MailItem) Если Item.FlagStatus = olFlagMarked после этого Item.FlagStatus = olNoFlag Item.FlagRequest = "" Закончитесь если Item.Save Закончите подводную лодку