vba - 如何将操作应用于选定的多个 Outlook 项目？

Question

代码here仅适用于一件元素。如何修改它以针对每个选定项目运行 DisplayItemMetadata(请参阅代码)？

更新。尝试执行以下操作:

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

您需要迭代 Selection 对象，如下所示:

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

如果您有一个对单个选定项目执行操作的函数，那么您应该更改该函数以接受参数(要对其执行操作的项目)，然后在上述循环内调用该函数。