Рассылка емейлов через CDO / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Рассылка емейлов через CDO

16 сообщений из 16, страница 1 из 1

Рассылка емейлов через CDO

#39990413

wladimirrr

Гость

Приветствую всех! Помогите решить задачу. Есть ленточная форма, в которую собираются определенные данные, в т.ч. имя, email и, например, задолженность клиента.
Каждому нужно отправить емейл напоминание. Отправляем каждому соответствующей кнопкой в строке формы.
Как сделать, чтобы все письма отправились сразу по нажатию одной кнопки на форме? Искал много, ничего похожего пока не нашел.
Пример базы прилагаю.

...

Рейтинг:

0 / 0

17.08.2020, 22:24

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990482

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

wladimirrr, не тестировал

...

Рейтинг:

0 / 0

18.08.2020, 11:11

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990484

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

Панург

wladimirrr, не тестировал

https://www.sql.ru/forum/actualfile.aspx?id=22183968] Приложенный файл (Email02.zip - 38Kb)

там поправь, забыл условие написать

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub cmdSendMailAll_Click()
    With Me.RecordsetClone
        If Not .EOF Then .MoveFirst
        Do Until .EOF
            SendEmail4 .Email, .First_name, .Pmnt, .Data
            .MoveNext
        Loop
    End With
End Sub

...

Рейтинг:

0 / 0

18.08.2020, 11:13

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990578

wladimirrr

Гость

Панург, спасибо большое! Тестирую.

...

Рейтинг:

0 / 0

18.08.2020, 17:13

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990580

wladimirrr

Гость

Панург

wladimirrr, не тестировал

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub cmdSendMailAll_Click()
    With Me.RecordsetClone
        If Not .EOF Then .MoveFirst
        Do Until .EOF
            SendEmail4 .Email, .First_name, .Pmnt, .Data
            .MoveNext
        Loop
    End With
End Sub

А куда в коде можно вставить сообщение, что все емейлы отправлены успешно, что бы можно было визуально контролировать окончание процедуры?

...

Рейтинг:

0 / 0

18.08.2020, 17:32

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990585

vmag

Участник

Откуда: MP

Сообщения: 4 280

Рейтинг: 0 / 0

wladimirrr

что бы можно было визуально контролировать окончание процедуры?

лучше вставить прогрессбар в форму, и ставить галочки в списке (ну или не ставить при ошибке)

...

Рейтинг:

0 / 0

18.08.2020, 17:40

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990587

wladimirrr

Гость

vmag

wladimirrr

что бы можно было визуально контролировать окончание процедуры?

лучше вставить прогрессбар в форму, и ставить галочки в списке (ну или не ставить при ошибке)

Это было бы круто! Как это сделать? Я такое не видел (прогрессбар).

...

Рейтинг:

0 / 0

18.08.2020, 17:54

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990596

Михаил Михайлович Л

Гость

wladimirrr,
Я, в свое время, не стал заморачиваться, повесил на кнопку перебор записей и отправку старым добрым SendObject.

Запрос, условием в котором является значение полей формы.
На основании запроса отчет.
И этот отчет кнопкой отправляется по почте.

Три версии аксеса уже сменилось, а форма все работает. Знаю, что можно по человечески переписать, но пока работает все руки не доходят.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

Private Sub Вывести_все_отчеты_по_точкамКнопка_Click()

On Error GoTo Вывести_все_отчеты_по_точкамКнопка_Err

DoCmd.GoToRecord acForm, "ФормаДляВыводаЗаявкиПоИнициатору", acLast
j = Form_ФормаДляВыводаЗаявкиПоИнициатору.[CurrentRecord]
DoCmd.GoToRecord acForm, "ФормаДляВыводаЗаявкиПоИнициатору", acFirst
For i = 1 To j - 1
            DoCmd.SendObject acSendReport, "Заявки", "Excel97-Excel2003Workbook(*.xls)", _
        ПолеEmail, "mail@домен.com", "", "название " & Format$(Date, "dd/mmm/yyyy"), _
        "Добрый день" & Chr(13) & Chr(10) & "жду письмо" , True

    DoCmd.GoToRecord acForm, "ФормаДляВыводаЗаявкиПоИнициатору", acNext
Next i

 DoCmd.SendObject acSendReport, "Заявки", "Excel97-Excel2003Workbook(*.xls)", _
        ПолеEmail, "mail@домен.com", "", "название " & Format$(Date, "dd/mmm/yyyy"), _
        "Добрый день" & Chr(13) & Chr(10) & "жду письмо" , True          

