Salt la conținutul principal

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

fișier de modificare doc ca 3

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

📧 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 ProSalvaț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.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I run the script above in 5 min and saved hours!! GREAT!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations