Cum se poate modifica fișierul ca format pentru toate contactele din Outlook?
În general, fișierele de contact sunt afișate ca Prenume Prenume în Outlook, dar cum puteți schimba rapid fișierele de contact ca format în Companie sau altă comandă, așa cum este prezentat mai jos? Comanda opțională „Fișier ca” implicit poate funcționa numai pentru noul contact, dar nu pentru cele existente. Aici, introduc un cod VBA pentru a modifica fișierul ca format pentru toate contactele existente în Outlook.
Fișier de schimbare a lotului ca pentru toate contactele cu VBA
Fișier de schimbare a lotului ca pentru toate contactele cu VBA
1. Selectați contactele pentru care doriți să schimbați fișierul, apăsați Alt + F11 tastele pentru a activa Microsoft Visual Basic for Applications fereastră.
2. Faceți dublu clic pe ThisOutlookSession in Project-Project1 și copiați și lipiți codul de mai jos în scriptul gol.
VBA: Schimbați fișierul ca
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. presa F5 tasta pentru a rula codul, apoi toate contactele selectate au fost modificate fișierul ca companie.
Notă:
1. În cod, puteți modifica CompanyName către alte câmpuri în care doriți să afișați fișierul.
2. Dacă nu există informații despre companie, aceasta va afișa numele complet.
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.