Вот недовно решил написать отправку почты, раньше подобным делом занимался, но опыта маловато. Вот процедура отправки почты, которая к моему удивлению раньше работала..

Код

procedure send; var M: TIdMessage; begin M:=TIdMessage.Create(Form1); m.Body.Add('Текст'); m.From.Text:='[email protected]'; //от кого адресс m.Recipients.Add; m.Recipients.Items[0].Text:='[email protected]';  //куда m.Subject:='тема';   form1.IdSMTP1.Host:='smtp.mail.ru';// сервер form1.IdSMTP1.Username:='root';// Логин   root есть всегда (: form1.IdSMTP1.Connect(); if form1.IdSMTP1.Connected then  begin     form1.IdSMTP1.Send(m);     form1.IdSMTP1.Disconnect; end; end;

Помагите разобраться, в чём проблема? Иль опять руки кривые (=

модератор переименнуй тему, я мочты вместо почты написал

Это сообщение отредактировал(а) fuckerok - 18.11.2004, 07:11

Код

IdSMTP1.Host:='smtp.mail.ru';  try    IdSMTP1.Connect(30000); //Подключиться  except    // Обход ошибки некоррекного соединения  end;  if IdSMTP1.Connected then //Если получилось - отправляем  begin    msg:=TIdMessage.Create(IdSMTP1);    msg.Subject:='subj';    msg.Recipients.EMailAddresses:='[email protected]';    msg.From.Address:='[email protected]';    msg.From.Name:='Vasya Pupkin';    msg.Body.Add('Text');    IdSMTP1.Send(msg);    ShowMessage('Письмо отправлено');  end  else //Если не получилось, то ругаемся    ShowMessage('Невозможно установить соединение с сервером!');

А мой код работает у кого нибудь? Ведь у меня работал раньше, просто я думаю это из-за моего провайдера.
Через SMTP сервер провайдера вроде всёв работает, а чере сервер майла не хочет....

Значит адрес from не существует на сервере майла. Адреса, которых нету в списке пользователей майлом не принимаются - антиспам, понимаешь... Пробуй другие адреса from или другой smtp сервер.

Менаю from На свой эфект такой же.... Кусок данных отправляеться, а потом ошибка вылитает....

Самое интересное в том, что раньше всё работалл, да и сейчас всё работает через SMTP сервер моего провайдера... А через Mail.Ru не хочет...
Ну а мой код у кого нить сработал, мне просто интересно узнать.... Если да, то я к провайдеру в кантору с ружьём..

C майл ру сейчас не так просто бороться. Там понаставили фильтров на все, что только можно. Мой код, например полностью рабочий, но на майл ру не шлет. Коннект есть. Отправляет заголовок, а майлру ему и говорит человеческим голосом "да вы, батенька, спамер!" И отправляет гоутунафиг. Берем в руки яндекс почту, переписываем код под smtp аутентификацию и все работает. Главное, чтобы адрес фром совпадал. Но есть ведь еще и имя отправителя и реплиту. А с майлру можно долго долбиться и ничего не выйдет. Перебирать все варианты долго. Он может проверять все, вплоть до имени почтового агента. Побороться с ним конечно можно попробовать, но нужно ли это?
P.S. спамеры все равно шлют почту не через релэй а напрямую по DNS записям.

вот мой код, работает и на mail.ru

Код

//отправка письма procedure MailSend; begin  //Настройка SMTP  SMTP.Host := 'smtp.mail.ru';  SMTP.Port := 25;  //Настройка сообщения (MailMessage)  MailMessage.From.Text := '[email protected]';  MailMessage.Recipients.EMailAddresses := '[email protected]';  MailMessage.Subject := 'сабж';  MailMessage.Body.Text := 'bla bla bla =)';  //отправка почты  try    try      SMTP.Connect(100000);      SMTP.Send(MailMessage);    except on E:Exception do      begin        StatusRichEdit.Lines.Insert(0, 'ОШИБКА: ' + E.Message); //вывод ошибки в RichEdit      end;    end;  finally    if SMTP.Connected then SMTP.Disconnect;  end; end;

Это сообщение отредактировал(а) n0ns3ns3 - 6.12.2004, 00:33

n0ns3ns3
А MailMessage чЕМУ ПРИСВОИТЬ?
Что-то я тормозю

И что такое сабж? Всё понять не могу

Цитата(fuckerok @ 9.12.2004, 08:12)

n0ns3ns3 А MailMessage чЕМУ ПРИСВОИТЬ? Что-то я тормозю  И что такое сабж? Всё понять не могу

MailMessage - это структура типа TidMessage, которая определяется отдельным компонентом TIdMessage, расположенным на Indy Misc.
сабж - от англ subject - тема

Это сообщение отредактировал(а) n0ns3ns3 - 10.12.2004, 13:39

У меня мой код вдруг заработал

У меня все работает без ошибок

Код

//отправка письма procedure MailSend; begin //Настройка SMTP SMTP.Host := 'smtp.mail.ru'; SMTP.Port := 25; //Настройка сообщения (MailMessage) MailMessage.From.Text := '[email protected]'; MailMessage.Recipients.EMailAddresses := '[email protected]'; MailMessage.Subject := 'сабж'; MailMessage.Body.Text := 'bla bla bla =)'; //отправка почты try   try     SMTP.Connect(100000);     SMTP.Send(MailMessage);   except on E:Exception do     begin       StatusRichEdit.Lines.Insert(0, 'ОШИБКА: ' + E.Message); //вывод ошибки в RichEdit     end;   end; finally   if SMTP.Connected then SMTP.Disconnect; end; end;

как присоединить файлы в этом коде?

Код

procedure TForm1.BitBtn1Click(Sender: TObject); var mes:  TIdMessage;  begin   table1.First;       while not table1.Eof do begin       if table1.FieldbyName('Îïåðàòîð').AsString='UMC' then  begin       Tel:=Table1.FieldByName('Íîìåð').AsString;       //Edit7.Text:=Tel;       ConnectInternet;                    end;

[Error] Unit1.pas(162): Undeclared identifier: 'TIdMessage'[Error] Unit1.pas(162): Undeclared identifier: 'TIdMessage'
Добавлено @ 18:47
поскажите плиз почему ошибка

В uses добавь IdMessage

Спасибо добавил, но-
Вылезает еще одна ошибка Access violetion в этой строчке

Код

mes.Body.Text:=Edit1.Text+Edit2.Text+Edit3.Text+Edit4.Text+Edit5.Text+edit6.Text;

вот болеее полный код

Код

procedure ConnectInternet; begin Form1.IdSMTP1.Host:='10.234.12.100'; form1.IdSMTP1.Port:=25; form1.IdSMTP1.Connect; end;

Код

procedure TForm1.BitBtn1Click(Sender: TObject); var mes:  TIdMessage;  begin   table1.First;       while not table1.Eof do begin       if table1.FieldbyName('Оператор').AsString='UMC' then  begin       Tel:=Table1.FieldByName('Номер').AsString;       ConnectInternet;       mes.Recipients.EMailAddresses:=Tel;       mes.Body.Text:=Edit1.Text+Edit2.Text+Edit3.Text+Edit4.Text+Edit5.Text+edit6.Text;       IdSMTP1.Send(mes);  end;

Подскажите в чем проблема? Как надо чтобы зароботало?