Wie wende ich die Aktion auf mehrere ausgewählte Outlook-Elemente an?
-
29-10-2019 - |
Frage
Der Code hier funktioniert nur für einen Artikel.Wie kann ich das ändern, um DisplayItemMetadata
(siehe Code) für jedes ausgewählte Element auszuführen?
Aktualisieren.versuchte Folgendes zu tun:
For Each individualItem In Application.ActiveExplorer.Selection
With objButton
.BeginGroup = True
.Caption = "My &item"
.FaceId = 1000
.Tag = "DisplayItemMetadata"
If Not IsNull(Selection.Item(1)) Then
On Error GoTo 0
' Just in case the item selected
' doesn't have a valid EntryID.
' .Parameter = Selection.Item(1).EntryID
.Parameter = individualItem.EntryID
On Error GoTo ErrRoutine
End If
.OnAction = _
"Project1.ThisOutlookSession.DisplayItemMetadata"
End With
Next individualItem
Lösung
Sie müssen das Auswahlobjekt wie folgt durchlaufen:
Dim individualItem As Object
For Each individualItem In Application.ActiveExplorer.Selection
'Perform some action on individualItem
Next Message
Wenn Sie eine Funktion haben, die eine Aktion für ein einzelnes ausgewähltes Element ausführt, sollten Sie diese Funktion ändern, um einen Parameter (das Element, für das die Aktion ausgeführt werden soll) zu übernehmen und diese Funktion dann innerhalb der obigen Schleife aufzurufen.
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow