ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / отправка сообщений через CDO
13 сообщений из 13, страница 1 из 1
отправка сообщений через CDO
    #39167317
evgspb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evgspb
Гость
Добрый день, коллеги!
Вопрос следующий. Отправляю программно сообщения по почте кодом, используя 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, 09:53
| Ответить | Цитировать | Написать  
отправка сообщений через CDO
    #39167345
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
evgspb,

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


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