vba - 具有类似语句的 OUTLOOK vba 过滤器

Question

我想放一个 like 语句，因为我想过滤以 tmeadmin@ 开头的电子邮件

此代码在 like 语句所在的行中断。我如何解决它？

 Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.NameSpace
    Dim objSourceFolder As Outlook.MAPIFolder
    Dim objDestFolder As Outlook.MAPIFolder
    Dim InboxMsg As Object
    Dim Inbox As Outlook.Folder
    Set objOutlook = Application
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set Inbox = objNamespace.GetDefaultFolder(olFolderInbox)
    Dim myRestrictItems As Outlook.Items
     Dim filter As String
     filter = "urn:schemas:httpmail:fromemail LIKE 'tmeadmin@%'"

      MsgBox (filter)
 Set myRestrictItems = Inbox.Items.Restrict(filter)

Answer 1

要使用 LIKE 运算符，您需要使用@SQL 语法:

filter = "@SQL=urn:schemas:httpmail:fromemail LIKE 'tmeadmin@%'"