Понякога, когато изпращате или получавате имейл с много получатели, може да искате да създадете група контакти за тези получатели. Тази статия ще представи бърз начин да го постигнете с Outlook VBA.
В предишната ни статия „Как да създам група контакти от списък с получатели”, Научихме общ метод за създаване на групата за контакти за получатели на имейли. Това е първо да изберете и копирате получателите от имейлите, а след това ръчно да създадете група контакти и да ги поставите в полето „Членове ->“. Очевидно това означава, че е изключително тромаво. Ето защо тук ще въведем друг подход, който ще използва Outlook VBA за бързо постигане на нова група за контакти. Можете просто да натиснете бутон, без да е необходимо повторно копиране и поставяне. Прочетете, за да получите сложните стъпки и кодовете на VBA.
Създайте група за контакти от списъка с получатели на имейл
- За начало трябва да отидете в раздела „Разработчик“ в Outlook.
- След това под този раздел можете да намерите и кликнете върху бутона „Visual Basic“.
- След това ще се отвори нов прозорец „Microsoft Visual Basic for Applications“. Сега трябва да отворите нов модул, като щракнете върху „Вмъкване“> „Модул“.
- След това в новия прозорец на модула можете да копирате и поставите следните кодове в него.
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- По-късно можете да излезете от текущия прозорец „Visual Basic“ и да продължите да добавяте новия макрос към лентата с инструменти за бърз достъп. Щракнете върху стрелката надолу в лентата с инструменти за бърз достъп и изберете „Още команди“ от падащия списък.
- Впоследствие ще влезете в прозореца „Опции на Outlook“. В този момент трябва да предприемете следните стъпки:
- Първо, задайте „Избор на команди от“ на „Макроси“.
- След това потърсете и представете добавения преди това макрос.
- След това кликнете върху бутона „Добавяне“ в центъра.
- Накрая натиснете бутона „OK“.
- След това можете да се върнете в прозореца за поща на Outlook и да опитате.
- Отначало можете да представите една поща във всяка пощенска папка.
- След това щракнете върху бутона в лентата с инструменти за бърз достъп, като изображението по-долу:
- След това ще получите поле за съобщение, което изисква да посочите име за новата група контакти.
- По-късно щракнете върху бутона „OK“. Веднага ще се отвори новата група контакти, която съдържа всички избрани получатели на имейли. Можете да натиснете „Запазване и затваряне“, за да го запазите.
Трябва да има в защитата на данните в Outlook
Поради факта, че Outlook е уязвим, трябва да предприемете достатъчно предпазни мерки, за да защитите техните данни на Outlook. Първо, трябва да направите редовно архивиране на данни в Outlook. Освен това трябва да знаете как да откриете и стартирате вградения инструмент за ремонт, Scanpst.exe. Последната, но не на последно място необходимост е звездно външно повреден инструмент за поправка на данни на Outlook, Като DataNumen Outlook Repair, които ще ви помогнат, ако архивирането и Scanpst.exe не успеят.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт SQL Server грешка в базата данни на mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com