Si të krijoni shpejt një grup kontakti nga lista e marrësve të një emaili me Outlook VBA

Ndonjëherë, kur dërgoni ose merrni një email me shumë marrës, mund të dëshironi të krijoni një grup kontakti për këta marrës. Ky artikull do të prezantojë një mënyrë të shpejtë për ta realizuar atë me Outlook VBA.

Në artikullin tonë të mëparshëm "Si të krijoni një grup kontakti nga Lista e Marrësve”, ne kemi mësuar një metodë të zakonshme për të krijuar grupin e kontaktit për marrësit e emailit. Kjo do të thotë që fillimisht të zgjidhni dhe kopjoni marrësit nga emailet, dhe më pas të krijoni një grup kontakti me dorë dhe t'i ngjitni marrësit në fushën "Anëtarët ->". Natyrisht, ky mjet është jashtëzakonisht i rëndë. Prandaj, këtu do të prezantojmë një qasje tjetër, e cila do të përdorë Outlook VBA për të arritur me shpejtësi një grup të ri kontakti. Ju thjesht mund të shtypni një buton pa pasur nevojë të kopjoni dhe ngjitni në mënyrë të përsëritur. Lexoni për të marrë hapat e përpunuar dhe kodet VBA.

Krijoni një grup kontakti nga Lista e Marrësve të një Email

  1. Për të filluar, duhet të shkoni te skeda "Zhvillues" në Outlook.
  2. Pastaj nën këtë skedë, mund të gjeni dhe klikoni në butonin "Visual Basic".
  3. Pas kësaj, do të hapet një dritare e re "Microsoft Visual Basic për aplikacione". Tani duhet të hapni një modul të ri duke klikuar "Fut" > "Modul".Fusni një modul të ri
  4. Më pas në dritaren e modulit të ri, mund të kopjoni dhe ngjisni kodet e mëposhtme në të.
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

Kopjoni kodet VBA në modulin e ri

  1. Më vonë mund të dilni nga dritarja aktuale "Visual Basic" dhe të vazhdoni të shtoni makro të re në shiritin e veglave të aksesit të shpejtë. Klikoni në shigjetën poshtë në shiritin e veglave të aksesit të shpejtë dhe zgjidhni "Më shumë komanda" nga lista e tij rënëse.
  2. Më pas, do të futeni në dritaren "Opsionet e Outlook". Në këtë pikë, duhet të ndërmerrni hapat e mëposhtëm:
  • Së pari, vendosni "Zgjidh komandat nga" në "Macros".
  • Më pas kërkoni dhe nxirrni makron e shtuar më parë.
  • Pastaj klikoni në butonin "Shto" në qendër.
  • Së fundi shtypni butonin "OK".Shtoni makro të re në shiritin e veglave të aksesit të shpejtë
  1. Pas kësaj, mund të ktheheni në panelin tuaj të postës së Outlook dhe të provoni.
  • Në fillim, ju mund të shkruani një postë në çdo dosje postare.
  • Pastaj klikoni butonin në shiritin e veglave të aksesit të shpejtë, si imazhi më poshtë:Zgjidhni një email dhe klikoni në butonin në shiritin e veglave të aksesit të shpejtë
  • Dhe më pas do të merrni një kuti mesazhi, e cila ju kërkon të specifikoni një emër për grupin e ri të kontaktit.Specifikoni një emër për grupin e ri të kontaktit
  • Më vonë klikoni në butonin "OK". Menjëherë do të hapet grupi i ri i kontaktit, i cili përmban të gjithë marrësit e zgjedhur të emailit. Mund të shtypni "Ruaj & Mbyll" për ta ruajtur.Ruani Grupin e Kontaktit

Duhet të ketë në Mbrojtjen e të Dhënave të Outlook

Për shkak të faktit se Outlook është i cenueshëm, duhet të merrni masa paraprake të mjaftueshme për të mbrojtur të dhënat e tyre të Outlook. Së pari, duhet të bëni një kopje rezervë të rregullt të të dhënave të Outlook. Përveç kësaj, ju duhet të dini se si të zbuloni dhe ekzekutoni mjetin e integruar të riparimit, Scanpst.exe. Domosdoshmëria e fundit por jo më pak e rëndësishme është një e jashtme yjore mjet i korruptuar i riparimit të të dhënave të Outlook, Të tilla si DataNumen Outlook Repair, i cili do t'ju ndihmojë nëse kopjimi dhe Scanpst.exe dështojnë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim SQL Server Gabim i bazës së të dhënave mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.