Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / отправка сообщений через CDO / 13 сообщений из 13, страница 1 из 1
10.02.2016, 09:53
    #39167317
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
Добрый день, коллеги!
Вопрос следующий. Отправляю программно сообщения по почте кодом, используя CDO.

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

Короче, все отлично работает.
Постановщик задачи запросил при отправке сообщений ставить признак важности (красный восклицательный знак). Собственно вопрос - Как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 10:44
    #39167345
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
evgspb,

http://stackoverflow.com/questions/3302036/how-can-i-set-high-importance-on-email-sent-using-vba
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 11:30
    #39167387
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
Спасибо, забыл указать, что у меня акцесс 2007, а там решение для 2010 и выше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 11:49
    #39167414
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
Так что вопрос остался открытый, как в 2007 через Vba поставить важность на сообщение, которое отправляется через cdo
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 11:54
    #39167424
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
evgspb,
может это поможет?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
...
With iMsg.Fields 
    .Item("urn:schemas:httpmail:importance") = 2
    .Item("urn:schemas:httpmail:priority") = 1
    .Update
End With
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 12:14
    #39167453
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
И ошибку не выдает и важность не ставит=( Сообщение приходит с нормальной важностью, которая по умолчанию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 12:27
    #39167466
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
evgspb,
а если вот так ещё попробовать?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
...
 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()
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 12:50
    #39167504
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
Да, спасибо все получилось, только отправка письма стала вместо 3-5 секунд почти 20-25.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2016, 12:58
    #39167518
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
evgspbДа, спасибо все получилось, только отправка письма стала вместо 3-5 секунд почти 20-25.
странно, а если убрать строку?
oMsg.Fields.Item("urn:schemas:mailheader:priority").Value = 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2016, 11:14
    #39173897
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
Я ее сразу убрал, она мне не нужна была. Посмотрел - время отправки не зависит от кода, видимо сетка подвисала или на почтовом сервере тормоза были. Еще раз спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2016, 11:50
    #39173938
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
А еще вопрос, возможен ли предварительный просмотр сообщений перед отправкой , используя CDO, или только .send?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2016, 13:34
    #39174095
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
evgspbА еще вопрос, возможен ли предварительный просмотр сообщений перед отправкой , используя CDO, или только .send?
у CDO , вроде, такой возможности нет, а через Outlook - есть (.Display)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2016, 13:40
    #39174112
evgspb
evgspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка сообщений через CDO
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / отправка сообщений через CDO / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 128ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1613907]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 13ms
total:  128ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]