послать письмо на почту от...

← →
Addead (2003-11-02 18:21) [0]

Вот проблема:
Соединение модемное.
Задача: послать письмо (текст из Memo1) на почту "Try@rambler.ru" без использования почтовой программы
от лица "From@rambler.ru" с паролем "111".

на форме:

MailMessage: TIdMessage;
Mail: TIdSMTP;

так вот при нажитии на кнопку отправки (при коннекте) пишет "Socket error".
Может что-то заполнено не верно?!
Вот код:
//--------------------------------- begin Mail.Host := "rambler.ru"; Mail.Username := "From@rambler.ru"; Mail.Password := "111"; Mail.AuthenticationType := "atLogin"; Mail.Connect; //тут вот "Socket error" try MailMessage.From.Name := "OMAL"; MailMessage.Subject := "TEST"; MailMessage.Body.SetText (Memo1.Lines.GetText); Application.ProcessMessages; MailMessage.Recipients.EMailAddresses := "Try@rambler.ru"; Mail.Send(MailMessage); finally Mail.Disconnect; end; end; //---------------------------------
Я с Indy только начал разбираться...
Помажите, кто чем...

← →
Addead (2003-11-03 00:24) [1]

ап

← →
Alexey Leonchik (2003-11-03 05:20) [2]

Думаю вот в этой строке ошибка :) не синтаксиса - нет. Просто на Rambler-e нужно почитать - у них SMTP сервер наверно smtp.rambler.ru, а POP3 pop.rambler.ru а когда машина соединяется на 25-й порт, а там такого нет - вот и socket error :))

И еще сейчас почти все SMTP сервера бесплатной почты требуют аутентификацию перед отправкой иначе ЛЮБОЙ с любого хоста сможет почту релеить а это СПАМ, так что скорее всего вам еще и аутентификацию пройти придется :)))

Mail.Host := "rambler.ru";

P.S. Извините, если не помогло - я с виндовозом мало работал

С уважением Алексей Леончик

используя ICS (хотя какая разница) библиотеку, делаю так:
... SmtpClient.Port := ini.ReadString("SMTP","Port","smtp"); SmtpClient.Host := ini.ReadString("SMTP","Host",""); SmtpClient.HdrFrom := ini.ReadString("SMTP","From",""); SmtpClient.HdrTo := ini.ReadString("SMTP","To",""); SmtpClient.HdrSubject := ini.ReadString("SMTP","Subject",""); SmtpClient.RcptName.Add(SmtpClient.HdrTo); SmtpClient.EmailFiles.Add(ArhFileName+".rar"); SmtpClient.Connect; ... procedure TForm1.SmtpClientRequestDone(Sender: TObject; RqType: TSmtpRequest; ErrorCode: Word); begin if ErrorCode <> 0 then SmtpClient.Quit; else case RqType of smtpConnect: SmtpClient.Helo; smtpHelo: SmtpClient.MailFrom; smtpMailFrom: SmtpClient.RcptTo; smtpRcptTo: SmtpClient.Data; smtpData: SmtpClient.Quit; smtpQuit: Application.Terminate; end; end;

послать письмо на почту от... Найти похожие ветки