Email Client

← →
slaga © (2005-08-29 18:16) [0]

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

← →
slaga © (2005-08-29 18:29) [1]

у меня при конекте 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
---------------------------

Держи
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 сделать можна

Email Client Найти похожие ветки