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;
и письмо никуда не отправляется...