2 meetodit Outlooki meili adressaatide arvu loendamiseks

Mõnikord võite soovida välja arvutada konkreetse meili adressaatide koguarvu. Kuid Outlookil pole selle toetamiseks ilmset loendusfunktsiooni. See artikkel tutvustab 2 lähenemisviisi selle saavutamiseks.

Mõnes olukorras, näiteks kui olete lisanud meilile suure hulga saajaid ja teil on raske neid hallata, soovite saada nende adressaatide koguarvu. Kuid Outlookil pole loomiseks natiivset ega vaiketuge. Seetõttu peate selle saavutamiseks tegema täiendavaid jõupingutusi. Siin räägime teile 2 meetodist.

1. meetod: loendage adressaatide arv kontaktrühma kaudu

1. Alustuseks tuleks valida kõik adressaadid väljadelt „Saaja”, „Koopia” ja „Pimekoopia” ning kopeerida need sõnumi sisu tühjale reale.
2. Seejärel valige kehas kõik adressaadid ja kopeerige ka need.
3. Järgmisena minge Outlooki kontaktide paanile ja klõpsake nuppu "Uus kontaktirühm". Hüpikaknas määrake nimeks "Temp" ja seejärel klõpsake "Lisa liikmeid" ja valige ripploendist "Aadressiraamatust".
4. Seejärel kleepige varem kopeeritud adressaadid väljale „Liige ->”, nagu järgmine ekraanipilt:
5. Pärast seda klõpsake nuppu "OK" ja pöörduge tagasi kontaktrühma. Kõik duplikaadid eemaldatakse automaatselt. Nüüd salvestage see kohalikule kettale tekstifailina.
6. Hiljem avage tekstifail ja eemaldage kasutu päis, nagu alloleval pildil:
7. Lõpuks saate asetada kursori viimasele reale. Näete olekuribal ridade koguarvu. See on adressaatide koguarv.

2. meetod: loendage Outlook VBA-ga adressaatide arv

1. Esmalt vajutage "Visual Basic" akna avamiseks klahve "Alt + F11".
2. Seejärel kopeerige ja kleepige järgmised VBA koodid uude moodulisse.

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

3. Pärast seda saate aknast "Visual Basic" väljuda ja lisada uue makro Outlooki peaakna ja sõnumiakna kiirpääsuribale.
4. Lõpuks võite proovida:

• Kui valite meili ja vajutate kiirjuurdepääsu tööriistaribal nuppu, saate järgmise pildiga sarnase sõnumi:
• Kui avate meili ja klõpsate nuppu, kuvatakse dialoogiboks, mis on näidatud alloleval pildil:

Märge: See meetod käsitleb kontaktirühma ühe adressaadina ega lähe mööda korduvatest adressaatidest.

Võitlus ohtlike makrode vastu

Nagu me kõik teame, on e-posti teel levivad viirused olnud üks levinumaid ohte andmetele. Seega on ülioluline konfigureerida Outlook nii, et see lubaks ainult digitaalselt allkirjastatud makrosid, mis blokeerivad viiruseid ja pahavara. Lisaks on parem hoida tugev... rikutud Outlooki faili parandamise utiliitNagu DataNumen Outlook Repair. See on kasulik, kui teie Outlook kannatab viirusnakkuse või pahavara rünnaku all.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL mdf andmevea parandamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom