VBOffice

Anzahl der Mitglieder einer Verteilerliste anzeigen

Dieses Script verrät Ihnen, wieviele Mitglieder eine Verteilerliste hat.

Zuletzt geändert: 03.12.2006 | Aufrufe: 67.083  | #37
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

Verteilerlisten in Outlook können nur eine begrenzte Anzahl an Mitgliedern aufnehmen. Doch wie erfahren Sie, wieviele Einträge schon enthalten sind? Mit ein paar Zeilen Code entlocken Sie Outlook das Geheimnis.


tip  So fügen Sie Makros in Outlook ein
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)
    End If
  Else
    Set obj = Application.ActiveInspector.CurrentItem
  End If

  If Not obj Is Nothing Then
    If TypeOf obj Is Outlook.DistListItem Then
      Set DL = obj
      MsgBox "Name: " & DL.DLName & _
        vbCrLf & "Mitglieder: " & DL.MemberCount, _
        , "Member Count"
    End If
  End If
End Sub
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.
email  Senden Sie eine Nachricht