FreePascal.ru

... блокировки, бывают проблемы с кабелями,
писал с mail.ru на hotmail, пришёл ответ:

host hotmail-com.olc.protection.outlook.com [52.101.9.25]
SMTP error from remote mail server after pipelined end of data:
550 5.7.1 Unfortunately, messages from [95.163.59.118] weren't sent. Please contact your ...

... tr=http%3A%2F%2Fbt4.t-ru.org%2Fann%3Fmagnet&dn=Мастер-класс%20-%20Джонс%20Э.%2C%20Оланд%20Д.%20-%20Программирование%20в%20сетях%20Microsoft%20Windows%20%5B2002%2C%20PDF%2C%20RUS%5D

Я в эти дебри полез, когда с smtp разбирался с нативными сокетами...что-то глубоко полез :twisted:

сразу после ответа SMTP server 220
Этот код тестировался только на отправке с gmail, собственно, как и писался исходный на c++.
Но в целом, не должно быть проблем ни с каким сервером, выполняющим rfc. Я проверю на mail.ru, но из лога мне не очень понятно, почему ehlo перед приветом от mail.ru ...

Долил на гитхаб необходимое...
Спасибо. Пока дает ошибку, сразу после ответа SMTP server 220. Видимо лучше ответ-вопросы продолжить на гит? Позже потестю еще. Спасибо за репу.

SERVER_NAME: smtp.mail.ru
SERVER_PORT: 465
Session established.
Data to send: EHLO fpmail

220 smtp56.i.mail.ru ESMTP ...

Классный проект, кстати. Поставил лайк
Спасибо большое :!:
Будет время, потестируйте и этот пример отправки по SMTP на Indy

Как же не удобно, когда нет простого способа скачать и поставить последнюю версию любой библиотеки или модуля, а если это и удается, то потом ещё танцы с бубном в ...

... в поисках вчерашнего дня в соседней теме вселило уверенность, что это актуально.
К тому же я уже сделал рабочий пример отправки сообщения через smtp Gmail с tls на чистом fpc с помощью cryptlib, примеров на паскале по которому, в отличии от OpenSSL, я практически не нашёл, благо, есть встроенный ...

... напрямую через IdOpenSSLSetLibPath библиотеки OpenSSL v.1.0.2u из вашего сообщения для чистоты эксперимента.

Из под обеих систем сообщения через smtp mail.ru успешно доставляются на yandex.ru и mail.ru, все параметры присутствуют и видны правильно.

Вот кроссплатформенный код, который отправляет ...

... begin
TRY

if ComboKomu.Text='' then begin
ComboKomu.SetFocus;
ShowMessage('Укажите адресата!');
Exit;
end;

Screen.Cursor:=crSQLWait;
IdSMTP1.Host := 'smtp.mail.ru'; // проверял через gmail
IdSMTP1.Port := 25;
IdSMTP1.Username := 'вашящик@mail.ru'; // тут - полный username (у меня ...

... секунду:
Да я понимаю, чтобы просто стало встроенной функцией, как mail в php
В идеале. Но хотя бы включили в виде нативной либы, типа fcl-mail/smtp

Добавлено спустя 55 секунд:
Обновил свой пример, переписал его кроссплатформенно, проверил отправку через Rambler в Windows/Linux.
В свободное ...

... StreamSecII или OpenStreamSecII SSL.
Так что, по итогу, это будет очередной synapse или Indy :mrgreen:
А писать полноценную библиотеку, подобную OpenSSL или CryptLib, специально на pascal никто точно не возьмется.
Хотя, если решать утилитарную задачу отправки почты по smtp, то, в принципе, реально...

У меня - работает... Что я делаю не так? Может быть еще косяк в настройках вашего SMTP сервера. Уж и не знаю... Кстати, на вашем скрине не увидел строчки
IdMessage1.ContentTransferEncoding := 'base64';
А она принципиально важна.

Она там присутствует..
Не могли бы вы скинуть библиотеки openssl ...

У меня - работает... Что я делаю не так? Может быть еще косяк в настройках вашего SMTP сервера. Уж и не знаю... Кстати, на вашем скрине не увидел строчки
IdMessage1.ContentTransferEncoding := 'base64';
А она принципиально важна.

Снег Север писал(а):Всё. Назначайте данные коннекта к вашему SMTP серверу и отправляйте - всё будет работать. Для utf8, разумеется, ничего перекодировать не надо и чарсет ставите utf8.

Тоже самое....(((

... алгоритм или процедуру.
Неожиданно для себя тоже не нашел в интернете актуальных примеров на free pascal отправки простого почтового сообщения по smtp без использования TLS.

Написал простой кроссплатформенный пример на чистом fcl (без использования Indy, Synapse и тп.), так как все необходимое ...

IdMessage1 : TIdMessage;
IdSMTP1 : TIdSMTP;
IdSSLIOHandlerSocketOpenSSL1 : TIdSSLIOHandlerSocketOpenSSL;
...
var
subj, body :RawByteString;

// только для windows-1251
subj := UTF8ToCP1251(subj, true);
body := UTF8ToCP1251(body, true);
IdMessage1.From.Address := ****;
IdMessage1 ...