My Visual Database — [Скрипт] Отправка E-mail

Re: [Скрипт] Отправка E-mail

null@example.com (DriveSoft) — Mon, 11 Mar 2019 13:38:04 +0000

sibprogsistem wrote:

проверил через почтовый сервис the bat, smtp соединение сработало только когда я выбрал (требовать безопастную аутентификацию)
в MVD есть что-то подобное?

По умолчанию в MVD smtp соединение требует безопастную аутентификацию

Re: [Скрипт] Отправка E-mail

null@example.com (k245) — Thu, 07 Mar 2019 18:18:24 +0000

Это не от винды зависит, а бог знает от чего... у меня дома три компа, с разными операционками (win 7,8,10) , ни на одном не работает, выдает такую же ошибку. Причем примерно из 30 попыток одна заканчивается успешно, остальные - таймаут. Сначала думал на антивирусник (awast). Отключал всё: и брандмауэр, и антивирусник.... остался роутер под подозрением

Re: [Скрипт] Отправка E-mail

null@example.com (sibprogsistem) — Thu, 07 Mar 2019 18:11:12 +0000

проверил через почтовый сервис the bat, smtp соединение сработало только когда я выбрал (требовать безопастную аутентификацию)
в MVD есть что-то подобное?

Re: [Скрипт] Отправка E-mail

null@example.com (DriveSoft) — Thu, 07 Mar 2019 11:55:45 +0000

Тут я мало, что могу сделать, необходимо добавить программу в исключения для брендмаура Windows, либо в настройках вашего антивируса.

Re: [Скрипт] Отправка E-mail

null@example.com (sibprogsistem) — Thu, 07 Mar 2019 00:03:29 +0000

все способы перепробовал.. в windows 7 работает а в 8.1 и 10 не хочет

Re: [Скрипт] Отправка E-mail

null@example.com (sibprogsistem) — Wed, 06 Mar 2019 17:34:25 +0000

сталкнулся с проблемой ...
windows 8.1 блокирует соединение с почтой

[Скрипт] Отправка E-mail

null@example.com (DriveSoft) — Wed, 29 Apr 2015 23:06:14 +0000

Отправка E-mail сообщения с файлом.
начиная с версии 4.05 вы можете указать несколько адресатов разделяя их знаком ;

procedure Form1_bSend_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.bSend.Enabled := False;

    if SendMail(Form1.edServer.Text, Form1.edUsername.Text, Form1.edPassword.Text, Trunc(Form1.edPort.Value), Form1.edFrom.Text, Form1.edTo.Text, Form1.edSubject.Text, Form1.mmMessage.Text, Form1.edFileName.Text) then
        ShowMessage('Message sent');

    Form1.bSend.Enabled := True;
end;


begin
end.

Проект с примером: