كيفية تطبيق الإجراء على العديد من عناصر Outlook المحددة؟

Question

الرمز هنا يعمل لعنصر واحد فقط.كيفية تعديل ذلك للتشغيل 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

تحتاج إلى التكرار على كائن التحديد، كما يلي:

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

إذا كانت لديك دالة تنفذ إجراءً على عنصر واحد محدد، فيجب عليك تغيير هذه الوظيفة لتأخذ معلمة (العنصر المطلوب تنفيذ الإجراء عليه) ثم استدعاء هذه الوظيفة داخل الحلقة أعلاه.