我想添加一个类似的声明，因为我想过滤以以下开头的电子邮件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)
要使用LIKE运算符，需要使用@SQL语法：
filter = "@SQL=urn:schemas:httpmail:fromemail LIKE 'tmeadmin@%'"
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
