Outlook ще покаже всички имейли за контакти в неговия формат на показваното име по подразбиране, а именно „пълно име (имейл адрес)“. Ако не ви харесва, ще трябва да го променяте ръчно всеки път, когато създавате нови контакти. Тази статия ще ви научи на бърз начин да ги променяте на партиди с Outlook VBA.
Когато създавате нов контакт в Outlook, след като въведете пълното име и имейл адрес и след това щракнете в полето „Показване като“, показваното име по подразбиране ще бъде попълнено автоматично, показано като следната екранна снимка:
Това име на имейл ще има ефект, когато трябва да изберете контакт. Подобно на изображението по-долу, 2nd колона „Display Name“ съответства на информацията в полето „Display as“.
Когато искате да промените формата на имейл имейл, трябва да го промените ръчно. Но с помощта на VBA можете да промените формата на имената за показване на имейлите на всички контакти в желания формат на партиди.
Променете форматите за показване на имейл имейл на всичките си контакти в партиди
- На първо място стартирайте Outlook и натиснете бутоните „Alt + F11“ за достъп до прозореца „Visual Basic“.
- След това отворете нов модул и копирайте следните VBA кодове в него.
Sub BatchChangeContactDisplayName()
Dim obApp As Application
Dim olContacts As Outlook.Items
Dim obj As Object
Dim oContact As Outlook.ContactItem
Dim strName As String
Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
For Each obj In olContacts
If TypeName(obj) = "ContactItem" Then
Set oContact = obj
With oContact
'Display name format: "fullname (company name)(email address)"
strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
.Email1DisplayName = strName
.Save
End With
End If
Next
End Sub
Допълнителни съвети:
- Можете да промените реда между „пълно име“, „име на фирма“ и „имейл адрес“ според вашите предпочитания.
- ".Пълно име”Се отнася до формата в„ Име Фамилия ”. Ако искате да се показва в „Lastname Firstname“, използвайте „.LastNameAndFirstName" вместо.
- Впоследствие, след като поставите кодовете на VBA, трябва да добавите новия макрос към лентата с инструменти за бърз достъп. Следвайте стъпките по-долу:
- Първо, върнете се в главния прозорец на Outlook и натиснете стрелката надолу в лентата с инструменти за бърз достъп.
- От падащия списък изберете „Още команди“.
- След това в прозореца „Опции на Outlook“ трябва да изберете „Макроси“ в полето „Избор на команди от“.
- След това, насочете се към целевия макрос и натиснете бутона „Добавяне“ в центъра.
- Накрая щракнете върху бутона „OK“.
- В крайна сметка можете да се върнете към папката с контакти по подразбиране. Щракнете върху бутона за макрос в лентата с инструменти за бърз достъп. След това можете да отворите един контакт за проверка. Ще откриете, че форматът на имейл имена е променен.
Бягство от загубата на данни в Outlook
Както всички знаем, Outlook е податлив на грешки и корупции. Следователно е трудна задача да запазите данните на Outlook защитени и да предотвратите загуба на данни. Така че трябва да правите редовно архивиране на данните си в Outlook, което ще допринесе много за Възстановяване на щети от данни в Outlook в случай на срив на Outlook. Също така е от съществено значение да получите мощен инструмент за ремонт, като например DataNumen Outlook Repair. Като цяло ще бъде полезно, ако архивирането не е актуално или не успее да направи ефекти.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт SQL Server повреда на базата данни на mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com