Как да пакетно променям файл като формат за всички контакти в Outlook?
По принцип файловете с контакти се показват като Фамилия Име в Outlook, но как можете бързо да промените групово файловете с контакти като формат на Компания или друг ред, както е показано на екранната снимка по-долу? Подредбата по подразбиране „Файл като“ може да работи само за новия контакт, но не и за съществуващите. Тук представям VBA код за пакетна промяна на файла като формат за всички съществуващи контакти в Outlook.
Файл за пакетна промяна както за всички контакти с VBA
Файл за пакетна промяна както за всички контакти с VBA
1. Изберете контактите, на които искате да промените файла, натиснете Alt + F11 клавиши за активиране на Microsoft Visual Basic for Applications прозорец.
2. Щракнете два пъти върху ThisOutlookSession in Project-Project1 панел и копирайте и поставете кода по-долу в празния скрипт.
VBA: Променете файла като
Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
If xItem.Class = olContact Then
Set xContact = xItem
With xContact
If .CompanyName = "" Then
xFileAs = .FullName
Else
xFileAs = .CompanyName
End If
.FileAs = xFileAs
.Save
End With
End If
Next
End Sub
3. Натиснете F5 клавиш за стартиране на кода, тогава всички избрани контакти са променени във файла като компания.
Забележка:
1. В кода можете да промените CompanyName към други полета, като искате да покажете файла.
2. Ако няма информация за фирмата, ще се покаже пълното име.
Най-добрите инструменти за продуктивност в офиса
Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.
