Vba 更改搜索中找到的选定项目的主题

我正在尝试更改符合搜索条件的电子邮件的主题

例如，用户搜索“苹果”，然后使用此宏更改主题中包含[apples]的所有电子邮件

我的代码更改了用户单击的单个电子邮件的主题，而不是所有选定电子邮件的主题。我很确定它与

ActiveExplorer

和选择函数有关

Sub AddString（）
将myOLAP设置为Outlook.Application
作为对象的Dim aItem
设置myolApp=CreateObject（“Outlook.Application”）
设置邮件=myolApp.ActiveExplorer.CurrentFolder
Dim IITEMSUPPATED为整数
将strTemp设置为字符串
作为字符串的Dim strString
将myOlExp设置为Outlook.Explorer
作为对象的模糊myOlSel
'用户输入
strString=InputBox（“输入项目代码”）
IITEMSUPPATED=0
'空值或取消按钮
如果strString=“”，则退出Sub
'将字符串写入电子邮件主题
设置myOlExp=myolApp.ActiveExplorer
设置myOlSel=myOlExp.Selection
对于x=1到myOlSel.Count
strTemp=“[”&strString&“]”和myOlSel.Item（x）.Subject
myOlSel.项目（x）.主题=strTemp
myOlSel.Item（x）.保存
IITEMSUPPATED=IITEMSUPPATED+1
下一个x
'告诉用户已更新了多少项
MsgBox IITEMSUPPATED&“of”&mail.Items.Count&“已更新邮件”
设置myolApp=Nothing
端接头

只需添加

myOlExp。在代码中选择AllItems

，如

' Writes string to e-mail subject
Set myOlExp = myolApp.ActiveExplorer
myOlExp.SelectAllItems
Set myOlSel = myOlExp.Selection