Строго говоря яндекс перешел на SSL
Ток что пробовал по телнету.
telnet smtp.yandex.ru 25
Connected to smtp.yandex.ru.
Escape character is '^]'.
220 smtp4h.mail.yandex.net ESMTP (Want to use Yandex.Mail for your domain? Visit
http://pdd.yandex.ru)
501 5.5.4 EHLO requires domain address.
EHLO pop.mail.ru
250-smtp4h.mail.yandex.net
250-8BITMIME
250-PIPELINING
250-SIZE 42991616
250-STARTTLS
250-AUTH LOGIN PLAIN
250-DSN
250 ENHANCEDSTATUSCODES
AUTH
530 5.7.7 Email sending without SSL/TLS encryption is not allowed. Please see:
http://help.yandex.ru/mail/mail-clients/ssl.xmlConnection closed by foreign host.
Типа пошли нафиг - отправка писем без SSL/TLS не поддерживается.
Настройки SMTP с SSL у яндекс
адрес почтового сервера — smtp.yandex.ru;
защита соединения — SSL;
порт — 465.
http://help.yandex.ru/mail/mail-clients.xml#pop3Исправляйте настройки.
procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.Username:=edit1.Text;
idsmtp1.Password:=edit2.Text;
idmessage1.Body.text:=memo1.Text;
idmessage1.From.Text:=edit1.Text+'@yandex.ru';
idmessage1.Recipients.EMailAddresses:=edit4.Text;
if fileexists(s) then TIdAttachment.Create(idmessage1.MessageParts,s);
idmessage1.Subject:=edit3.Text;
idsmtp1.Connect();
if idsmtp1.Connected then
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then s:=opendialog1.FileName;
end;
end.