Občas, když odesíláte nebo přijímáte e-maily s mnoha příjemci, můžete vytvořit skupinu kontaktů pro tyto příjemce. Tento článek představí rychlý způsob, jak toho dosáhnout pomocí aplikace Outlook VBA.
V našem předchozím článku „Jak vytvořit skupinu kontaktů ze seznamu příjemců”, Naučili jsme se běžnou metodu vytváření skupiny kontaktů pro příjemce e-mailů. To znamená nejprve vybrat a zkopírovat příjemce z e-mailů a poté ručně vytvořit skupinu kontaktů a vložit příjemce do pole „Členové ->“. Je zřejmé, že to znamená, že je mimořádně těžkopádné. Proto zde představíme další přístup, který využije Outlook VBA k rychlému vytvoření nové skupiny kontaktů. Stačí stisknout tlačítko, aniž byste museli opakovaně kopírovat a vkládat. Čtěte dále a získejte propracované kroky a kódy VBA.
Vytvořte skupinu kontaktů ze seznamu příjemců e-mailu
- Pro začátek byste se měli v Outlooku obrátit na kartu „Vývojář“.
- Na této kartě pak můžete vyhledat a kliknout na tlačítko „Visual Basic“.
- Poté se otevře nové okno „Microsoft Visual Basic for Applications“. Nyní byste měli otevřít nový modul kliknutím na „Vložit“> „Modul“.
- Dále v novém okně modulu můžete do něj zkopírovat a vložit následující 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
- Později můžete opustit aktuální okno „Visual Basic“ a pokračovat přidáním nového makra na panel nástrojů Rychlý přístup. Klikněte na šipku dolů na panelu nástrojů Rychlý přístup a v rozevíracím seznamu vyberte možnost Další příkazy.
- Následně se dostanete do okna „Možnosti aplikace Outlook“. V tomto okamžiku musíte provést následující kroky:
- Nejprve nastavte „Vybrat příkazy z“ na „Makra“.
- Poté vyhledejte a přidejte dříve přidané makro.
- Dále klikněte na tlačítko „Přidat“ uprostřed.
- Nakonec stiskněte tlačítko „OK“.
- Poté se můžete vrátit do podokna pošty aplikace Outlook a vyzkoušet to.
- Nejprve můžete poslat e-mail na jednu poštu v libovolné složce pošty.
- Poté klikněte na tlačítko na panelu nástrojů Rychlý přístup, jako na obrázku níže:
- Dále obdržíte okno se zprávou, které vyžaduje zadání názvu nové skupiny kontaktů.
- Později klikněte na tlačítko „OK“. Najednou se otevře nová skupina kontaktů, která obsahuje všechny vybrané příjemce e-mailu. Klepnutím na tlačítko Uložit a zavřít jej uložíte.
Musíte mít ochranu dat v Outlooku
Vzhledem k tomu, že je aplikace Outlook zranitelná, měli byste provést dostatečná opatření k ochraně jejich dat v aplikaci Outlook. Nejprve byste měli pravidelně zálohovat data aplikace Outlook. Kromě toho potřebujete vědět, jak zjistit a spustit vestavěný nástroj pro opravu Scanpst.exe. V neposlední řadě je nutností hvězdný exteriér poškozený nástroj pro opravu dat aplikace Outlook, Jako DataNumen Outlook Repair, které vám přijdou na pomoc, pokud selže zálohování i Scanpst.exe.
Ú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 Chyba databáze MDF a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com