Как программно найти то созданное, подготовленное к отправке письмо?

[RISagitov]

Из Excel вставляю макросом значения, в уже подготовленное к отправке письмо в Outlook

(не сохраненное нигде (ни в черновиках , ни тем более в отправленных (раз не отправил))


после получения ссылки на объект Outlook
Set OutApp = GetObject(, "Outlook.Application")


как программно найти то созданное, подготовленное к отправке письмо?

[RISagitov]

разобрался

вот код если кому интересно
Dim OutMail as Object
Set OutMail = OutApp.Inspectors.Item(OutApp.Inspe ctors.Count)

[IgorGO]

спасибо,
но это способ сослаться на последнее, созданное, а как найти

то созданное

здесь нет ответа, будем откровенны

[RISagitov]

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

спасибо,
но это способ сослаться на последнее, созданное, а как найти здесь нет ответа, будем откровенны

если вообще откровенно то мне это и требовалось


OutApp.Inspectors.Count дает колво подготовленных к отправке писем
нумерация с единицы, поэтому последнее соответствует подсчитанному колву
если этого мало, в теле письма могут быть признаки, тот или не тот
+ думаю можно определить дату создания


как конкретно я делаю?!
вот так
Set OutMail = OutApp.Inspectors.Item(OutApp.Inspe ctors.Count)
With OutMail
Set wdDoc = .WordEditor
strText = wdDoc.Application.Selection.Range.T ext
End With

т.е. по выделенному фрагменту
в подготовленном письме, должен быть выделен фрагмент текста в теле письма, он (текст) должен соответствовать нужным критериям

-- я создаю письмо,
выделяю текст,
нажимаю комбинацию клавиш
макрос запускается из Outlook
распознает по текстовке что выделено соответствует формату
формирует sql запрос
связывает результат запроса с Excel
формирует таблицу в excel, сохраняет, закрывает
вставляет excel как attache в письмо