Toisinaan saatat haluta laskea vastaanottajien kokonaismäärän tietyssä sähköpostissa. Mutta Outlookilla ei ole selvää laskentatoimintoa sen tukemiseksi. Joten tässä artikkelissa esitellään 2 lähestymistapaa sen saavuttamiseksi.
Joissakin tilanteissa, esimerkiksi kun olet lisännyt suuren määrän vastaanottajia sähköpostiin ja sinun on vaikea hallita niitä, haluat saada näiden vastaanottajien kokonaismäärän. Mutta Outlookilla ei ole alkuperäistä tai oletustukea. Siksi sinun on tehtävä ylimääräisiä ponnisteluja sen saavuttamiseksi. Tässä kerromme sinulle 2 tapaa.
Tapa 1: Laske vastaanottajien määrä yhteysryhmän kautta
- Aluksi sinun tulee valita kaikki vastaanottajat "Vastaanottaja"-, "Kopio"- ja "Piilokopio"-kentistä ja kopioida ne viestin tekstiosan tyhjään kohtaan.

- Valitse sitten kaikki tekstin vastaanottajat ja kopioi ne myös.
- Siirry seuraavaksi Outlookin Yhteystiedot-ruutuun ja osoita Uusi yhteysryhmä. Määritä ponnahdusikkunassa nimeksi Temp ja napsauta sitten "Lisää jäseniä" ja valitse avattavasta luettelosta "From Address Book".
- Liitä sitten aiemmin kopioidut vastaanottajat Jäsen -> -kenttään, kuten seuraava kuvakaappaus:
- Sen jälkeen napsauta “OK” -painiketta ja palaa yhteystietoryhmään. Kaikki kaksoiskappaleet poistetaan automaattisesti. Tallenna se nyt paikalliselle levylle "Text" -tiedostona.
- Avaa myöhemmin tekstitiedosto ja poista turha otsikko, kuten alla oleva kuva:
- Lopuksi voit sijoittaa kohdistimen viimeiselle riville. Näet tilarivin rivien kokonaismäärän. Se on vastaanottajien kokonaismäärä.
Tapa 2: Laske vastaanottajien määrä Outlook VBA: lla
- Aluksi paina "Alt + F11" -näppäimiä päästäksesi "Visual Basic" -ikkunaan.
- Kopioi ja liitä sitten seuraavat VBA-koodit uuteen moduuliin.
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
- Sen jälkeen voit poistua Visual Basic -ikkunasta ja lisätä uuden makron Outlookin pääikkunan ja viesti-ikkunan pikakäyttötyökaluriville.
- Lopulta voit kokeilla:
- Kun valitset sähköpostin ja painat pikakäynnistystyökalurivin painiketta, saat seuraavan kuvan kaltaisen viestin:
- Kun avaat sähköpostin ja napsautat painiketta, saat valintaikkunan, joka näkyy alla olevassa kuvassa:
Huomautus: Tämä menetelmä käsittelee yhteysryhmää yhtenä vastaanottajana eikä ohita päällekkäisiä vastaanottajia.
Taistele vaarallisia makroja vastaan
Kuten me kaikki tiedämme, sähköpostitse leviävät virukset ovat olleet yksi yleisimmistä tietoturvauhkista. Siksi on erittäin tärkeää määrittää Outlook ottamaan käyttöön vain digitaalisesti allekirjoitetut makrot, jotka voivat estää viruksia ja haittaohjelmia. Lisäksi on parempi pitää yllä vankkaa... vioittunut Outlook-tiedostojen korjausapuohjelma, Kuten DataNumen Outlook Repair. Se on kätevä, kun Outlook kärsii virusinfektioista tai haittaohjelmista.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa SQL-mdf-tietovirhe ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com






