Главная страница
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.017 c
1-99647
AndreySoft
2003-12-16 01:12
2003.12.30
TPanel не такой как TEdit...


3-99448
iKS
2003-12-05 19:49
2003.12.30
Запрос из нескольких БД


14-99718
VID
2003-12-08 14:37
2003.12.30
Опрос: Кто активно использует билайн GPRS-INTERNET


11-99514
xela777
2002-07-07 23:55
2003.12.30
работа с датами в delphi 6


6-99668
Копосов Н.В.
2003-11-01 14:49
2003.12.30
socket