Come applicare l'azione a diversi elementi di Outlook selezionati?

Question

Il codice qui funzionaper un solo articolo.Come modificarlo per eseguire DisplayItemMetadata (vedere il codice) per ogni elemento selezionato?

Aggiorn.ha provato a fare quanto segue:

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

È necessario iterare sull'oggetto Selection, come segue:

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

Se hai una funzione che esegue un'azione su un singolo elemento selezionato, dovresti cambiare quella funzione per prendere un parametro (l'elemento su cui eseguire l'azione) e quindi chiamare quella funzione all'interno del ciclo precedente.