Kako hitro ustvariti skupino stikov s seznama prejemnikov e-pošte z Outlook VBA

Včasih, ko pošljete ali prejmete e-pošto z več prejemniki, boste morda želeli ustvariti skupino stikov za te prejemnike. Ta članek bo predstavil hiter način, kako to doseči z Outlook VBA.

V našem prejšnjem članku “Kako ustvariti skupino stikov s seznama prejemnikov”Smo se naučili običajne metode za ustvarjanje skupine stikov za prejemnike e-pošte. To je, da najprej izberete in kopirate prejemnike iz e-poštnih sporočil, nato pa ročno ustvarite skupino stikov in jih prilepite v polje »Člani ->«. Očitno je, da je to sredstvo zelo okorno. Zato bomo tu predstavili še en pristop, ki bo Outlook VBA uporabil za hitro vzpostavitev nove kontaktne skupine. Lahko preprosto pritisnete gumb, ne da bi ga bilo treba večkrat kopirati in prilepiti. V nadaljevanju boste našli podrobne korake in kode VBA.

Na seznamu prejemnikov e-pošte ustvarite skupino stikov

1. Za začetek se morate v Outlooku obrniti na zavihek »Razvijalec«.
2. Nato lahko na tem zavihku poiščete in kliknete gumb »Visual Basic«.
3. Po tem se odpre novo okno »Microsoft Visual Basic for Applications«. Zdaj bi morali odpreti nov modul s klikom na “Vstavi”> “Modul”.
4. Nato v novo okno modula lahko vanj kopirate in prilepite naslednje kode.

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

5. Kasneje lahko zaprete trenutno okno »Visual Basic« in nadaljujete z dodajanjem novega makra v orodno vrstico za hitri dostop. Kliknite puščico navzdol v orodni vrstici za hitri dostop in na spustnem seznamu izberite »Več ukazov«.
6. Nato boste prišli v okno »Outlook Options«. Na tem mestu morate storiti naslednje:

• Najprej nastavite "Izberite ukaze od" na "Makro".
• Nato poiščite in predstavite prej dodani makro.
• Nato v sredini kliknite gumb »Dodaj«.
• Na koncu pritisnite gumb »V redu«.

7. Po tem se lahko vrnete v podokno za Outlook in poskusite.

• Sprva lahko pošljete eno pošto v katero koli poštno mapo.
• Nato kliknite gumb v orodni vrstici za hitri dostop, kot je spodnja slika:
• Nato boste prejeli okno s sporočilom, v katerem boste morali določiti ime nove skupine stikov.
• Kasneje kliknite gumb »V redu«. Takoj se odpre nova skupina stikov, ki vsebuje vse izbrane prejemnike e-pošte. Če ga želite shraniti, lahko pritisnete »Shrani in zapri«.

Must-Haves v Outlookovem varstvu podatkov

Ker je Outlook ranljiv, morate sprejeti ustrezne previdnostne ukrepe za zaščito njihovih podatkov v Outlooku. Najprej bi morali narediti redno varnostno kopijo podatkov v Outlooku. Poleg tega morate vedeti, kako najti in zagnati vgrajeno orodje za popravilo Scanpst.exe. Nenazadnje je nujna zvezdna zunanjost poškodovano orodje za popravilo podatkov Outlook, Kot je DataNumen Outlook Repair, ki vam bo priskočil na pomoč, če varnostno kopiranje in Scanpst.exe ne uspeta.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo SQL Server napaka baze podatkov mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com