¿Cómo aplicar la acción a varios elementos de Outlook seleccionados?
-
29-10-2019 - |
Pregunta
El código aquí funcionapara un solo artículo.¿Cómo modificar eso para ejecutar DisplayItemMetadata
(ver el código) para cada elemento seleccionado?
Upd.intentó hacer lo siguiente:
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
Solución
Debe iterar sobre el objeto Selection, de la siguiente manera:
Dim individualItem As Object
For Each individualItem In Application.ActiveExplorer.Selection
'Perform some action on individualItem
Next Message
Si tiene una función que realiza una acción en un solo elemento seleccionado, entonces debe cambiar esa función para tomar un parámetro (el elemento sobre el que realizar la acción) y luego llamar a esa función dentro del ciclo anterior.
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow