Reizēm, kad sūtāt vai saņemat e-pastu ar daudziem adresātiem, ieteicams izveidot adresātu grupu šiem adresātiem. Šajā rakstā tiks parādīts ātrs veids, kā to paveikt, izmantojot programmu Outlook VBA.
Mūsu iepriekšējā rakstā “Kā izveidot kontaktu grupu no saņēmēju saraksta”, Mēs esam iemācījušies izplatītu metodi, kā izveidot kontaktu grupu e-pasta adresātiem. Tas ir, vispirms atlasot un nokopējot adresātus no e-pasta ziņojumiem, pēc tam manuāli izveidojot kontaktu grupu un ielīmējot adresātus laukā “Dalībnieki ->”. Acīmredzot tas nozīmē, ka tas ir ārkārtīgi apgrūtinoši. Tāpēc šeit mēs ieviesīsim citu pieeju, kas izmantos Outlook VBA, lai ātri izveidotu jaunu kontaktu grupu. Jūs varat vienkārši nospiest pogu bez nepieciešamības atkārtoti kopēt un ielīmēt. Lasiet tālāk, lai iegūtu sarežģītus soļus un VBA kodus.
Izveidojiet kontaktu grupu no e-pasta adresātu saraksta
- Lai sāktu, programmā Outlook jāatver cilne “Izstrādātājs”.
- Pēc tam šajā cilnē varat atrast pogu Visual Basic un noklikšķināt uz tās.
- Pēc tam tiks atvērts jauns logs “Microsoft Visual Basic for Applications”. Tagad jums vajadzētu atvērt jaunu moduli, noklikšķinot uz “Ievietot”> “Modulis”.
- Pēc tam jaunā moduļa logā varat tajā nokopēt un ielīmēt šādus 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ēlāk jūs varat iziet no pašreizējā loga “Visual Basic” un turpināt pievienot jaunu makro ātrās piekļuves rīkjoslai. Ātrās piekļuves rīkjoslā noklikšķiniet uz lejupvērstās bultiņas un nolaižamajā sarakstā izvēlieties “Vairāk komandu”.
- Pēc tam jūs nokļūsit logā “Outlook opcijas”. Šajā brīdī jums jāveic šādas darbības:
- Pirmkārt, iestatiet “Izvēlēties komandas no” uz “Makro”.
- Pēc tam meklējiet un pievienojiet iepriekš pievienoto makro.
- Pēc tam noklikšķiniet uz pogas Pievienot.
- Visbeidzot nospiediet pogu “OK”.
- Pēc tam jūs varat atgriezties savā Outlook pasta rūtī un izmēģināt.
- Sākumā jūs varat piķēt uz vienu pastu jebkurā pasta mapē.
- Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz pogas, piemēram, zemāk redzamā attēla:
- Pēc tam jūs saņemsit ziņojumu lodziņu, kurā jums jānorāda jaunās kontaktu grupas nosaukums.
- Vēlāk noklikšķiniet uz pogas Labi. Uzreiz tiks atvērta jaunā kontaktu grupa, kurā ir visi atlasītie e-pasta adresāti. Lai to saglabātu, varat nospiest “Saglabāt un aizvērt”.
Must-Haves programmā Outlook datu aizsardzība
Tā kā programma Outlook ir neaizsargāta, jums jāveic pietiekami piesardzības pasākumi, lai aizsargātu viņu Outlook datus. Pirmkārt, jums jāveic regulāra Outlook datu dublēšana. Turklāt jums jāzina, kā uzzināt un palaist iebūvēto remonta rīku Scanpst.exe. Pēdējā, bet ne mazāk svarīgā nepieciešamība ir zvaigžņu ārējs bojāts Outlook datu labošanas rīks, Piemēram, DataNumen Outlook Repair, kas jums palīdzēs, ja neizdosies gan dublēšana, gan Scanpst.exe.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts SQL Server mdf datu bāzes kļūda un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar