Ako rýchlo vytvoriť skupinu kontaktov zo zoznamu príjemcov e-mailov pomocou programu Outlook VBA

Zdieľať teraz:

Občas, keď odosielate alebo prijímate e-mail s mnohými príjemcami, môžete vytvoriť skupinu kontaktov pre týchto príjemcov. Tento článok predstaví rýchly spôsob, ako to dosiahnuť pomocou aplikácie Outlook VBA.

V našom predchádzajúcom článku „Ako vytvoriť kontaktnú skupinu zo zoznamu príjemcov”, Sme sa naučili bežnú metódu na vytvorenie skupiny kontaktov pre príjemcov e-mailov. To znamená najskôr vybrať a skopírovať príjemcov z e-mailov, potom vytvoriť skupinu kontaktov manuálne a vložiť príjemcov do poľa „Členovia ->“. Je zrejmé, že to znamená, že je mimoriadne ťažkopádne. Preto tu predstavíme ďalší prístup, ktorý využije Outlook VBA na rýchle získanie novej kontaktnej skupiny. Stačí stlačiť tlačidlo a nemusíte opakovane kopírovať a vkladať. Čítajte ďalej a získate zložité kroky a kódy VBA.

Vytvorte skupinu kontaktov zo zoznamu príjemcov e-mailu

  1. Najprv by ste mali v programe Outlook prejsť na kartu „Vývojár“.
  2. Na tejto karte potom môžete nájsť a kliknúť na tlačidlo „Visual Basic“.
  3. Potom sa otvorí nové okno „Microsoft Visual Basic for Applications“. Teraz by ste mali otvoriť nový modul kliknutím na „Vložiť“> „Modul“.Vložte nový modul
  4. Ďalej v novom okne modulu môžete skopírovať a prilepiť nasledujúce kódy.
Sub createcontactgroupforrecipients()
    Dim obApp As Application
    Dim olSel As Selection
    Dim obj As Object
    Dim oMail As MailItem
    Dim tempMail As MailItem
    Dim Recips As Recipients
    Dim ConGroup As DistListItem
    Dim strName As String
 
    Set obApp = Outlook.Application
    Set olSel = obApp.ActiveExplorer.Selection
 
    For Each obj In olSel
        If obj.Class = olMail Then
           Set oMail = obj
           Set tempMail = oMail.ReplyAll
           Set Recips = tempMail.Recipients
           Set ConGroup = obApp.CreateItem(olDistributionListItem)
           strName = InputBox("Specify a name for the new contact group:")
           With ConGroup
                .AddMembers Recips
                .DLName = strName
                'Use ".Save" to directly save the new contact group
                .Display
           End With
           tempMail.Close olDiscard
        End If
     Next
End Sub

Skopírujte kódy VBA do nového modulu

  1. Neskôr môžete opustiť súčasné okno „Visual Basic“ a pokračovať pridaním nového makra na panel nástrojov Rýchly prístup. Kliknite na šípku nadol na paneli s nástrojmi Rýchly prístup a v rozbaľovacom zozname zvoľte možnosť „Viac príkazov“.
  2. Následne sa dostanete do okna „Možnosti programu Outlook“. V tomto okamihu musíte vykonať nasledujúce kroky:
  • Najskôr nastavte možnosť „Vybrať príkazy z“ na „Makrá“.
  • Potom vyhľadajte a vyčnievajte predtým pridané makro.
  • Ďalej kliknite na tlačidlo „Pridať“ v strede.
  • Nakoniec stlačte tlačidlo „OK“.Pridajte nové makro na panel s nástrojmi Rýchly prístup
  1. Potom sa môžete vrátiť na svoje poštové pole Outlook a vyskúšať.
  • Najskôr môžete umiestniť jednu poštu do ľubovoľného priečinka s poštou.
  • Potom kliknite na tlačidlo na paneli s nástrojmi Rýchly prístup, napríklad na obrázku nižšie:Vyberte e-mail a kliknite na tlačidlo na paneli s nástrojmi Rýchly prístup
  • Ďalej dostanete správu, ktorá vyžaduje zadanie názvu novej skupiny kontaktov.Zadajte názov novej skupiny kontaktov
  • Neskôr kliknite na tlačidlo „OK“. Okamžite sa otvorí nová skupina kontaktov, ktorá obsahuje všetkých vybratých príjemcov e-mailov. Stlačením tlačidla „Uložiť a zavrieť“ to uložíte.Uložte kontaktnú skupinu

Nevyhnutné v ochrane údajov programu Outlook

Vzhľadom na to, že je program Outlook zraniteľný, mali by ste vykonať dostatočné preventívne opatrenia na zabezpečenie ich údajov v programe Outlook. Najskôr by ste si mali pravidelne zálohovať dáta z Outlooku. Okrem toho potrebujete vedieť, ako zistiť a spustiť vstavaný nástroj na opravu Scanpst.exe. V neposlednom rade je nevyhnutnosťou hviezdny zovňajšok poškodený nástroj na opravu údajov programu Outlook, Ako sú DataNumen Outlook Repair, ktoré vám pomôžu, ak zlyhajú zálohy aj Scanpst.exe.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava SQL Server chyba mdf databázy a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Zdieľať teraz:

Komentáre sú uzavreté.