Időnként érdemes kiszámítani az adott e-mail címzettjeinek teljes számát. Az Outlooknak azonban nincs nyilvánvaló „számláló” funkciója, amely ezt támogatná. Tehát ez a cikk 2 megközelítést mutat be ennek eléréséhez.
Egyes helyzetekben, például amikor nagyszámú címzettet adott hozzá egy e-mailhez, és nehéznek találja a kezelésüket, szeretné lekérni a címzettek teljes számát. Az Outlook azonban nem rendelkezik natív vagy alapértelmezett támogatással. Ezért további erőfeszítéseket kell tennie ennek eléréséhez. Itt elmondunk 2 módszert.
1. módszer: Számolja meg a címzettek számát a kapcsolattartó csoporton keresztül
- Először is, ki kell választani az összes címzettet a „Címzett”, a „Másolatot kap” és a „Titkos másolat” mezőkben, és át kell másolni őket az üzenet törzsének üres helyére.
- Ezután válassza ki az összes címzettet a törzsben, és másolja őket is.
- Ezután lépjen az Outlook Névjegyek ablaktáblájára, és kattintson az „Új kapcsolattartó csoport” gombra. A felugró ablakban állítsa be a nevet „Temp”-re, majd kattintson a „Tagok hozzáadása” elemre, és válassza a „Címjegyzékből” lehetőséget a legördülő listából.
- Ezt követően illessze be a korábban másolt címzetteket a „Tag ->” mezőbe, az alábbi képernyőképhez hasonlóan:
- Ezután kattintson az „OK” gombra, és térjen vissza a kapcsolattartó csoporthoz. Az összes másolat automatikusan törlődik. Most mentse el a helyi lemezre „Szöveg” fájlként.
- Később nyissa meg a szövegfájlt, és távolítsa el a haszontalan fejlécet, mint az alábbi képen:
- Végül a kurzort az utolsó sorba helyezheti. Az állapotsorban látni fogja a sorok teljes számát. Ez a címzettek teljes száma.
2. módszer: Számolja meg a címzettek számát az Outlook VBA segítségével
- Először nyomja meg az „Alt + F11” billentyűket a „Visual Basic” ablak eléréséhez.
- Ezután másolja és illessze be a következő VBA-kódokat egy új modulba.
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
- Ezt követően kiléphet a „Visual Basic” ablakból, és hozzáadhatja az új makrót az Outlook főablakának Gyorselérési eszköztárához és az üzenetablakhoz.
- Végül kipróbálhatod:
- Ha kiválaszt egy e-mailt, és megnyomja a gombot a Gyorselérési eszköztárban, a következő képhez hasonló üzenetet fog kapni:
- Amikor megnyit egy e-mailt, és rákattint a gombra, megjelenik egy párbeszédpanel, amely az alábbi képen látható:
Jegyzet: Ez a módszer egy kapcsolattartó csoportot egyetlen címzettként kezel, és nem kerüli meg a duplikált címzetteket.
Harc a veszélyes makrók ellen
Mint mindannyian tudjuk, az e-mailben terjedő vírusok az egyik leggyakoribb adatvédelmi fenyegetést jelentik. Ezért létfontosságú, hogy az Outlookot csak a digitálisan aláírt makrók engedélyezéséhez konfiguráljuk, amelyek blokkolhatják a vírusokat és a rosszindulatú programokat. Ezenkívül jobb, ha egy robusztus adatvédelmet tartunk fenn. sérült Outlook fájljavító segédprogram, Mint például a DataNumen Outlook Repair. Hasznos lesz, ha az Outlook vírusfertőzést vagy rosszindulatú programtámadást szenved.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL mdf adathiba javítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com