Outlook VBA 搜寻

hp051247767

在Outlook 搜寻邮件主旨中有特定文字的邮件是搜寻不到的
如:
搜寻已下邮件可以找到
Set colFiltered = colItems.Restrict("[Subject] = 'MailCloud 广告信报表 (SPAM Report)'")
搜寻已下邮件就不能找到
Set colFiltered = colItems.Restrict("[Subject] = 'FW: MailCloud 广告信报表(SPAM Report)'")
Set colFiltered = colItems.Restrict("[Subject] = 'FW:MailCloud 广告信报表(SPAM Report)'")
请问是什么原因?
代码如下

1. Private Sub tset()
   
2. 
   
3. Const olFolderInbox = 6
   
4. 
   
5. Set objOutlook = CreateObject("Outlook.Application")
   
6. Set objNamespace = objOutlook.GetNamespace("MAPI")
   
7. Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
   
8. 
   
9. Set colItems = objFolder.Items
   
10. Set colFiltered = colItems.Restrict("[Subject] = 'FW: MailCloud 广告信报表(SPAM Report)'")
    
11. 'Set colFiltered = colItems.Restrict("[Subject] = 'MailCloud 广告信报表(SPAM Report)'")
    
12. 
    
13. 
    
14. For Each objMessage In colFiltered
    
15. 
    
16.     MsgBox "Subject:" & objMessage.Subject & objMessage.SenderEmailAddress & objMessage.ReceivedTime
    
17.    
    
18. Next
    
19. 
    
20. End Sub

复制代码