Uneori, când trimiteți sau primiți un e-mail cu mulți destinatari, este posibil să doriți să creați un grup de contact pentru acești destinatari. Acest articol va introduce o modalitate rapidă de a o realiza cu Outlook VBA.
În articolul nostru anterior „Cum se creează un grup de contact din lista de destinatari”, am învățat o metodă comună de a crea grupul de contact pentru destinatarii de e-mail. Adică, mai întâi, selectați și copiați destinatarii din e-mailuri, apoi creați manual un grup de contacte și lipiți destinatarii în câmpul „Membri ->”. Evident, acest mijloc este extrem de greoi. Prin urmare, aici vom introduce o altă abordare, care va utiliza Outlook VBA pentru a realiza rapid un nou grup de contact. Puteți apăsa doar un buton fără a fi nevoie să copiați și să lipiți în mod repetitiv. Citiți mai departe pentru a obține pașii elaborați și codurile VBA.
Creați un grup de contacte din lista de destinatari a unui e-mail
- Pentru început, ar trebui să accesați fila „Dezvoltator” din Outlook.
- Apoi, sub această filă, puteți găsi și faceți clic pe butonul „Visual Basic”.
- După aceea, se va deschide o nouă fereastră „Microsoft Visual Basic for Applications”. Acum ar trebui să deschideți un nou modul făcând clic pe „Inserare” > „Modul”.
- Apoi, în fereastra noului modul, puteți copia și lipi următoarele coduri în ea.
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
- Mai târziu, puteți ieși din fereastra curentă „Visual Basic” și puteți continua să adăugați noua macrocomandă la Bara de instrumente Acces rapid. Faceți clic pe săgeata în jos din bara de instrumente Acces rapid și alegeți „Mai multe comenzi” din lista verticală.
- Ulterior, veți intra în fereastra „Opțiuni Outlook”. În acest moment, trebuie să faceți următorii pași:
- În primul rând, setați „Alegeți comenzile de la” la „Macrocomenzi”.
- Apoi căutați și prezentați macrocomanda adăugată anterior.
- Apoi faceți clic pe butonul „Adăugați” din centru.
- În cele din urmă apăsați butonul „OK”.
- După aceea, puteți reveni la panoul de e-mail Outlook și puteți încerca.
- La început, puteți prezenta un mesaj în orice dosar de e-mail.
- Apoi faceți clic pe butonul din bara de instrumente Acces rapid, ca în imaginea de mai jos:
- Și în continuare veți primi o casetă de mesaj, care vă solicită să specificați un nume pentru noul grup de contacte.
- Mai târziu faceți clic pe butonul „OK”. Imediat, se va deschide noul grup de contacte, care conține toți destinatarii de e-mail selectați. Puteți apăsa „Salvare și închidere” pentru a-l salva.
Elemente obligatorii în protecția datelor Outlook
Datorită faptului că Outlook este vulnerabil, ar trebui să luați suficiente măsuri de precauție pentru a proteja datele Outlook. În primul rând, ar trebui să faceți o copie de rezervă regulată a datelor Outlook. În plus, trebuie să știți cum să aflați și să rulați instrumentul de reparare încorporat, Scanpst.exe. Ultima dar nu în ultimul rând necesitate este un exterior stelar instrument de reparare a datelor Outlook corupt, Cum ar fi DataNumen Outlook Repair, care vă va salva dacă backup și Scanpst.exe eșuează ambele.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara SQL Server eroare baza de date mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com