Кейде сіз нақты электрондық пошта арқылы алушылардың жалпы санын есептегіңіз келуі мүмкін. Бірақ Outlook-та оны қолдайтын айқын «санау» функциясы жоқ. Сонымен, бұл мақала оған жетудің 2 тәсілін ұсынады.
Кейбір жағдайларда, мысалы, сіз электронды поштаға көптеген алушылар қосқан кезде және оларды басқару қиынға соққанда, сіз осы алушылардың жалпы санын алғыңыз келеді. Бірақ Outlook бағдарламасында есептеу үшін жергілікті немесе әдепкі қолдау жоқ. Осыған жету үшін сізге қосымша күш салу керек. Мұнда біз сізге 2 әдісті айтамыз.
1-әдіс: Байланыс тобы арқылы алушылардың санын санау
- Кімгеtart көмегімен «Алушыға», «СС» және «BCC» өрістеріндегі барлық алушыларды таңдап, оларды хабарлама мәтініндегі бос орынға көшіру керек.
- Содан кейін денеде барлық алушыларды таңдап, оларды да көшіріңіз.
- Келесіде Outlook контактілер тақтасына өтіп, «Жаңа байланыс тобы» дегенді басыңыз. Қалқымалы терезеде атауды «Темп» деп орнатыңыз, содан кейін «Мүшелер қосу» батырмасын басыңыз және ашылмалы тізімнен «Мекен-жай кітабынан» таңдаңыз.
- Содан кейін, келесі скриншот сияқты бұрын көшірілген алушыларды «Мүше ->» өрісіне қойыңыз:
- Осыдан кейін «ОК» батырмасын басып, байланыс тобына оралыңыз. Барлық көшірмелер автоматты түрде жойылады. Енді оны «Мәтін» файлы ретінде жергілікті дискіге сақтаңыз.
- Кейінірек мәтіндік файлды ашып, төмендегі суреттегідей пайдасыз тақырыпты алып тастаңыз:
- Соңында курсорды соңғы жолға қоюға болады. Жолдардың жалпы санын күй жолағында көресіз. Бұл алушылардың жалпы саны.
2-әдіс: Outlook VBA бар алушылардың санын санау
- Алдымен «Visual Basic» терезесіне кіру үшін «Alt + F11» батырмаларын басыңыз.
- Содан кейін келесі VBA кодтарын жаңа модульге көшіріңіз және қойыңыз.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Осыдан кейін сіз «Visual Basic» терезесінен шығып, Outlook бағдарламасының негізгі терезесі мен хабарлама терезесінің жылдам қол жеткізу тақтасына жаңа макросты қосуға болады.
- Ақыр соңында сіз көріңіз:
- Электрондық поштаны таңдап, жылдам қол жеткізу құралдар тақтасындағы батырманы басқанда, сіз келесі сурет сияқты хабарлама аласыз:
- Электрондық поштаны ашып, батырманы басқан кезде, сіз төмендегі суретте көрсетілген сұхбат терезесін аласыз:
Ескерту: Бұл әдіс байланыс тобын бір алушы ретінде қарастырады және қайталанатын алушыларды айналып өтпейді.
Қауіпті макростармен күресу
Барлығымыз білетіндей, электрондық пошта арқылы берілетін вирустар м-нің бірі болдыost мәліметтерге жалпы қауіптер. Сонымен, вирустар мен зиянды бағдарламаларды оқшаулай алатын сандық қолтаңбалы макростарды қосу үшін Outlook бағдарламасын конфигурациялау өте маңызды. Бұған қоса, сіз мықты болғаныңыз жөн бүлінген Outlook файлын жөндеу утилитасы, сияқты DataNumen Outlook Repair. Бұл сіздің Outlook бағдарламаңыз вирус жұқтырған немесе зиянды бағдарламалық жасақтама шабуылдаған кезде ыңғайлы болады.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL mdf деректер қатесін жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com