Вывести_все_отчеты_по_точкамКнопка_Exit:
    Exit Sub
    
Вывести_все_отчеты_по_точкамКнопка_Err:
    MsgBox Error$
    Resume Вывести_все_отчеты_по_точкамКнопка_Exit
End Sub

...

Рейтинг:

0 / 0

18.08.2020, 19:00

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990634

wladimirrr

Гость

Панург

wladimirrr, не тестировал

https://www.sql.ru/forum/actualfile.aspx?id=22183968] Приложенный файл (Email02.zip - 38Kb)

там поправь, забыл условие написать

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub cmdSendMailAll_Click()
    With Me.RecordsetClone
        If Not .EOF Then .MoveFirst
        Do Until .EOF
            SendEmail4 .Email, .First_name, .Pmnt, .Data
            .MoveNext
        Loop
    End With
End Sub

Панург, рассылка работает.
Вопрос: если в форму добавить поле "Дата отправки", как туда записывать дату отправки емейла?

...

Рейтинг:

0 / 0

18.08.2020, 22:44

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990661

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

wladimirrr

Вопрос: если в форму добавить поле "Дата отправки", как туда записывать дату отправки емейла?

Примерно так.

Панург

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Private Sub cmdSendMailAll_Click()
    With Me.RecordsetClone
        If Not .EOF Then .MoveFirst
        Do Until .EOF
                if SendEmail4(.Email, .First_name, .Pmnt, .Data) then
                   .Edit
                    .[Дата отправки]=Date()
                   .Update
                end if
            .MoveNext
        Loop
    End With
End Sub

...

Рейтинг:

0 / 0

19.08.2020, 05:24

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990662

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

зы.

wladimirrr

если в форму добавить поле "Дата отправки"

в таблице я бы не советовал так называть поле, соответственно в коде тоже нужно изменить

...

Рейтинг:

0 / 0

19.08.2020, 05:46

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990689

wladimirrr

Гость

Панург

зы.

wladimirrr

если в форму добавить поле "Дата отправки"

в таблице я бы не советовал так называть поле, соответственно в коде тоже нужно изменить

Да, я понял. Спасибо!

...

Рейтинг:

0 / 0

19.08.2020, 09:54

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990696

FFFFFFFF

Участник

Сообщения: 77

Рейтинг: 0 / 0

wladimirrr,
учти, что то, что письма ушли из твоей программы, не означает, что они отправлены. У каждого почтового провайдера есть ограничения на количество отправленных писем в единицу времени и прочие нюансы. Если писем много, надо по крайней мере делать искусственную задержку перед отправкой каждого последующего.

...

Рейтинг:

0 / 0

19.08.2020, 10:34

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990907

wladimirrr

Гость

FFFFFFFF

Ок, спасибо!

...

Рейтинг:

0 / 0

19.08.2020, 17:51

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990933

wladimirrr

Гость

Панург

wladimirrr

Вопрос: если в форму добавить поле "Дата отправки", как туда записывать дату отправки емейла?

Примерно так.

Панург

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Private Sub cmdSendMailAll_Click()
    With Me.RecordsetClone
        If Not .EOF Then .MoveFirst
        Do Until .EOF
                if SendEmail4(.Email, .First_name, .Pmnt, .Data) then
                   .Edit
                    .[Дата отправки]=Date()
                   .Update
                end if
            .MoveNext
        Loop
    End With
End Sub

Да, так все работает, если записываем Дату отправки сразу в форму. Реальная форма имеет источник в виде необновляемого запроса и туда напрямую значение записать невозможно.
Я обычно пользуюсь запросом на обновление. Пробовал вставлять в этот код строку:
DoCmd.OpenQuery "Query1", acViewNormal, acEdit вместо .[Дата отправки]=Date(), не работает. Или здесь надо как-то иначе записывать значение в таблицу?

...

Рейтинг:

0 / 0

19.08.2020, 19:16

| Ответить | Цитировать | Написать

Рассылка емейлов через CDO

#39990934

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

wladimirrr

Реальная форма имеет источник в виде необновляемого запроса и туда напрямую значение записать невозможно.

Пионеры, идите в *опу! (с)

...

Рейтинг:

0 / 0

19.08.2020, 19:21

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Рассылка емейлов через CDO

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&gotonew=1&tid=1609972]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	137ms
get topic data:	12ms
get first new msg:	8ms
get forum data:	3ms
get page messages:	64ms
get tp. blocked users:	2ms
others:	289ms

total:	543ms