Кейде көптеген алушылармен электрондық пошта хабарын жібергенде немесе қабылдағанда, сіз осы алушылар үшін байланыс тобын құрғыңыз келуі мүмкін. Бұл мақала оны Outlook VBA көмегімен орындаудың жылдам әдісін ұсынады.
Біздің алдыңғы мақалада «Алушылар тізімінен байланыс тобын қалай құруға болады», Біз электрондық пошта алушылары үшін байланыс тобын құрудың жалпы әдісін білдік. Алдымен алушыларды электронды хаттардан таңдау және көшіру, содан кейін қолмен байланыс тобын құру және алушыларды «Мүшелер ->» жолына қою. Әрине, бұл өте ауыр. Сондықтан, біз жаңа контакт тобына тез жету үшін Outlook VBA-ны қолданатын тағы бір тәсілді енгіземіз. Сіз тек қайталап көшіру және қою қажеттілігінсіз батырманы бассаңыз болады. Толығырақ қадамдар мен VBA кодтарын алу үшін оқыңыз.
Электрондық пошта алушылар тізімінен байланыс тобын құрыңыз
- Үшінtart, Outlook бағдарламасындағы «Әзірлеуші» қойындысына жүгіну керек.
- Содан кейін осы қойынды астында «Visual Basic» батырмасын тауып, оны нұқуға болады.
- Осыдан кейін жаңа «Microsoft Visual Basic for Applications» терезесі ашылады. Енді «Кірістіру»> «Модуль» батырмаларын басу арқылы жаңа модульді ашу керек.
- Одан кейін жаңа модуль терезесінде келесі кодтарды көшіруге және қоюға болады.
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
- Кейінірек сіз «Visual Basic» терезесінен шығып, жылдам қол жеткізу тақтасына жаңа макросты қосуға болады. Жылдам қатынас құралдар тақтасындағы төмен көрсеткіні нұқыңыз және оның ашылмалы тізімінен «Қосымша командалар» таңдаңыз.
- Кейіннен сіз «Outlook параметрлері» терезесіне кіресіз. Осы сәтте сіз келесі әрекеттерді орындауыңыз керек:
- Біріншіден, «Пәрмендерді таңдау» мен «Макростарды» орнатыңыз.
- Содан кейін бұрын қосылған макросты іздеңіз.
- Келесіде «Қосу» батырмасын басыңыз.
- Соңғы рет «OK» батырмасын басыңыз.
- Осыдан кейін сіз Outlook пошта тақтасына оралып, көріңіз.
- Алдымен сіз кез-келген пошта қалтасында бір поштаны таңдай аласыз.
- Содан кейін жылдам қол жеткізу құралдар тақтасындағы батырманы басыңыз, мысалы төмендегі сурет:
- Әрі қарай сізге жаңа байланыс тобының атын көрсетуді талап ететін хабарлама терезесі келеді.
- Кейін «ОК» батырмасын басыңыз. Бірден барлық таңдалған электрондық пошта алушыларынан тұратын жаңа байланыс тобы ашылады. Оны сақтау үшін «Сақтау және жабу» батырмасын басуға болады.
Outlook деректерін қорғауда болуы керек
Outlook әлсіз болғандықтан, олардың Outlook деректерін қорғау үшін жеткілікті сақтық шараларын қолдануыңыз керек. Біріншіден, сіз деректердің тұрақты сақтық көшірмесін жасауыңыз керек. Сонымен қатар, сіз Scanpst.exe кіріктірілген жөндеу құралын қалай табуға және іске қосуға болатындығын білуіңіз керек. Соңғы, бірақ ең маңызды емес қажеттілік - бұл жұлдызды сыртқы құбылыс бүлінген Outlook деректерін жөндеу құралы, сияқты DataNumen Outlook Repair, егер сақтық көшірме және Scanpst.exe екеуі де сәтсіз болса, ол сізге көмекке келеді.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жөндеу SQL Server mdf дерекқорының қатесі және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com