Ponekad, kada šaljete ili primate e-poštu s mnogo primatelja, možda ćete htjeti stvoriti grupu kontakata za te primatelje. Ovaj će članak predstaviti brzi način da to postignete pomoću programa Outlook VBA.
U našem prethodnom članku "Kako stvoriti grupu kontakata s popisa primatelja“, naučili smo uobičajenu metodu za stvaranje grupe kontakata za primatelje e-pošte. To znači da prvo odaberete i kopirate primatelje iz e-pošte, a zatim ručno kreirate grupu kontakata i zalijepite primatelje u polje “Članovi ->”. Očito je ovo sredstvo izuzetno glomazno. Stoga ćemo ovdje predstaviti drugi pristup, koji će koristiti Outlook VBA za brzo postizanje nove grupe kontakata. Možete samo pritisnuti gumb bez potrebe za uzastopnim kopiranjem i lijepljenjem. Čitajte dalje da biste saznali razrađene korake i VBA kodove.
Stvorite grupu kontakata s popisa primatelja e-pošte
- Za početak, trebali biste otići na karticu "Programer" u Outlooku.
- Zatim pod ovom karticom možete locirati i kliknuti gumb "Visual Basic".
- Nakon toga će se otvoriti novi prozor “Microsoft Visual Basic for Applications”. Sada biste trebali otvoriti novi modul klikom na “Umetni” > “Modul”.
- Zatim u novom prozoru modula možete kopirati i zalijepiti sljedeće kodove u njega.
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
- Kasnije možete izaći iz trenutnog prozora "Visual Basic" i nastaviti s dodavanjem nove makronaredbe na alatnu traku za brzi pristup. Kliknite strelicu prema dolje na alatnoj traci za brzi pristup i odaberite "Više naredbi" s padajućeg popisa.
- Nakon toga ćete doći u prozor "Opcije Outlooka". U ovom trenutku trebate poduzeti sljedeće korake:
- Prvo, postavite “Choose commands from” na “Macros”.
- Zatim potražite i predstavite prethodno dodanu makronaredbu.
- Zatim kliknite gumb "Dodaj" u sredini.
- Na kraju pritisnite tipku “OK”.
- Nakon toga se možete vratiti u okno Outlook pošte i pokušati.
- U početku možete predložiti jednu poštu u bilo kojoj mapi pošte.
- Zatim kliknite gumb na alatnoj traci za brzi pristup, kao na slici ispod:
- Zatim ćete primiti okvir s porukom koji od vas traži da navedete ime za novu grupu kontakata.
- Kasnije kliknite gumb "OK". Odmah će se otvoriti nova grupa kontakata koja sadrži sve odabrane primatelje e-pošte. Možete pritisnuti "Spremi i zatvori" da biste ga spremili.
Ono što morate imati u Outlook zaštiti podataka
Zbog činjenice da je Outlook ranjiv, trebali biste poduzeti odgovarajuće mjere opreza kako biste zaštitili njihove Outlook podatke. Prvo, trebali biste napraviti redovitu sigurnosnu kopiju Outlook podataka. Osim toga, morate znati kako pronaći i pokrenuti ugrađeni alat za popravak, Scanpst.exe. Posljednja, ali ne i najmanje važna potreba je zvjezdani vanjski izgled alat za popravak oštećenih Outlook podataka, Kao što su DataNumen Outlook Repair, koji će vam pomoći ako backup i Scanpst.exe zakažu.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak SQL Server mdf pogreška baze podataka i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com