Jak změnit formáty zobrazovaného jména e-mailu všech vašich kontaktů v dávkách pomocí aplikace Outlook VBA

Aplikace Outlook zobrazí všechny kontaktní e-maily ve výchozím formátu zobrazovaného jména, konkrétně „celé jméno (e-mailová adresa)“. Pokud se vám nelíbí, budete to muset při vytváření nových kontaktů pokaždé ručně změnit. Tento článek vás naučí rychlý způsob, jak je změnit v dávkách pomocí aplikace Outlook VBA.

Když vytvoříte nový kontakt aplikace Outlook, po zadání celého jména a e-mailové adresy a následném kliknutí do pole „Zobrazit jako“ se automaticky vyplní výchozí zobrazovaný název, který se zobrazí jako následující snímek obrazovky:

Toto zobrazované jméno e-mailu se projeví, když potřebujete vybrat kontakt. Stejně jako na obrázku níže, 2^nd sloupec „Zobrazovaný název“ odpovídá informacím v poli „Zobrazit jako“.

Chcete-li změnit formát zobrazovaného jména e-mailu, musíte jej změnit ručně. Ale pomocí VBA můžete v dávkách změnit veškerý formát zobrazovaného jména e-mailu kontaktu na požadovaný formát.

Změňte formáty zobrazovaného jména e-mailu všech vašich kontaktů v dávkách

1. Nejprve spusťte aplikaci Outlook a stisknutím kláves „Alt + F11“ otevřete okno „Visual Basic“.
2. Poté otevřete nový modul a zkopírujte do něj následující kódy VBA.

Sub BatchChangeContactDisplayName()
    Dim obApp As Application
    Dim olContacts As Outlook.Items
    Dim obj As Object
    Dim oContact As Outlook.ContactItem
    Dim strName As String
 
    Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
 
    For Each obj In olContacts
        If TypeName(obj) = "ContactItem" Then
           Set oContact = obj
           With oContact
                'Display name format: "fullname (company name)(email address)"
                 strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
                .Email1DisplayName = strName
                .Save
           End With
        End If
    Next
End Sub

Extra tipy:

• Objednávku můžete podle svých preferencí změnit mezi „celým jménem“, „názvem společnosti“ a „e-mailovou adresou“.
• ".Celé jméno”Odkazuje na formát v části„ Jméno a příjmení “. Chcete-li zobrazit „Příjmení Jméno“, použijte „.LastNameAndFirstName" namísto.

3. Následně po vložení kódů VBA byste měli přidat nové makro na panel nástrojů Rychlý přístup. Postupujte podle následujících pokynů:

• Nejprve se vraťte do hlavního okna Outlooku a stiskněte šipku dolů na panelu nástrojů Rychlý přístup.
• Z rozevíracího seznamu vyberte „Další příkazy“.
• V okně „Možnosti aplikace Outlook“ byste pak měli v poli „Vybrat příkazy z“ vybrat „Makra“.
• Následně najeďte myší na cílové makro a stiskněte tlačítko „Přidat“ uprostřed.
• Nakonec klikněte na tlačítko „OK“.

4. Nakonec se můžete vrátit do výchozí složky kontaktů. Klikněte na tlačítko makra na panelu nástrojů Rychlý přístup. Poté můžete otevřít jeden kontakt a zkontrolovat jej. Zjistíte, že byl změněn formát zobrazovaného názvu e-mailu.

Únik z aplikace Outlook Data Loss

Jak všichni víme, Outlook je citlivý na chyby, poškození. Proto je náročným úkolem chránit data aplikace Outlook a zabránit jejich ztrátě. Měli byste tedy pravidelně zálohovat svá data aplikace Outlook, což k tomu hodně přispěje Obnova poškození dat aplikace Outlook v případě selhání aplikace Outlook. Je také důležité získat silný nástroj pro opravu, jako je DataNumen Outlook Repair. Celkově se to bude hodit, pokud záloha není aktuální nebo neprovede efekty.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit SQL Server poškození databáze mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com