Технологии программирования (MS ACCESS, VBA, VB, ASP) - Отправка почты из ACCESS с использованием Microsoft Collaboration Data Objects (CDO)

Навигация

Лента новостей

Новый сайт

	Супер!!!
	Нравится
	Не нравится
	Верните старый

Online

Рассылки Subscribe.Ru

Реклама на сайте

Главная

MS ACCESS

Отправка почты из ACCESS с использованием Microsoft Collaboration Data Objects (CDO)

Автор osmor

08.06.2005 г.

Оглавление
Отправка почты из ACCESS с использованием Microsoft Collaboration Data Objects (CDO)
Страница 2

Страница 1 из 2

Microsoft® Collaboration Data Objects (CDO) - оболочка для MAPI, теоретически должно работать во всех версиях OS WINDOWS от 2000 и выше.

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String
'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass123" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
oMSG.To = " Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script " 'адрес получателя
oMSG.From = "osmor < Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script >" 'адрес отправителя
oMSG.Subject = "Тема" ' тема письма
oMSG.BodyPart.Charset = "windows-1251" ' кодировака письма
oMSG.AddAttachment "c:VANotesInstaller.log" 'путь к вложенному файлу
'формируем HTML текст который будет телом письма
strBody = "Здесь HTML текст." & _
"C уважением, osmor"

oMSG.HTMLBody = strBody 'тело письма
oMSG.send 'отправляем
'обнуляем переменные
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing

Примечание: HTMLBody может содержать любое HTML форматирование такое как "font" "table" "img" и т.п.

Более подробная информация о CDO
Просмотров: 26468

Коментарии (13)

1 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 08:03 26.06.2009
Работает но ...
1. Выбор Сервера - критично : через ХХХХ не работает никак.

2. Мадленно

2 Написал(а) Александр, в 09:12 29.08.2009
На ХР и 2000 работает давно и хорошо. При переносе на 2003 сервер отказывается напрочь.
Привыполнении строки с oMSG.send пишет, что не удалось отправить сообщение на SMTP-server. (Транспорту не удалось подключиться к серверу)
Что и где починить???

3 Написал(а) s, в 15:20 22.10.2009

4 Написал(а) Кирилл, в 15:25 22.10.2009
y меня тоже самое!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

5 Написал(а) osmor, в 05:32 26.10.2009
Все у кого "не работает"! :roll

Первое что рекомендую сделать. C компьютера, где выполняется код, попробовать соединиться телнетом с указанным сервером, по указанному порту.
Или хотя бы попробовать его попинговать.
В 98% случаях проблема именно в соединении с сервером.
С момента публикации статьи ответил на десятки писем с подобными вопросами, во всех случаях проблемы были в следующем:
1. Сервер использовал нестандартный порт
2. Сервер был не доступен
3. Неверные Login + Password
4. Спам фильтры сервера не принимали почту.
5. Банальные опечатки в коде

Код проверен с десятком серверов на всех Win системах начиная с 2000.

6 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 13:48 15.01.2010
Здравствуйте, Олег! Пытаюсь сделать рассылку уведомлений из БД (по кнопке, естественно) с помощью CDO. Все работает, НО: тело письма, нормально вроде бы сформированное (с разделением на абзацы, как подтверждает Debug.Print), в сообщение почему-то выгружается одним куском, без абзацев или разрывов строки. Ни vbCr, ни Chr(10), ни vbCrLf, ни vbNewLine - не помогают. А письмо получается попросту нечитабельное - там может быть много пунктов, и никто из получателей явно не сядет его редактировать, а потом уж пытаться прочесть и понять.
Не подскажете, как выйти из положения? :cry

7 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 13:55 15.01.2010
Здравствуйте, Олег! Пытаюсь сделать рассылку уведомлений из БД (по кнопке, естественно) с помощью CDO. Все работает, НО: тело письма, нормально вроде бы сформированное (с разделением на абзацы, как подтверждает Debug.Print), в сообщение почему-то выгружается одним куском, без абзацев или разрывов строки. Ни vbCr, ни Chr(10), ни vbCrLf, ни vbNewLine - не помогают. А письмо получается попросту нечитабельное - там может быть много пунктов, и никто из получателей явно не сядет его редактировать, а потом уж пытаться прочесть и понять.
Не подскажете, как выйти из положения? :cry

8 Написал(а) osmor, в 14:17 15.01.2010
поскольку тело письма формируется в формате html, то для форматирования нужно использовать html теги (для перехода на новую строку тег
или заключайте абзацы в теги
или используйте вместо
oMSG.HTMLBody = ....
oMSG.TextBody = ...

9 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 14:30 15.01.2010
Простите за тупость. Дошло. HTML-теги! :zzz

Вопрос снят. И большое спасибо за функцию!

10 Написал(а) vsevolod, в 11:45 06.04.2010
Большое спасибо за функцию! Подскажите? а как задать \"Обратный адрес\" и вообще как посмотреть список свойств которые можно задать объекту CDO.Configuration

Пред. - След. »

Вернуться

Реклама на сайте

HiProg.com - Технологии программирования