|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2011, 16:11 | #1 |
Регистрация: 02.11.2011
Сообщений: 6
|
Рассылка!
Добрый день! Хотел уточнить , возможно сделать эмэил рассылку с помощью Access 2007...Как должно быть в идеале , есть таблица в которой 5.тыс контактов которые разбиты на идентификаторы. Допустим мне нужно по идентификаторам отсортировать 500контактов и отправить им всем одно и то же сообщение...Возможно ли это сделать непосредственно из Access , если возможно , то как ?
|
14.12.2011, 14:56 | #2 |
Регистрация: 02.11.2011
Сообщений: 6
|
Кто-то может ответить вообще это возможно или нет ?
|
15.12.2011, 00:04 | #3 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
Здравствуйте Chemik.
"..возможно сделать эмэил рассылку с помощью Access..?" - хотя СУБД (система управления базами данных) MS Access не является почтовой программой и не "умеет" работать с почтой, задачу можно выполнить подключив к проекту библиотеку соответствующего приложения (MS Outlook) и выполнив подобный код: Код:
Последний раз редактировалось Teslenko_EA; 15.12.2011 в 00:10. |
15.12.2011, 12:18 | #4 |
Регистрация: 02.11.2011
Сообщений: 6
|
Спасибо большое Тестировать буду через недельку , потом отпишусь!)
|
15.12.2011, 12:45 | #5 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 515
|
Не знаю как в 2007, но в 2003 у меня там возникла проблема, что при каждой отправке необходимо подтверждение отправки сообщения. Я долго бился над данной проблемой, но так ничего и не нашёл - поэтому пошёл другим путём и нашёл приблизительно следующее:
Sub CDO() Set objMsg = CreateObject("CDO.Message") Set Config = CreateObject("CDO.Configuration") Set Config = objMsg.Configuration objMsg.FROM = "от" objMsg.To = "кому" objMsg.Subject = "Test sending email from sñriðt" objMsg.Textbody = "This is a body of E-mail." Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "имя серевера" Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "путь к вашей папке" Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль для входа на компьютер" Config.Fields.Update objMsg.Send End Sub Параметры кому отправлять и какое письмо можно засунуть в рекордсет и работает быстрее чем через аутлук. И будет Вам счастье..... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Рассылка | Claster | Помощь студентам | 1 | 25.08.2011 17:11 |
Рассылка | Aqil_f | Microsoft Office Excel | 14 | 10.12.2010 16:08 |
Рассылка из Excel | spoofing | Microsoft Office Excel | 1 | 11.11.2008 11:41 |