Редактирование строки темы для нескольких электронных писем

Question

Привет! Я хочу открыть диалоговое окно, чтобы пользователь мог ввести номер и изменить строку темы для нескольких выбранных (выделенных) писем.

Приведенный ниже код работает только для одного письма, а не для других, которые я выделил:

Sub AddFileNumber()

Dim myo1App As Outlook.Application
Dim aItem As Object

Set myo1App = CreateObject("Outlook.Application")
Set mail = myo1App.ActiveExplorer.CurrentFolder

Dim iItemsUpdated As Integer
Dim strTemp As String
Dim strFilenum As String

strFilenum = InputBox("Enter Number")
iItemsUpdated = 0
For Each aItem In mail.Items
    strTemp = "[" & strFilenum & "] " & aItem.subject
        aItem.subject = strTemp
        iItemsUpdated = iItemsUpdated + 1
    aItem.Save
Next aItem

MsgBox iItemsUpdated & " of " & mail.Items.Count & " Messages Updated"
Set myo1App = Nothing

End Sub