Kako paketno spremeniti datoteko kot obliko za vse stike v Outlooku?
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
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
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: 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: Odsoten (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: Enostaven priklic 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 Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / 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 ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.
