Kuidas Outlook VBA-ga meili adressaatide loendist kiiresti kontaktirühma luua

Mõnikord, kui saadate või saate meilisõnumi paljude adressaatidega, võiksite mõnikord luua nende adressaatide jaoks kontaktirühma. See artikkel tutvustab kiiret viisi selle saavutamiseks Outlook VBA-ga.

Meie eelmises artiklis "Kuidas adressaatide loendist kontaktirühma luua”, oleme õppinud levinud meetodi meilisaajate kontaktirühma loomiseks. See tähendab, et kõigepealt tuleb meilidest valida ja kopeerida adressaadid ning seejärel luua käsitsi kontaktirühm ja kleepida adressaadid väljale “Liikmed ->”. Ilmselgelt on see vahend äärmiselt tülikas. Seetõttu tutvustame siin teist lähenemisviisi, mis kasutab Outlook VBA-d uue kontaktrühma kiireks loomiseks. Saate lihtsalt nuppu vajutada, ilma et peaksite korduvalt kopeerima ja kleepima. Lugege edasi, et saada üksikasjalikke samme ja VBA-koode.

Looge meili adressaatide loendist kontaktirühm

1. Alustuseks peaksite Outlookis avama vahekaardi „Arendaja”.
2. Seejärel saate selle vahekaardi all leida nupu „Visual Basic” ja klõpsata sellel.
3. Pärast seda avaneb uus aken "Microsoft Visual Basic for Applications". Nüüd peaksite avama uue mooduli, klõpsates "Insert" > "Module".
4. Järgmisena saate uues mooduli aknas kopeerida ja kleepida sellesse järgmised koodid.

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. Hiljem saate praegusest Visual Basicu aknast väljuda ja jätkata uue makro lisamist kiirpääsuribale. Klõpsake kiirjuurdepääsu tööriistaribal allanoolt ja valige selle ripploendist "Veel käske".
6. Seejärel pääsete aknasse "Outlooki suvandid". Sel hetkel peate tegema järgmised sammud.

• Esiteks määrake "Vali käsud" väärtusele "Makrod".
• Seejärel otsige üles ja viige välja varem lisatud makro.
• Järgmisena klõpsake keskel nuppu "Lisa".
• Lõpuks vajutage nuppu "OK".

7. Pärast seda saate naasta oma Outlooki meilipaani ja proovida.

• Alguses saate ühele kirjale suunata mis tahes meilikaustas.
• Seejärel klõpsake kiirjuurdepääsu tööriistaribal nuppu, nagu alloleval pildil:
• Järgmisena saate sõnumikasti, mis nõuab uue kontaktirühma nime määramist.
• Hiljem klõpsake nuppu "OK". Korraga avaneb uus kontaktirühm, mis sisaldab kõiki valitud meili saajaid. Selle salvestamiseks võite vajutada nuppu "Salvesta ja sulge".

Outlooki andmekaitses kohustuslikud elemendid

Kuna Outlook on haavatav, peaksite nende Outlooki andmete kaitsmiseks võtma piisavalt ettevaatusabinõusid. Esiteks peaksite tegema tavapärase Outlooki andmete varukoopia. Lisaks peate teadma, kuidas leida ja käivitada sisseehitatud parandustööriist Scanpst.exe. Viimane, kuid mitte vähem oluline vajadus on täheväline väline rikutud Outlooki andmete parandamise tööriistNagu DataNumen Outlook Repair, mis tuleb appi, kui varundamine ja Scanpst.exe ebaõnnestuvad.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont SQL Server mdf andmebaasi viga ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom