Kartais, kai siunčiate arba gaunate el. laišką su daugybe gavėjų, galbūt norėsite sukurti šių gavėjų kontaktų grupę. Šiame straipsnyje bus pristatytas greitas būdas tai padaryti naudojant Outlook VBA.
Ankstesniame mūsų straipsnyje "Kaip sukurti kontaktų grupę iš gavėjų sąrašo“, išmokome įprastą metodą, kaip sukurti el. pašto gavėjų kontaktų grupę. Tai yra, pirmiausia pasirinkite ir nukopijuokite gavėjus iš el. laiškų, tada sukurkite kontaktų grupę rankiniu būdu ir įklijuokite gavėjus lauke „Nariai ->“. Akivaizdu, kad ši priemonė yra labai sudėtinga. Todėl čia pristatysime kitą metodą, kuris naudos Outlook VBA, kad greitai sukurtų naują kontaktų grupę. Galite tiesiog paspausti mygtuką, nereikia pakartotinai kopijuoti ir įklijuoti. Skaitykite toliau, kad gautumėte išsamius veiksmus ir VBA kodus.
Sukurkite kontaktų grupę iš el. pašto gavėjų sąrašo
- Pirmiausia turėtumėte atidaryti „Kūrėjo“ skirtuką „Outlook“ programoje.
- Tada šiame skirtuke galite rasti ir spustelėti mygtuką „Visual Basic“.
- Po to atsidarys naujas „Microsoft Visual Basic for Applications“ langas. Dabar turėtumėte atidaryti naują modulį spustelėdami „Įterpti“ > „Modulis“.
- Tada naujame modulio lange galite nukopijuoti ir įklijuoti šiuos kodus.
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
- Vėliau galite išeiti iš dabartinio „Visual Basic“ lango ir pridėti naują makrokomandą prie greitosios prieigos įrankių juostos. Greitosios prieigos įrankių juostoje spustelėkite rodyklę žemyn ir išskleidžiamajame sąraše pasirinkite „Daugiau komandų“.
- Tada pateksite į langą „Outlook Options“. Šiuo metu turite atlikti šiuos veiksmus:
- Pirmiausia nustatykite „Pasirinkti komandas iš“ į „Makrokomandos“.
- Tada suraskite ir nustatykite anksčiau pridėtą makrokomandą.
- Tada spustelėkite mygtuką „Pridėti“ centre.
- Galiausiai paspauskite mygtuką „Gerai“.
- Po to galite grįžti į „Outlook“ pašto sritį ir pabandyti.
- Iš pradžių galite pateikti vieną laišką bet kuriame pašto aplanke.
- Tada greitosios prieigos įrankių juostoje spustelėkite mygtuką, kaip ir toliau pateiktame paveikslėlyje:
- Tada gausite žinutės laukelį, kuriame bus reikalaujama nurodyti naujos kontaktų grupės pavadinimą.
- Vėliau spustelėkite mygtuką „Gerai“. Iš karto atsidarys nauja kontaktų grupė, kurioje yra visi pasirinkti el. pašto gavėjai. Norėdami išsaugoti, galite spustelėti „Išsaugoti ir uždaryti“.
Būtini Outlook duomenų apsaugos elementai
Dėl to, kad „Outlook“ yra pažeidžiama, turėtumėte imtis pakankamai atsargumo priemonių, kad apsaugotumėte jų „Outlook“ duomenis. Pirma, turėtumėte sukurti įprastą „Outlook“ duomenų atsarginę kopiją. Be to, turite žinoti, kaip sužinoti ir paleisti integruotą taisymo įrankį Scanpst.exe. Paskutinis, bet ne mažiau svarbus dalykas yra žvaigždžių išorė sugadintas Outlook duomenų taisymo įrankis, Pavyzdžiui, DataNumen Outlook Repair, kuris jums padės, jei nepavyks sukurti atsarginės kopijos ir Scanpst.exe.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server mdf duomenų bazės klaida ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com