Kartais galbūt norėsite apskaičiuoti bendrą gavėjų skaičių konkrečiame el. laiške. Tačiau „Outlook“ neturi akivaizdžios „skaičiavimo“ funkcijos, kuri ją palaikytų. Taigi šiame straipsnyje bus pristatyti 2 būdai, kaip tai pasiekti.
Kai kuriose situacijose, pavyzdžiui, kai prie el. laiško pridėjote daug gavėjų ir jums sunku juos valdyti, norėtumėte gauti bendrą šių gavėjų skaičių. Tačiau „Outlook“ neturi vietinio arba numatytojo palaikymo, kurį būtų galima skaičiuoti. Taigi, norėdami tai pasiekti, turite įdėti papildomų pastangų. Čia mes jums pasakysime 2 būdus.
1 būdas: suskaičiuokite gavėjų skaičių per kontaktų grupę
- Pirmiausia, laukuose „Kam“, „Kopija“ ir „Nematomoji kopija“ pasirinkite visus gavėjus ir nukopijuokite juos į tuščią laiško teksto vietą.
- Tada pasirinkite visus gavėjus ir nukopijuokite juos taip pat.
- Tada eikite į „Outlook“ kontaktų sritį ir spustelėkite „Nauja kontaktų grupė“. Iššokančiajame lange nustatykite pavadinimą „Temp“, tada spustelėkite „Pridėti narius“ ir išskleidžiamajame sąraše pasirinkite „Iš adresų knygos“.
- Tada įklijuokite anksčiau nukopijuotus gavėjus į lauką „Narys ->“, kaip parodyta šioje ekrano kopijoje:
- Po to spustelėkite mygtuką „Gerai“ ir grįžkite į kontaktų grupę. Visi dublikatai bus automatiškai pašalinti. Dabar išsaugokite jį vietiniame diske kaip „teksto“ failą.
- Vėliau atidarykite teksto failą ir pašalinkite nenaudingą antraštę, kaip paveikslėlyje žemiau:
- Galiausiai galite įdėti žymeklį į paskutinę eilutę. Būsenos juostoje matysite bendrą eilučių skaičių. Tai yra bendras gavėjų skaičius.
2 būdas: suskaičiuokite gavėjų skaičių naudodami Outlook VBA
- Iš pradžių paspauskite „Alt + F11“ klavišus, kad pasiektumėte „Visual Basic“ langą.
- Tada nukopijuokite ir įklijuokite šiuos VBA kodus į naują modulį.
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
- Po to galite išeiti iš „Visual Basic“ lango ir pridėti naują makrokomandą į pagrindinio „Outlook“ lango greitosios prieigos įrankių juostą ir pranešimo langą.
- Galų gale galite pabandyti:
- Pasirinkę el. laišką ir paspausdami mygtuką greitosios prieigos įrankių juostoje, gausite pranešimą, panašų į šį paveikslėlį:
- Kai atidarysite el. laišką ir spustelėsite mygtuką, pamatysite dialogo langą, pavaizduotą toliau pateiktame paveikslėlyje:
Pastaba: Šis metodas laikys kontaktų grupę kaip vieną gavėją ir neaplenks pasikartojančių gavėjų.
Kova su pavojingomis makrokomandomis
Kaip visi žinome, el. paštu platinami virusai yra viena iš labiausiai paplitusių grėsmių duomenims. Todėl labai svarbu sukonfigūruoti „Outlook“ taip, kad būtų įjungtos tik skaitmeniniu būdu pasirašytos makrokomandos, kurios gali blokuoti virusus ir kenkėjiškas programas. Be to, geriau palaikykite patikimą... sugadintas Outlook failų taisymo įrankis, Pavyzdžiui, DataNumen Outlook Repair. Tai bus naudinga, kai jūsų „Outlook“ užkrės virusą ar kenkėjiškų programų ataką.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisykite SQL mdf duomenų klaidą ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com