MS Access - массовая рассылка по электронной почте?

Я думаю, вам нужно будет изучить код VBA, чтобы это сделать. Этот руководство может быть полезен.

Вот путь к отправить электронное письмо из доступа.

Вот еще один ресурс для отправки электронная почта через MS Access

Я только что создал следующий пример работающий в MS Access 97.

Образец таблицы (я тестировал код с действующими адресами электронной почты):

ID Имя Электронная почта

1 Рикс [email protected]

2 Кейт [email protected]

3 X [email protected]

Форма с одной кнопкой. При нажатии кнопки выполняется следующий код:

Private Sub Mail_Click()

    Dim r As Recordset
    Dim email As String
    Set r = CurrentDb.OpenRecordset("select * from Addresses")
    Do While Not r.EOF
        email = r(2)
        DoCmd.SendObject acSendNoObject, Null, Null, email, Null, Null, "Test subject", "Message body of the test letter", False, Null
        r.MoveNext
    Loop
    r.Close

End Sub

Надеюсь, вы сможете вставить его в свое приложение.

Ответ, предоставленный rics, отправит электронное письмо всем участникам набора записей, но похоже, что, возможно, вы хотите отправить одно электронное письмо в настраиваемый список рассылки. Для этого настройте код rics, чтобы создать адресную строку примерно так:

Личная подписка Mail_Click ()

Dim r As Recordset
Dim email As String
Set r = CurrentDb.OpenRecordset("select * from Addresses")
Do While Not r.EOF
    email = email & r(2) & ";"
    r.MoveNext
Loop
r.Close

DoCmd.SendObject acSendNoObject, Null, Null, email, Null, Null, "Test subject", "Message body of the test letter", False, Null

Конец подписки

Кейт,

К сожалению, не существует особого «волшебного» кода для того, что вы планируете делать. Вам нужно будет что-то написать. Мое решение было бы:

1. Создайте форму с 3 элементами управления: 1 текстовый элемент, 1 элемент управления списком, 1 кнопка "отправить"
2. Текстовый элемент управления содержит текст для отправки
3. В элементе управления списком отображаются все мои доступные электронные письма (заполненные набором записей)
4. Множественный выбор будет включен, так что я могу выбрать несколько элементов в списке.

5. Щелкнув по кнопке, я

   Объедините все выбранные электронные письма, чтобы получить строку "sendTo", например sendTo = "[email protected]; [email protected]". Вызовите метод doCmd.sendObject, используя sendTo + текстовую строку в качестве аргумента.

Возможные варианты:

• Дополнительный контроль темы электронного письма
• Сохраняйте след отправленных писем в таблице (тема, текст, дата, люди, которых они достигли). Это может быть так же просто, как «одна запись на почту» с полем памятки для записи текстовой строки sendTo (конечно, вы могли бы создать что-то более умное с несколькими таблицами, чтобы придерживаться отношения «многие ко многим», которое может быть установлено между вашими людьми. стол и ваш почтовый стол, но он может вам не понадобиться)

Получил работу :)

Код был отличным, но для работы с моими данными потребовалась некоторая доработка. После того, как появилось много ошибок, я наконец придумал:

    Dim r As Recordset
Dim Email As String
Set r = CurrentDb.OpenRecordset("select Email from FranksFinanceBrokers")
Do While Not r.EOF
    Email = Email & r(0) & ";"
    r.MoveNext
Loop
r.Close

DoCmd.SendObject acSendNoObject, Null, Null, "", "", Email, "", "", True, Null

End Sub

Спасибо за помощь, ребята!

Электронная почта из Access имеет ряд подводных камней, не в последнюю очередь из-за того, что это может сделать вас похожим на спамера и вызвать проблемы с вашим почтовым хостом. Кроме того, существует множество проблем с безопасностью. Лучший источник информации об этом - Электронная почта Тони Тэйвза: часто задаваемые вопросы.

Есть несколько способов обойти пропавшие адреса электронной почты. Самый простой - настроить SQL, чтобы исключить их:

выберите адрес электронной почты от FranksFinanceBrokers, ГДЕ (адрес электронной почты НЕ ПУСТОЙ) И (адрес электронной почты <> "")

Другой подход заключался бы в добавлении оператора IF в код построения строки:

ЕСЛИ Not IsNull (r (0)) AND r (0) <> "" ТОГДА Электронная почта = Электронная почта & r (0) & ";"

Я бы просто отфильтровал это на уровне SQL - эффективнее и проще.

Было бы проще купить программное обеспечение для этого? Да, но где в этом проблема? :-) Вы уже прошли большую часть пути, так что я буду придерживаться этого.