喜欢VBA中的项目？

Posted 2021-03-26

我想知道VBA for Outlook 2003/2007中是否有像“喜欢”这样的东西，就像SQL中的LIKE一样......

例如，您在网络中有多个用户，每个人都有另一个邮箱名称。

所以我在考虑这样的事情：

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set TopFolder = olNs.Folders.Item("Mailbox - *") '<----- here i was thinking of something like a LIKE
Set SubFolder = TopFolder.Folders.Item("Projekte")
Set Folder = SubFolder.Folders

感谢帮助

答案

在VBA中有一个用于字符串模式匹配的LIKE，但要在你的场景中使用，你需要迭代olNs.Folders集合中的项目名称并将它们与你的模式进行比较;

if sFolderName like "Mailbox - *" then 
   Set TopFolder = olNs.Folders.Item(sFolderName) 
   exit for
   ...