Přejít k hlavnímu obsahu

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

soubor změny dokumentu jako 3

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

???? 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 ProDá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.

Více       Stažení zdarma      Nákup
 

 

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