Preskoči na glavno vsebino

Kako paketno spremeniti datoteko kot obliko za vse stike v Outlooku?

Avtor: Sonce Zadnja sprememba: 2020-11-19

Datoteke s stiki so v Outlooku na splošno prikazane kot Last name (Ime), kako pa lahko hitro spremenite datoteke s stiki kot obliko v Company ali v drug vrstni red, kot je prikazano na spodnji sliki zaslona? Možnost Privzeto naročilo »Datoteka kot« lahko deluje samo za nove stike, ne pa tudi za obstoječe. Tukaj predstavljam kodo VBA za paketno spremembo datoteke kot obliko za vse obstoječe stike v Outlooku.

Datoteka za paketno spremembo kot za vse stike z VBA


Datoteka za paketno spremembo kot za vse stike z VBA

1. Izberite stike, v katere želite spremeniti datoteko, in pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic for Applications okno.

2. Dvokliknite na ThisOutlookSession in Project-Project1 podokno ter kopirajte in prilepite spodnjo kodo v prazen skript.

VBA: Spremenite datoteko kot

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

doc spremeni datoteko kot 3

3. Pritisnite F5 tipko za zagon kode, potem so bili vsi izbrani stiki spremenjeni v datoteko kot podjetje.

Opomba:

1. V kodi lahko spremenite CompanyName v druga polja, kot jih želite prikazati.

2. Če ni podatkov o podjetju, bo prikazano polno ime.


Najboljša pisarniška orodja za produktivnost

Izjemne novice: Zažene se Kutools for Outlook Brezplačna različica!

Izkusite popolnoma nove Kutools za Outlook BREZPLAČNA različica s 70+ neverjetnimi funkcijami, vaša za uporabo ZA VEDNO! Kliknite za prenos zdaj!

🤖 Kutools AI : Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Samodejni odgovor (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Odpoklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Opomni vas, ko pridejo pomembna e-poštna sporočila  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Takoj odklenite Kutools za Outlook z enim klikom—trajno brezplačno. ne čakaj, prenesite zdaj in povečajte svojo učinkovitost!

kutools za funkcije Outlooka1 kutools za funkcije Outlooka2
 

 

 

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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations