1 Topic by sibprogsistem (edited by sibprogsistem 2019-03-09 23:19:51)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: mailSerialWeb

В связи с тем, что не у всех работают порты 587, 25, 465.. а у некоторых как выяснилось вообще провайдеры блакируют работу портов (не знаю как) .. telnet не всегда работает одекватно.. Я переделал проект с регитрацией через почту. Теперь письмо отправляется через зарание подготовленную веб форму..
Пусть проект так и называется mailSerialWeb

инструкция по настройке (на скорую руку) https://yadi.sk/i/yS-gl4S9qRIxoQ

Post's attachments

Attachment icon mailSerialWeb.7z 7.1 kb, 376 downloads since 2019-03-10 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: mailSerialWeb

Будет проще расположить на сервере php файлик с таким содержанием, который отправляет email с сообщением, взятых из параметров

<?php
$to      = 'support@drive-software.com';
$subject = 'the subject';
$message = 'Клиент '.$_REQUEST['user_name']. "\r\n" .
            'Skype:'.$_REQUEST['skype']. "\r\n" .
            'Телефон:'.$_REQUEST['phone']. "\r\n" .
           'Сообщение:'.wordwrap($_REQUEST['message'], 70, "\r\n");

$headers  = 'MIME-Version: 1.0' . "\r\n";
$headers .= 'Content-type: text/plain; charset=UTF-8' . "\r\n";
$headers .= 'From: sales@drive-software.com' . "\r\n" .
    'Reply-To: sales@example.com' . "\r\n" .
    'X-Mailer: PHP/' . phpversion();

mail($to, $subject, $message, $headers);

?>

желательно в скрипт добавить проверку на секретный пароль и чтобы сервер поддерживал https


затем отправлять можно так

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
    slParam: TStringList;
    user_name, mesage: string;
begin
    user_name := 'Dmitriy Ivanov';
    mesage := 'Всем привет';

    slParam := TStringList.Create;
    slParam.Add('user_name='+user_name);
    slParam.Add('message='+mesage);

    HTTPPost('http://yoursite.com/script.php', slParam);
end;
Dmitry.