Jak dávkově změnit soubor jako formát pro všechny kontakty v aplikaci Outlook?
Obecně se soubory kontaktů zobrazují jako příjmení křestní jméno v Outlooku, ale jak můžete rychle dávkově změnit soubory kontaktů jako formát na společnost nebo jiné pořadí, jak je uvedeno níže? Objednávka Možnost Výchozí „Soubor jako“ může fungovat pouze pro nový kontakt, ale ne pro existující. Zde představuji kód VBA pro dávkovou změnu souboru jako formát pro všechny existující kontakty v aplikaci Outlook.
Dávková změna souboru jako u všech kontaktů s VBA
Dávková změna souboru jako u všech kontaktů s VBA
1. Vyberte kontakty, u kterých chcete soubor změnit, stiskněte Alt + F11 klávesy pro povolení Microsoft Visual Basic for Applications okno.
2. Poklepejte na ThisOutlookSession in Project-Project1 podokno a zkopírujte a vložte pod kód do prázdného skriptu.
VBA: Změnit soubor jako
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. lis F5 klíč ke spuštění kódu, pak byly všechny vybrané kontakty změněny na soubor jako společnost.
Poznámka:
1. V kódu můžete změnit CompanyName do dalších polí, ve kterých chcete soubor zobrazit.
2. Pokud neexistují žádné informace o společnosti, zobrazí se celé jméno.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.