|
#1
|
|||
|
|||
Mail
Есть код для отправки письма
Цитата:
При попытки отправить письмо вылетает ошибка Socket Error #10061Connection refused. В чем возможна проблема никак не пойму! |
#2
|
|||
|
|||
Код:
var M: TIdMessage; begin M := TIdMessage.Create(Form1); M.Body.Add('Текст 1'); M.Body.Add('текст 2'); M.From.Text := '"Тема'; M.Recipients.Add; M.Recipients.Items[0].Text := '"11'; M.Subject := 'Объект'; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'smtp-хост'; IdSMTP1.Username := 'мыло"мыло.ру; IdSMTP1.Password := 'пасс к мылу'; IdSMTP1.Connect(); if IdSMTP1.Connected then begin IdSMTP1.Send(M); end; IdSMTP1.Disconnect; end; П.С. Это процедура при нажатии на кнопку. Последний раз редактировалось Admin, 26.09.2008 в 19:44. |
#3
|
||||
|
||||
> IdSMTP1.Authenticate;
Че то не нравится мне эта строка Правильно указывай пару логин-пароль, при этом логин - это полный адрес твоего мыла. "От кого" - это тоже адрес твоего мыла. Правильно укажи SMTP сервер. |
#4
|
|||
|
|||
Попробывал код, вввел все точно, проверил несколько раз пороль и адрес, все правильно, хост мэйла на сколько мне известно smtp.mail.ru, его тоже ввел, то есть вот какой код получился.
Код:
var M: TIdMessage; begin M := TIdMessage.Create(Mail); M.Body.Add('Текст 1'); M.Body.Add('текст 2'); M.From.Text := 'Тема'; M.Recipients.Add; M.Recipients.Items[0].Text := 'Cshulz@yandex.ru'; M.Subject := 'Объект'; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'smtp.mail.ru'; IdSMTP1.Username := 'Cshulz88@mail.ru'; IdSMTP1.Password := '***'; IdSMTP1.Connect(); if IdSMTP1.Connected then begin IdSMTP1.Send(M); end; IdSMTP1.Disconnect; end; Но сразу после строки IdSMTP1.Connect(); вылетает следующая ошибка: Syntactically invalid HELO argument(s) '. С каким аргументом он не согласен? Никак не пойму. |