отправка сообщений через CDO

Добрый день, коллеги!
Вопрос следующий. Отправляю программно сообщения по почте кодом, используя CDO.

'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
и т.д.

Короче, все отлично работает.
Постановщик задачи запросил при отправке сообщений ставить признак важности (красный восклицательный знак). Собственно вопрос - Как?

evgspb,

http://stackoverflow.com/questions/3302036/how-can-i-set-high-importance-on-email-sent-using-vba

Спасибо, забыл указать, что у меня акцесс 2007, а там решение для 2010 и выше.

Так что вопрос остался открытый, как в 2007 через Vba поставить важность на сообщение, которое отправляется через cdo

evgspb,
может это поможет?

...
With iMsg.Fields 
    .Item("urn:schemas:httpmail:importance") = 2
    .Item("urn:schemas:httpmail:priority") = 1
    .Update
End With
...

И ошибку не выдает и важность не ставит=( Сообщение приходит с нормальной важностью, которая по умолчанию.

evgspb,
а если вот так ещё попробовать?

...
 oMsg.Fields.Item("urn:schemas:mailheader:importance").Value = "high"
 'you can set [high,normal,low] for this field

 oMsg.Fields.Item("urn:schemas:mailheader:priority").Value = 1
 'you can set [1, 0 , -1] for this field

 oMsg.Fields.Update()
 oMsg.Send()
...

Да, спасибо все получилось, только отправка письма стала вместо 3-5 секунд почти 20-25.

evgspb
Да, спасибо все получилось, только отправка письма стала вместо 3-5 секунд почти 20-25.

странно, а если убрать строку?
oMsg.Fields.Item("urn:schemas:mailheader:priority").Value = 1

Я ее сразу убрал, она мне не нужна была. Посмотрел - время отправки не зависит от кода, видимо сетка подвисала или на почтовом сервере тормоза были. Еще раз спасибо.