Показать сообщение отдельно
  #6  
Старый 19.10.2018, 07:40
Gakuro Gakuro вне форума
Прохожий
 
Регистрация: 18.01.2012
Адрес: о. Сахалин
Сообщения: 34
Версия Delphi: Delphi 7
Репутация: 10
Печаль новый код

Imikle, подскажите пожауста, в чём ошибка.
вот код, но при запуске выдаёт ошибку по адресу 00..08 (ящики mail.ru существуют):
// наверно так (тег CODE):
Код:
procedure TForm1.MyWebSendToEmail(sendText:String;{текст сообщения}
                                          sendSubject:String='Hi';   {тема сообщения}
                                          sendEmail:String='xxx@mail.ru'); {имя ящика}
var
  aMsg:TIdMessage;
begin
  // соединяемся с сервером:
  IdSMTP1.Port:=25; {используем 25й порт для соединения с SMTP сервером}
  IdSMTP1.Host:='smtp.mail.ru'; {URL сервера mail.ru}
  IdSMTP1.AuthenticationType:=atNone; {без авторизации на сервере}
  IdSMTP1.Connect; //(5000); {время ожидания ответа от сервера (милисекунды)}

  // для исправления бага на русский шрифт меняем таблицу (UTF8Encode):
  aMsg.CharSet:='UTF-8'; {русифицируем}

  aMsg.Recipients.EMailAddresses:=sendEmail; {имя ящика, входной параметр}
  aMsg.Subject:=UTF8Encode(sendSubject); {тема сообщения, входной параметр}
  aMsg.Body.Text:=UTF8Encode(sendText);  {текст сообщения, входной параметр}
  aMsg.Date:=Now; {дата отправки письма}

  aMsg.From.Address:='xxx1@mail.ru'; {Email отправителя}
  aMsg.From.Name:='User'; {имя отправителя}
  if IdSMTP1.Connected then {если соединились:}
  begin
    IdSMTP1.Send(aMsg); {отправляем письмо}
    IdSMTP1.Disconnect; {разрываем соединение с сервером}
  end;
end;
и письмо никуда не отправляется...
Ответить с цитированием