| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Email Client

slaga ©   (2005-08-29 18:16:00) 

Привет, помогите плз., нужен срочно пример простенького Email Client'а, может у кого есть заготовки ?

---

ORMADA   (2005-08-30 08:08:00) [1]

Держи

program SendMail;
{$APPTYPE CONSOLE}
uses
 IdMessage, IdSMTP, SysUtils;
var
 M: TIdMessage;
 SMTP: TIdSMTP;
 x: TIdAttachment;
begin
{
структура сообщения
1 От кого
2 Кому
3 Тема
4 Тело
5 Хост (mail.ru)
6 UserName
7 UserPass
}
 if ParamCount < 7 then
 begin
   writeln('Message Structure');
   writeln('1 From <x@mail.ru>');
   writeln('2 To');
   writeln('3 Subject');
   writeln('4 Body');
   writeln('5 Host (mail.ru-194.67.23.111)');
   writeln('6 UserName');
   writeln('7 UserPass');
   Exit;
 end;
 try
   ///x.FileName := 'c:\autoexec.bat';
   //m.MessageParts.Insert[1];
   M := TIdMessage.Create(nil);
   M.From.Text := Paramstr(1); //отправитель
   M.Recipients.Add;
   M.Recipients.Items[0].Text := Paramstr(2); //Получатель
   M.Subject := Paramstr(3); //Тема письма
   M.Body.Add(Paramstr(4));

   SMTP := TIdSMTP.Create(nil);
   SMTP.AuthenticationType := atLogin;
   SMTP.Host := Paramstr(5); // mail.ru - 194.67.23.111
   SMTP.Username := Paramstr(6); // в формате usermane@mail.ru
   SMTP.Password := Paramstr(7);
   try
     SMTP.Connect;
     if SMTP.Connected then
     begin
       SMTP.Send(M);
       SMTP.Disconnect;
       writeln('message send!');
     end;
   except
     writeln('cant conneted to server-> ' + Exception(ExceptObject).Message);
   end;
 finally
   FreeAndNil(M);
   FreeAndNil(SMTP);
 end;
end.

234 кб многовато конечно но меньшенаверно только на KOL сделать можна

---

slaga   (2005-08-29 18:29:00) [2]

у меня при конекте SMTP выдает вот такое вот сообщение
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIdSocketError with message 'Socket Error # 10053
Software caused connection abort.'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help  
---------------------------

---

Наверх