[Sanek_ntsk]

Как отправить письмо на электронную почту?

[lmikle]

Смотря что тебе надо:
1. Из клиента:
а) просто ShellExecute(...,PChar('mailto:address@server.ru') ,...);
б) сформировав тело, прицепив файлы и т.д. - SimpleMAPI
2. Полностью сам - качай демо по Indy (www.indyproject.org) с прямой доставкой или просто SMTP и вперед.

[Sanek_ntsk]

есть код:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='win.mail.ru';
IdSMTP1.Username:='sanek-ntsk';
IdSMTP1.Connect;
if IdSMTP1.Connected=true then
label4.Caption:='Соединено';
end;

Но почему то после нажатия кнопки прога зависает секунд на 10 и потом вылазиет ошибка

[lmikle]

Ну а сам ты как думаешь?
Ты уверен, что по этому адресу вообще есть почтовый сервер?
Не считая того, что некоторые СМТП требуют авторизации.

Но скорее всего у тебя вылетает Time Out, т.е. по этому адресу нету почтового сервера или он живет на нестандартном порту.

[Sanek_ntsk]

ну что мне тогда надо писать в хосте, если у меня почта на мейле?

[Ozerich]

smtp.mail.ru

[Sanek_ntsk]

Ещё один вопрос. в delphiworld нашёл статью, там код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with NMSMTP1 do
  begin
    Host := 'smtp.mailserver.com';
    UserID := '___Nikolay';
    Connect;

    PostMessage.FromAddress := 'DelphiWorld@mail.ru';
    PostMessage.ToAddress.Text := 'bestprogramming@mail.ru';
    PostMessage.Body.Text := 'Текст письма';
    PostMessage.Subject := 'Тема письма';
    SendMail;
  end;
end;

Я нашёл этот компонент, ввёл данные в поле host и user, запускаю - всё нормально. Но почему то когда я хочу написать код для отправки (NMSMTP1.PostMessage.FromAddress, NMSMTP1.PostMessage.ToAddress.Text и т.д.) у меня не вылазиет слово PostMessage. Если что, то у меня делфи 2007, компонент IdSMTP.
Вот картинка
http://avoreg.ru/v.php?id=da52f99ca4...f7230beae62953

[Ozerich]

Ну пусть не вылазит.
Вводи просто без подсказок.а если после запуска выдаст ошибку что не знает PostMessage то компонент левый

[Кодер]

Да вы что можно проще..

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='win.mail.ru';
IdSMTP1.Username:='sanek-ntsk';
IdSMTP1.Connect;
if IdSMTP1.Connected=true then
label4.Caption:='Соединено';
end;

так как сервер требует авторизации укажи еще и пароль к пользователю. И еще тело сообщения и тема тоже нужны)

[Sanek_ntsk]

В Delphi 7 и 2007 писал от руки:

IdSMTP1.postmessage...

при компиляции и в 7 и в 2007 версиях выдаёт ошибку о том, что не знает этих слов.

[Sanek_ntsk]

ещё пробовал вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
host:='smtp.'+combobox1.Text;
from:=edit1.Text+'@'+combobox1.Text;
if IdSMTP1.Connected=true then
   IdSMTP1.Disconnect;
   IdSMTP1.Host:=host;
   IdSMTP1.Username:=edit1.Text;
   IdSMTP1.Password:=edit2.Text;
   IdSMTP1.Connect;
   if IdSMTP1.Connected then begin
      label4.Caption:='Состояние: Готово';
      edit3.Enabled:=true;
      edit4.Enabled:=true;
      memo1.Enabled:=true;
      label5.Enabled:=true;
      label6.Enabled:=true;
      label7.Enabled:=true;
      button2.Enabled:=true;
   end
   else
      label4.Caption:='Состояние: Ошибка';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.QuickSend(host,edit4.Text,edit3.Text,from,memo1.Text);
end;

но после нажатия кнопки2 выдаётся ошибка, а авторизация проходит успешно

[Ozerich]

значит такого метода нет в компоненте.Поищи другие методы для отправки почты.

[Кодер]

SMTP.Send(Msg)

Msg - компонент сообщения

[Sanek_ntsk]

Разобрался. Теперь возник ещё пара вопросов. Вот код

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if IdSMTP1.Connected then
   IdSMTP1.Disconnect;
   IdSMTP1.Host:='smtp.'+combobox1.Text;
   IdSMTP1.Username:=edit1.Text;
   IdSMTP1.Password:=edit2.Text;
   IdSMTP1.Connect;
   if IdSMTP1.Authenticate=true then begin
      label4.Caption:='Состояние: Готово';
      edit3.Enabled:=true;
      edit4.Enabled:=true;
      memo1.Enabled:=true;
      label5.Enabled:=true;
      label6.Enabled:=true;
      label7.Enabled:=true;
      button2.Enabled:=true;
   end
   else
      label4.Caption:='Ошибка в логине или в пароле';
end;

1. Почему при неправильном вводе логине или пароле вылазиет ошибка, а не label4.Caption:='Ошибка в логине или в пароле'?
2. После первой авторизации второй раз авторизироваться нельзя. Почему?
Помогите пожалуйста. Заранее спасибо.

[Кодер]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if IdSMTP1.Connected then
 begin
 IdSMTP1.Disconnect;
 IdSMTP1.Host:='smtp.'+combobox1.Text;
 IdSMTP1.Username:=edit1.Text;
 IdSMTP1.Password:=edit2.Text;
 IdSMTP1.Connect;
 if IdSMTP1.Authenticate=true then begin
 begin
  label4.Caption:='Состояние: Готово';
  edit3.Enabled:=true;
  edit4.Enabled:=true;
  memo1.Enabled:=true;
  label5.Enabled:=true;
  label6.Enabled:=true;
  label7.Enabled:=true;
  button2.Enabled:=true;
 end
 else
 label4.caption:='Состояни: НеГотово';
end
else
label4.Caption:='Ошибка в логине или в пароле';
end;

Вот так попробуй, хотя я писал прямо здесь, могу и ошибаться