Comment appliquer l'action à plusieurs éléments Outlook sélectionnés?

Question

Le code ici Fonctionne pour un seul élément. Comment modifier cela pour fonctionner DisplayItemMetadata (voir le code) pour chaque élément sélectionné?

Upd. J'ai essayé de faire ce qui suit:

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

Answer 1

Vous devez itérer sur l'objet de sélection, comme suit:

Dim individualItem As Object
For Each individualItem In Application.ActiveExplorer.Selection
    'Perform some action on individualItem
Next Message

Si vous avez une fonction qui effectue une action sur un seul élément sélectionné, vous devez modifier cette fonction pour prendre un paramètre (l'élément pour effectuer l'action), puis appeler cette fonction à l'intérieur de la boucle ci-dessus.