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

341
RaRA

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

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

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
0

0 ответов на вопрос

Похожие вопросы