批量去除邮件标题中特定字符，只成功了当前

yhy123556

我想批量去除邮件标题中特定字符/字符串，用了For Each Next结构，可是以下代码只能去除当前选中的邮件标题中的特定字符，各位大侠，帮我看看哪里有问题？我也在做不同的尝试，还没成功呢。。

1. Sub EditSingle()
   
2. Set myfolder = Application.ActiveExplorer.CurrentFolder
   
3. Set myItems = myfolder.Items
   
4. For Each myItem In myItems
   
5.     myItem.Subject = Replace(myItem.Subject, "*", "")
   
6.     myItem.Subject = Replace(myItem.Subject, "!", "")
   
7.     Next
   
8. End Sub

复制代码

yhy123556

一楼的代码没贴成功貌似。
试了多种结构/代码，今天上午发现其实只要代码里]加上“Save”就可以了，没有Save的话是修改了但没保存，以下两版成功的代码贴上来供参考。

1. Sub EditSingle()
   
2. Set myfolder = Application.ActiveExplorer.CurrentFolder
   
3. Set myItems = myfolder.Items
   
4. For Each myItem In myItems
   
5.     myItem.Subject = Replace(myItem.Subject, "*", "")
   
6.     myItem.Subject = Replace(myItem.Subject, "!", "")
   
7.     myItem.Save
   
8. Next
   
9. End Sub

复制代码

1. Sub EditSubject()
   
2. Dim i As Integer
   
3. Dim myItems As Outlook.Items
   
4. Dim myItem As Object
   
5. Set myItems = Application.ActiveExplorer.CurrentFolder.Items
   
6. For i = 1 To myItems.Count Step 1
   
7. Set myItem = myItems(i)
   
8. With myItem
   
9. .Subject = Replace(.Subject, "RE: ", "")
   
10. .Subject = Replace(.Subject, "Re: ", "")
    
11. .Subject = Replace(.Subject, "FW: ", "")
    
12. .Save
    
13. End With
    
14. Next
    
15. End Sub

复制代码