|OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.
A distribution list's member count is limited. But how do you know how many members are already on a list? The following lines of code will tell you.
Public Sub ShowMemberCount()
Dim obj As Object
Dim DL As Outlook.DistListItem
If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
If Application.ActiveExplorer.Selection.Count Then
Set obj = Application.ActiveExplorer.Selection(1)
Set obj = Application.ActiveInspector.CurrentItem
If Not obj Is Nothing Then
If TypeOf obj Is Outlook.DistListItem Then
Set DL = obj
MsgBox "Name: " & DL.DLName & _
vbCrLf & "Member: " & DL.MemberCount, _
, "Member Count"