Форум dkLab и Denwer
Здесь общаются Web-разработчики.
Генеральный спонсор:
Хостинг «Джино»

исходники на дельфях sendmail (KaMPiLeR)
Author Message
KaMPiLeR
Участник форума



Joined: 20 Oct 2003
Posts: 127
Карма: -6
   поощрить/наказать


PostPosted: Fri Jan 28, 2005 8:32 pm (написано за 1 минуту 19 секунд)
   Post subject: исходники на дельфях sendmail
Reply with quote

меняем один ехе и у вас полноценный sendmail.
если у кого нету дельфей - выложу ехе-шник.
Code (Delphi): скопировать код в буфер обмена
{$APPTYPE CONSOLE}
Program SendMail;
Uses
  SysUtils,
  IdMessage, IdSMTP;
Var
  sFrom   ,
  sTo     ,
  sCc     ,
  sBbc    ,
  sSubject,
  ss, s:ansistring;
  MESS: TIdMessage;
  SMTP: TIdSMTP;
Begin

  while(true)do
  begin
    ReadLn(s);
    ss:=uppercase(s);
    if(copy(ss,1,5)='FROM:')    then sFrom    := copy(s,6,length(s)) else
    if(copy(ss,1,3)='TO:')      then sTo      := copy(s,4,length(s)) else
    if(copy(ss,1,3)='CC:')      then sCc      := copy(s,4,length(s)) else
    if(copy(ss,1,3)='BBC:')     then sBbc     := copy(s,4,length(s)) else
    if(copy(ss,1,8)='SUBJECT:') then sSubject := copy(s,9,length(s)) else
       break;
  end;

  ss:=s+#$0D+#$0A;
  while(true)do
  begin
    ReadLn(s);
    ss:=ss+s+#$0D+#$0A;
    if(s='')then break;
  end;

  MESS:=TIdMessage.Create(nil);
  MESS.Body.Add(ss);
  MESS.Recipients.EMailAddresses := sTo;
  MESS.CCList.EMailAddresses     := sCc;  {CC}
  MESS.BccList.EMailAddresses    := sBbc; {BBC}

  MESS.Subject                   := sSubject;
  MESS.From.Text                 := sFrom;

  SMTP:=TIdSMTP.Create(nil);
  SMTP.AuthenticationType        := atNone;
  SMTP.Host                      := 'smtp.mail.ru';
  SMTP.Port                      :=  25;
  SMTP.UserID                    := 'main';
  SMTP.Password                  := '';

  SMTP.Connect;
  try
    SMTP.Send(MESS);
  finally
    SMTP.Disconnect;
  end;

  try
    SMTP.Free;
    MESS.Free;
  except;
  end;
End.
Back to top
View user's profile Send private message
Константин Жинько [tIT]
Сотрудник «Лаборатории»



Joined: 12 Jun 2004
Posts: 2264
Карма: 106
   поощрить/наказать

Location: Москва

PostPosted: Fri Jan 28, 2005 11:16 pm (спустя 2 часа 44 минуты; написано за 2 минуты 39 секунд)
   Post subject:
Reply with quote

Гхм... А на фига он нужен?
Для отладки не фига почту гонять -- лишний трафик, -- а заглушка для sendmail в Денвере есть...
Ежели для дела, то IIS... Там все для этого есть...
К тому же на дельфях...*(
Впрочем +1 за старание =)
Back to top
View user's profile Send private message
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 412
   поощрить/наказать


PostPosted: Sat Jan 29, 2005 2:25 am (спустя 3 часа 8 минут; написано за 37 секунд)
   Post subject:
Reply with quote

KaMPiLeR wrote:
SMTP.Host := 'smtp.mail.ru';
А это еще что?
Уж сколько раз твердили миру: ну нельзя через mail.ru посылать письма никуда дальше mail.ru же...
Back to top
View user's profile Send private message Send e-mail
Константин Жинько [tIT]
Сотрудник «Лаборатории»



Joined: 12 Jun 2004
Posts: 2264
Карма: 106
   поощрить/наказать

Location: Москва

PostPosted: Sat Jan 29, 2005 7:34 pm (спустя 17 часов 8 минут; написано за 19 секунд)
   Post subject:
Reply with quote

Дмитрий Котеров wrote:
Уж сколько раз твердили миру: ну нельзя через mail.ru посылать письма никуда дальше mail.ru же...
Дык это ж для отладки (-;
Back to top
View user's profile Send private message
KaMPiLeR
Участник форума



Joined: 20 Oct 2003
Posts: 127
Карма: -6
   поощрить/наказать


PostPosted: Mon Jan 31, 2005 9:14 am (спустя 1 день 13 часов 39 минут)
   Post subject:
Reply with quote

При желании можно приделать к исходнику еще вкусностей (мне достаточно).
Просто возникла необходимость на интранетовском денвере рассылать уведомления по почте - ну не ставить же для этого почтовый сервер.
Дмитрий Котеров wrote:
Уж сколько раз твердили миру: ну нельзя через mail.ru посылать письма никуда дальше mail.ru же...
не буду же я свой хост прописывать :)
Back to top
View user's profile Send private message
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 412
   поощрить/наказать


PostPosted: Mon Jan 31, 2005 7:42 pm (спустя 10 часов 28 минут; написано за 48 секунд)
   Post subject:
Reply with quote

На самом деле, можно сделать DNS-запрос, выдрать оттуда MX-поля и послать на них. Но - такой sendmail уже написан, если не ошибаюсь, где-то тут проскакивала ссылка.
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic All times are GMT + 3 Hours
Page 1 of 1    Email to a Friend.
You cannot post new topics in this forum. You cannot reply to topics in this forum. You cannot edit your posts in this forum. You cannot delete your posts in this forum. You cannot vote in polls in this forum. You cannot attach files in this forum. You can download files in this forum.
XML