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

Автор Анонимный вопрос задал интересный вопрос в категории Microsoft outlook, Электронная почта. Он спрашивает: Как быстро удалить контакт сразу из всех групп рассылок в аутлуке?. Среди полученных ответов он выбрал самый точный и полный ответ.

Самый полезный ответ для автора Анонимный вопрос

Можно воспользоваться макросом для удаления. Сам контакт сохранится, но из всех групп будет исключен. Код такой: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

Кроме этого другие посетители написали Ещё 1 ответ

Можно воспользоваться макросом для удаления. Сам контакт сохранится, но из всех групп будет исключен. Код такой: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

Поиск по контактам — есть там такое. И потом просто удалить. Так проще, чем просматривать группу рассылок за группой.