Отправить письмо

[Viktor Zull]

На форме есть компонет TMemo и кнопка.
При нажатии на кнопку текст из Memo нужно отправить по e-mail по адресу ...@rambler.ru. Как можно это сделать? (работать должно на любом неизвестном компьютере, имеющем подключение к Internet)

[AiK]

Устанавливай соединение со своим SMTP сервером и отправляй. Делов-то

[Viktor Zull]

Именно так я и делаю. У меня есть компонент idSMT. А в поцедуре написано так:

procedure TForm1.Button1Click(Sender: TObject);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Text := Memo1.Text;
M.From.Text := '';
M.Recipients.Add;
M.Recipients.Items[0].Text := 'xxxx@rambler.ru';
M.Subject := 'Letter';

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'rambler.ru';

IdSMTP1.Username := 'yyyyy@rambler.ru';
IdSMTP1.Password := '*****';

IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
end;

Правильно? Жму на кнопку, вылетает ошибка Connection Closed Gracefully.

Что означают выделенные строки - доступ к ящику, откуда посылается сообщение?

[AiK]

Viktor Zull, хост, вероятно, неправильно задан. Не знаю параметры коннекции именно Рамблера, но думаю, что у них как и у всех - веб-сервер от почтового сервера отделён.

[Viktor Zull]

Ещё один вопрос: обязательно ли связываться со своим ящиком.

[Blood_Magic]

а про pop3.rambler.ru не забыли? без него можете сколько хотите %^&*$* и ничего не получится