Понравился пункт в VBA?

Question

Мне было интересно, есть ли что-то вроде «Like» в VBA для Outlook 2003/2007, как LIKE в SQL ...

Например, у вас есть несколько пользователей в сети, и у каждого есть другойИмя почтового ящика.

Итак, я думал о чем-то вроде этого:

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

Спасибо за помощь

Answer 1

В VBA есть LIKE для сопоставления с образцом строки, но для использования в вашем сценарии вам нужно будет перебрать имена элементов в коллекции olNs.Folders и сравнить их с вашим шаблоном;

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