Страница 1 из 1

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

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

Добавлено: 26 дек 2005, 20:23
AiK
Устанавливай соединение со своим SMTP сервером и отправляй. Делов-то :)

Добавлено: 27 дек 2005, 11:37
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.

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

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

Добавлено: 28 дек 2005, 09:14
Viktor Zull
Ещё один вопрос: обязательно ли связываться со своим ящиком.

Добавлено: 29 дек 2005, 15:41
Blood_Magic
а про pop3.rambler.ru не забыли? без него можете сколько хотите %^&*$* и ничего не получится :)