[lxa85]

camope3, проект, результаты трассировки, краткие входные/выходные данные.
Отлаживать "за глаза" как то не хочется.

[camope3]

lxa85, результаты трассировки:

Код:

Status: Disconnected. 
Status: Disconnecting. 
Status: Encoding attachment 
Status: Encoding text 
Status: Connected. 
Status: Connecting to 94.100.177.1. 
Status: Resolving hostname smtp.mail.ru. 
Status: Файл успешно отправлен

данные:

Код:

procedure TfEmail.Button1Click(Sender: TObject);
begin
  StatusMemo.Clear;

  //установки SMTP
  SMTP.Username := fSetup.UserEdit.Text;
  SMTP.Password := fSetup.PassEdit.Text;

  SMTP.Host := fSetup.SmtpEdit.Text;
  SMTP.Port := StrToInt(fSetup.PortSmtpEdit.Text);

  //установки сообщения
  MailMessage.CharSet:='koi8-r'; // для корректности русских букв
  MailMessage.From.Address := FromEdit.Text;
  MailMessage.Recipients.EMailAddresses := ToEdit.Text;

  MailMessage.Subject := TemaEdit.Text;
  MailMessage.Body.Text := TextMemo.Text;

  if FileExists(FileEdit.Text) then
    TIdAttachmentFile.Create(MailMessage.MessageParts, FileEdit.Text);

  //отправка письма
  try
    try
      SMTP.Connect;
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;