почему не отправляется почта

[alman12]

Сообщение от indexx

По тому что ты не программист. Хотел дать подсказку, но не дам, ибо НЕ ФИГ!

на фиг твою подсказку

[саша40]

1. Кинь компонент idSSLIOHandlerSocket с вкладки IOHandlers.
2. Задай свойству компонента idSMTP IOHandler значение idSSLIOHandlerSocket1(если не менял name после того как кинул на форму).

[Stilet]

почему не отправляется на емаил

Показывай код. А лучше выкладывай в архиве проект полностью.

[alman12]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdMessageClient, IdSMTPBase, IdSMTP, IdMessage, IdPOP3, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdHTTP,
  IdAntiFreezeBase, Vcl.IdAntiFreeze, IdCoder, IdCoder3to4, IdCoderMIME,
  IdServerIOHandler;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdAntiFreeze1: TIdAntiFreeze;
    IdEncoderMIME1: TIdEncoderMIME;
    IdServerIOHandlerSSLOpenSSL1: TIdServerIOHandlerSSLOpenSSL;
    IdSSLIOHandlerSocketOpenSSL2: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ConvertToWIN1251(instr:string):string;
begin
  result:='=?'+'Windows-1251'+'?B?'+form1.IdEncoderMIME1.Encode(instr)+'?=';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.AuthType:= satDefault;
  IdSMTP1.Username:='-------------'; //Логин
  IdSMTP1.Password:='-----------'; //Пароль
  IdSMTP1.Host:='smtp.mail.ru'; //Хост
  IdSMTP1.Port:=25;
  IdMessage1.CharSet:='windows-1251'; //Кодировка в теле сообщения
  IdMessage1.ContentType:='text/plain';
  IdMessage1.Body.text:='Hello'; 
  IdMessage1.Subject:=ConvertToWIN1251('salam'); 
  IdMessage1.From.Address:='----------'; //Адрес отправителя
  //IdMessage1.From.Name:=ConvertToWIN1251('User'); //Имя отправителя
  IdMessage1.Recipients.EMailAddresses:='---------';
  IdMessage1.IsEncoded:=true;
  try
    IdSMTP1.Connect();
    IdSMTP1.Send(IdMessage1);
    showmessage('Сообщение отправлено');
  except
    showmessage('Ошибка при отправке сообщения');
  end;
IdSMTP1.Disconnect;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdServerIOHandlerSSLOpenSSL1.SSLOptions.Method :=sslvTLSv1;

 idSMTP1.Host := 'smtp.mail.ru';
  idSMTP1.Port := 25;
  idSMTP1.Username:= '---------';
  idSMTP1.Password:= '-----------';
   IdMessage1.Body.Text := '----------';
    IdMessage1.From.text:= '----------';
IdMessage1.From.Address:='-----------';
  IdMessage1.Recipients.EMailAddresses:='------------';
 IdMessage1.Subject :=  'Test';
     idSMTP1.Authenticate;
    try
      try
        idSMTP1.Connect();
        idSMTP1.Send(idMessage1);

      except
        on E:Exception do
        begin
          ShowMessage('Cannot send E-Mail: ' + E.Message);

        end;
      end;
    finally

  end;

end;

end.

вес код

libeay32.dll и ssleay.dll в папке с проектом

[Stilet]

IdSMTP1.Port:=25;

Для зашифрованного канала если не ошибаюсь нужен другой порт.
Какой - смотри на mail.ru в описании техподдержки. По идее 443 стандартом идет, но нужно уточнять.

[alman12]

везде написано что порт mail.ru 25
ранше в delphi7 порт был 25

вот с mail.ru


Порт — IMAP — 143 (протокол шифрования STARTTLS) или 993 (протокол шифрования SSL/TLS)
POP3 — 995 (протокол шифрования SSL/TLS)
SMTP — 465 (протокол шифрования SSL/TLS).

[Человек_Борща]

везде написано что порт mail.ru 25

А ты не везде читай а конкретно у самого mail.ru.
Для зашифрованного соединения нужен порт 465.

Когда же вы начнете сами чуть соображать? Своё же личное время тратите на ожидание ответов на форуме.

[alman12]

c mail.ru

Порт — IMAP — 143 (протокол шифрования STARTTLS) или 993 (протокол шифрования SSL/TLS)
POP3 — 995 (протокол шифрования SSL/TLS)
SMTP — 465 (протокол шифрования SSL/TLS).

пробовал все не отправляется

в delphi 7 ранше без проблем работаль

не требовалось SSL

[Stilet]

  except
 on e:Exception do
     showmessage('Ошибка при отправке сообщения:'+e.message);
  end;

И текст сообщения сюда.

[alman12]

ничего не пишется