Sut i gyfrif aelodau rhestr ddosbarthu yn Outlook?
Yn Outlook, nid oes unrhyw nodwedd i chi gyfrif aelodau'r rhestr ddosbarthu yn uniongyrchol. Os oes gennych chi restr ddosbarthu gyda llawer iawn o gyfeiriadau e-bost, sut i ddarganfod faint o aelodau sydd wedi'u cynnwys yn y grŵp hwn? Gyda'r erthygl hon, byddwch yn dysgu sut i gyfrif aelodau rhestr ddosbarthu trwy ddefnyddio cod VBA.
Cyfrif aelodau rhestr dosbarthu yn Outlook gyda chod VBA
Ychwanegwch botwm ar gyfer y macro i'r Bar Offer Mynediad Cyflym
- Awtomeiddio e-bostio gyda Auto CC / BCC, Auto Ymlaen gan reolau; anfon Ymateb Auto (Allan o'r Swyddfa) heb fod angen gweinydd cyfnewid...
- Cael nodiadau atgoffa fel Rhybudd BCC wrth ymateb i bawb tra'ch bod ar restr BCC, a Atgoffwch Wrth Ymlyniadau ar Goll am atodiadau anghofiedig...
- Gwella effeithlonrwydd e-bost gyda Ateb (Pawb) Gydag Atodiadau, Ychwanegu Cyfarchiad neu Dyddiad ac Amser yn Awtomatig i'r Llofnod neu'r Pwnc, Ateb E-byst Lluosog...
- Symleiddio e-bostio gyda E-byst Dwyn i gof, Offer Ymlyniad (Cywasgu Pawb, Auto Save All...), Tynnwch y Dyblygion, a Adroddiad Cyflym...
Cyfrif aelodau rhestr dosbarthu yn Outlook gyda chod VBA
Gallwch ddefnyddio cod VBA i gyfrif aelodau'r rhestr ddosbarthu fel a ganlyn.
1. Agorwch y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr gyda phwyso'r Alt + F11 allweddi ar y bysellfwrdd ar yr un pryd.
2. Cliciwch Mewnosod > Modiwlau. Gweler y screenshot:
3. Yna copïwch a gludwch y cod VBA canlynol i'r VbaProject ffenestr.
VBA: Cyfrif aelodau rhestr dosbarthu yn Outlook
Sub CountDLMembers()
Dim oOL As Outlook.Application
Dim oSelection As Outlook.Selection
Dim oItem As Object
Dim olDL As Outlook.DistListItem
Dim Result As String
Set oOL = Outlook.Application
'Check and get the selected Contact Group
Select Case TypeName(oOL.ActiveWindow)
Case "Explorer"
Set oSelection = oOL.ActiveExplorer.Selection
If oSelection.Count > 0 Then
Set oItem = oSelection.Item(1)
Else
Result = MsgBox("No item selected. " & _
"Please select a Contact Group first.", _
vbCritical, "CountDLMembers")
Exit Sub
End If
Case "Inspector"
Set oItem = oOL.ActiveInspector.CurrentItem
Case Else
Result = MsgBox("Unsupported Window type." & _
vbNewLine & "Please make a selection" & _
"in the Calendar or open a Contact Group first.", _
vbCritical, "CountDLMembers")
Exit Sub
End Select
If oItem.Class = Outlook.olDistributionList Then
'Display the member count
Set olDL = oItem
Result = MsgBox("The Contact Group '" & olDL.DLName & "' contains " & olDL.MemberCount & " members.", vbInformation, "CountDLMembers")
Else
'Selected item isn't a Contact Group item
Result = MsgBox("No Contact Group item selected. " & _
"Please make a selection first.", _
vbCritical, "CountDLMembers")
Exit Sub
End If
'Cleanup
Set oOL = Nothing
Set olDL = Nothing
End Sub
4. Yna cliciwch y Save botwm i'w achub.
5. Caewch y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
Ychwanegwch botwm ar gyfer y macro i'r Bar Offer Mynediad Cyflym
1. Ewch i Cysylltiadau or Pobl gweld trwy glicio ar y Cysylltiadau or Pobl yn y Panelau Navigation.
2. Yn Outlook 2010 a 2013, cliciwch ar y dde ar y Bar Offer Mynediad Cyflym ac yna cliciwch Addasu Bar Offer Mynediad Cyflym yn y ddewislen clicio ar y dde. Gweler y screenshot:
Nodyn: Yn Outlook 2007, agorwch restr ddosbarthu, ac yna cliciwch ar y dde ar y Bar Offer Mynediad Cyflym i ddewis y Bar Offer Mynediad Cyflym yn y ddewislen clicio ar y dde.
3. Yn y Dewisiadau Outlook blwch deialog, mae angen i chi:
1). Sicrhewch eich bod yn lleoli yn y Bar Offer Mynediad Cyflym adran;
2). Dewiswch Macros yn y Dewiswch orchmynion oddi wrth rhestr ostwng;
3). Dewiswch y macros yn y gwahanydd blwch;
4). Cliciwch y Ychwanegu botwm;
5). Ac yn olaf cliciwch y OK botwm. Gweler y screenshot:
4. Yna gallwch weld bod y botwm ar gyfer y macro yn cael ei ychwanegu ar y Bar Offer Mynediad Cyflym.
Ar ôl ychwanegu'r botwm ar gyfer y macro ar y Bar Offer Mynediad Cyflym, nawr gallwch chi redeg y cod VBA i gyfrif aelodau'r rhestr ddosbarthu.
1. Yn Outlook 2010 a 2013, gallwch ddewis rhestr ddosbarthu, ac yna cliciwch y botwm ar gyfer y macro ar y Q.Bar Offer Mynediad uick.
Nodyn: Yn Outlook 2007, mae angen ichi agor rhestr ddosbarthu ac yna cliciwch y botwm am y macro ar y Bar Offer Mynediad Cyflym.
2. Yna bydd blwch prydlon yn ymddangos i ddweud wrthych faint o aelodau sydd wedi'u cynnwys ar y rhestr ddosbarthu hon. Yna cliciwch y OK.
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.