Вопрос: Как быстро удалить контакт сразу из всех групп рассылок в аутлуке?

Можно воспользоваться макросом для удаления. Сам контакт сохранится, но из всех групп будет исключен. Код такой:Sub RemoveSpecificContactfromAllGroups()Dim strSpecificContact As StringDim objTempMail As Outlook.MailItemDim objRecipient As Outlook.recipientDim objContactsFolder As Outlook.FolderDim objItem As ObjectDim objContactGroup As Outlook.DistListItemDim objContact As Outlook.ContactItemDim nprompt As IntegerstrSpecificContact = InputBox(«Введите адрес контакта, который нужно удалить из групп рассылок:»)Set objTempMail = Outlook.Application.CreateItem(olMailItem)Set objRecipient = objTempMail.Recipients.Add(strSpecificContact)objRecipient.ResolveIf objRecipient.Resolved = True ThenSet objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)For Each objItem In objContactsFolder.ItemsIf TypeOf objItem Is DistListItem ThenSet objContactGroup = objItemWith objContactGroup.RemoveMember objRecipient.Body = «Contact Removed: » & strSpecificContact & vbTab & «(» & Now & «)» & .Body.SaveEnd WithEnd IfNextnprompt = MsgBox(«Контакт удален!», vbExclamation, «Удаление контакта из групп рассылок»)Elsenprompt = MsgBox(«Контакт не может быть удален!», vbExclamation, «Ошибка удаления»)End IfEnd Sub