Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.30;
Скачать: CL | DM;

Вниз

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

 
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. Извините, если не помогло - я с виндовозом мало работал

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


 
SkyN ©   (2003-11-03 10:31) [3]

используя 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;



Страницы: 1 вся ветка

Текущий архив: 2003.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
3-99432
new
2003-12-08 08:36
2003.12.30
Как сдлать выпадающий список (combobox ) ( Связать с таблицей)


4-99818
volser
2003-11-02 13:50
2003.12.30
Как отловить нажати мыши над системными часами?


14-99739
Kucher
2003-12-09 11:38
2003.12.30
Посоветуйте хорошее интерфейсное решение


7-99800
Talla2k
2003-10-23 01:49
2003.12.30
тормоза потока


3-99469
konst_bsh
2003-12-05 09:04
2003.12.30
Да, плачевная ситуация с компонентами FIBPlus.