Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Отпрвка почты idSMTP помогите разобраться

Автор: fuckerok 18.11.2004, 07:08

Вот недовно решил написать отправку почты, раньше подобным делом занимался, но опыта маловато. Вот процедура отправки почты, которая к моему удивлению раньше работала.. Код procedure send; var M: TIdMessage; begin M:=TIdMessage.Create(Form1); m.Body.Add('Текст'); m.From.Text:='lamer@mail.ru'; //от кого адресс m.Recipients.Add; m.Recipients.Items[0].Text:='hacker@mail.ru';  //куда 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; Помагите разобраться, в чём проблема? Иль опять руки кривые (= модератор переименнуй тему, я мочты вместо почты написал

Автор: Snowy 18.11.2004, 13:31

Код  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:='hacker@mail.ru';    msg.From.Address:='lamer@mail.ru';    msg.From.Name:='Vasya Pupkin';    msg.Body.Add('Text');    IdSMTP1.Send(msg);    ShowMessage('Письмо отправлено');  end  else //Если не получилось, то ругаемся    ShowMessage('Невозможно установить соединение с сервером!');

Автор: fuckerok 19.11.2004, 07:50

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

Автор: Snowy 19.11.2004, 12:46

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

Автор: fuckerok 20.11.2004, 07:04

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

Автор: Snowy 26.11.2004, 10:47

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

Автор: n0ns3ns3 6.12.2004, 00:30

вот мой код, работает и на mail.ru Код //отправка письма procedure MailSend; begin  //Настройка SMTP  SMTP.Host := 'smtp.mail.ru';  SMTP.Port := 25;  //Настройка сообщения (MailMessage)  MailMessage.From.Text := 'mail_from@mail.ru';  MailMessage.Recipients.EMailAddresses := 'mail_to@mail.ru';  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;

Автор: fuckerok 9.12.2004, 08:12

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

Автор: n0ns3ns3 10.12.2004, 13:37

Цитата(fuckerok @ 9.12.2004, 08:12) n0ns3ns3 А MailMessage чЕМУ ПРИСВОИТЬ? Что-то я тормозю  И что такое сабж? Всё понять не могу  MailMessage - это структура типа TidMessage, которая определяется отдельным компонентом TIdMessage, расположенным на Indy Misc. сабж - от англ subject - тема

Автор: fuckerok 14.12.2004, 08:40

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

Автор: Akella 5.1.2005, 12:29

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

Автор: Akella 17.2.2005, 12:57

Код //отправка письма procedure MailSend; begin //Настройка SMTP SMTP.Host := 'smtp.mail.ru'; SMTP.Port := 25; //Настройка сообщения (MailMessage) MailMessage.From.Text := 'mail_from@mail.ru'; MailMessage.Recipients.EMailAddresses := 'mail_to@mail.ru'; 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; как присоединить файлы в этом коде?

Автор: Berliner 14.10.2005, 18:43

Код 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 поскажите плиз почему ошибка

Автор: Snowy 14.10.2005, 21:33

В uses добавь IdMessage

Автор: Berliner 17.10.2005, 10:26

Спасибо добавил, но- Вылезает еще одна ошибка 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; Подскажите в чем проблема? Как надо чтобы зароботало?

Автор: _hunter 19.10.2005, 10:34

значит mes.Body не созданно ( под него не выделена память ). читай справку как его создавать. возможно как-то так: mes.Body = TBody.Create()

Автор: Berliner 19.10.2005, 11:41

Неполучилось у меняяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя надо дописать программку

Автор: _hunter 19.10.2005, 12:29

что не получилось? в справку заглянуть?.. это плохл...

Автор: Guest 19.10.2005, 12:44

С правке по IdMessage ничего нет

Автор: _hunter 19.10.2005, 12:51

в делфийской может и нет -- но кто мешает в официальную глянуть? + ладно, справки нет, но поискать по форуму что мешает? ++ даже искать, особо, не нужно -- достаточн оглянуть на второй пост в этой теме...

Автор: Гость_Berliner 19.10.2005, 13:40

Цитата нужно -- достаточн оглянуть на второй пост в этой теме...  Ok Спасиб

Автор: Berliner 24.10.2005, 13:32

такая ситуация: интересно что на ukr.net письма не доходят А на mail.yahoo.com доходят только ложаться в спамерский ящик (bulk mail) что єто может біть и на webmail.co.za -письма не доходят я думаю єто связано со спам защитой. Код begin       if table1.FieldbyName('Оператор').AsString='UMC' then  begin      (* procedure ConnectInternet;        begin         Form1.IdSMTP1.Host:='10.234.12.100';         form1.IdSMTP1.Port:=25;         form1.IdSMTP1.Connect;        end;  *)       mes:=TIdMessage.Create(IdSMTP1);       Tel:=Table1.FieldByName('Фамилия').AsString;       mes.From.Name:='ff';       mes.From.Address:='viktor@mail.ru';       mes.Recipients.EMailAddresses:=имя@ukr.net          mes.Body.Text:=Edit1.Text+Edit2.Text+Edit3.Text+Edit4.Text+Edit5.Text+edit6.Text;       IdSMTP1.Send(mes);  end; Может кто нить знает как війьти из єтой ситуации

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)