Отбор писем по теме в Outlook.

[GoreProgrammist]

Уважаемые форумчане.

Подскажите пожалуйста, есть кусок кода:

If InStr(Item.Subject, "Meteo Data") > 0 Then   
'Проверка темы письма для отлова писем с темой, содержащей слово "Meteo".
'Если тема письма содержит слово "Meteo", то происходит копирование письма в папку "MeteoDataFolder".
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objTestFolder = objInbox.Folders("MeteoDataFolder")
Set ObjApp = CreateObject("Outlook.Application")          
Set ObjNewItem = Item.Copy                                
ObjNewItem.Move objTestFolder

Именно вот эта строка, проверяет является ли темой письма "Meteo Data", если да то происходит обработка таких писем,

If InStr(Item.Subject, "Meteo Data") > 0 Then

Вопрос: как изменить условие на такое: Если в строке с темой письма содержится слово "Meteo", то функция "InStr" возвращает 1?

[doober]

 If InStr(1, Item.Subject, "Meteo Data", vbTextCompare) = 1 Then

[GoreProgrammist]

Сообщение от doober

 If InStr(1, Item.Subject, "Meteo Data", vbTextCompare) = 1 Then

То есть если в теме будет "2 Meteo Data abrakadabra UN9934235", то функция вернёт 1?

[doober]

Она вернет 3

[GoreProgrammist]

Сообщение от doober

Она вернет 3

If InStr(1, Item.Subject, "Meteo Data", vbTextCompare) > 0 Then


А если сделать вот так? Нужно нестрогое соответствие, что бы тема содержала хотя бы слово "Meteo ", неважно в каком контексте.

[doober]

If InStr(Item.Subject, "Meteo Data") > 0 Then

Вопрос: как изменить условие на такое: Если в строке с темой письма содержится слово "Meteo", то функция "InStr" возвращает 1?

А чем тогда не подходит ваше же решение?

[GoreProgrammist]

Сообщение от doober

А чем тогда не подходит ваше же решение?

я ещё раз вечером потестирую, но я считал что функция возращает > 0, только в случае строго соответствия, сейчас я столкнулся с проблемой что нужно обрабатывать ещё и письма с темой вида "MeteoData UN783742965".

[doober]

InStr (функция) - возвращает позицию первой найденной подстроки в строке

[IgorGO]

If InStr(Item.Subject, "Meteo") > 0 Then
if Item.Subject Like "*Meteo*" then