Проблема с отправкой почты в delphi через indy | Программирование | Форум

Автор

Сообщение

webgreck

(1.0)

Сообщения: 51
Страна: Казахстан

21.07.2008 в 21:07

Неполучается отправить почту, пишу прогу в delphi 2007 использую для отправки почты 2 компонента indy (smtp, message)
Вот dfm

Код:

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 286
ClientWidth = 426
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object BitBtn1: TBitBtn

Left = 144

Top = 160

Width = 75

Height = 25

Caption = 'BitBtn1'

TabOrder = 0

OnClick = BitBtn1Click
end
object SMTP: TIdSMTP

Host = 'smtp.mail.ru'

SASLMechanisms = <>

Left = 64

Top = 40
end
object mes: TIdMessage

AttachmentEncoding = 'UUE'

BccList = <>

CCList = <>

Encoding = meDefault

FromList = <

item

end>

Recipients = <>

ReplyTo = <>

ConvertPreamble = True

Left = 232

Top = 72
end
end

А вот обработчик кнопки bitbtn

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
m : TIdMessage;
begin
mes.Create(Form1);
mes.Body.Text := 'Привет';
mes.From.Text := '***';
mes.Subject := 'Тема';
mes.Recipients.EMailAddresses := '***';
mes.IsEncoded := true;

smtp.Connect;
if smtp.Connected = true then showmessage ('Подключено');

smtp.Send(mes);

Помогите плиз, почему не работает данные код ? выдает непонятную ошибку появляется диалоговое окно с красным крестиком внутри и вним ничего не написано.

4VIY

(6.0)

Сообщения: 286
Страна: Украина

21.07.2008 в 21:24

А как на счёт поиска???
Посмотри здесь: http://forum.vingrad.ru/forum/topic-105245/unread-...

4VIY

(6.0)

Сообщения: 286
Страна: Украина

21.07.2008 в 21:28

Хотя сразу говорю, не стоит забывать о "try ... except ... end" для отлова исключений...

DimaBy

(1.0)

Сообщения: 46
Страна: Беларусь

21.07.2008 в 21:36 [Отредактировано: 21.07.2008 в 21:40]

Я надеюсь поля логин/пароль не указаны из соображений безопасности

Код:

IdMessage1.Body.Text := 'Hello world';
IdMessage1.From.Text := секрет';
IdMessage1.Subject := 'Test hello';
IdMessage1.Recipients.EMailAddresses := '***';
IdMessage1.IsEncoded := True;

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'mail.tut.by';
IdSMTP1.Port := 2525;
IdSMTP1.Username := секрет;
IdSMTP1.Password := секрет;
IdSMTP1.Connect;
if IdSMTP1.Authenticate then
begin
IdSMTP1.Send(IdMessage1);
ShowMessage('issended');
end
else
ShowMessage('not sended');

Компоненты не настраивал - просто кинул их на форму

Этот код только что отправил письмо.

webgreck

(1.0)

Сообщения: 51
Страна: Казахстан

22.07.2008 в 09:46 [Отредактировано: 22.07.2008 в 11:16]

Цитата (DimaBy):

Я надеюсь поля логин/пароль не указаны из соображений безопасности

Код:

Компоненты не настраивал - просто кинул их на форму

Этот код только что отправил письмо.

в delphi 2007 нет у idSMTP1 свойства "IdSMTP1.AuthenticationType := atLogin;" есть только idSMTP1.AuthType с 3 параметрами 1-atDefault, 2-atNone, 3-atSASL
ну я поменял строчку "IdSMTP1.AuthenticationType := atLogin;" на "idSMTP1.AuthType := atDefault" внес свое имя пользователя и пароль от почты с gmail.com и выдает ошибку типа я ввел неправельно име пользователя или пароль хотя ввожу 100% правильно, например если почта *** (с паролем 321) то свойство IdSMTP1.Username := '123'; и IdSMTP1.Password := '321';

DimaBy

(1.0)

Сообщения: 46
Страна: Беларусь

22.07.2008 в 19:02

А ты вообще уверен, что твой ящик на gmail предоставляет доступ по smtp?
Насколько я помню, он там отдельно включается.
GMail вообще, насколько я понимаю не особо "любит" пользователей, которые работают с ним через POP/IMAP,SMTP а не через веб-интерфейс. Сужу я об этом уже хотя бы потому, что настроить The bat на GMail - вополнимая, но достаточно геморойная процедура, по сравнению с теми же майл.ру или тут.бай. Вполне возможно что у тбя просто не выставлен доступ по smtp в GMail. Попробуй для начала на мэйл.ру. Влюбом случае - если с твоим сервером не заработал The Bat, не заработает и IdSmtp.

webgreck

(1.0)

Сообщения: 51
Страна: Казахстан

23.07.2008 в 10:37

Цитата (DimaBy):

Через mail.ru тоже не получается пишу host - smtp.mail.ru port - 25 ставлю имя пользователя и пароль и всеравно неотправляется .
А на gmail.com я нашел только протоколы imap и pop а smtp я там не нашел и не знаю как включить.

Если несложно покажите рабочий пример через mail.ru например. плиз..

DimaBy

(1.0)

Сообщения: 46
Страна: Беларусь

23.07.2008 в 11:51

Нет, сейчас времени нет - я скоро в отпуск уезжаю. Так что пока - отлаживай на тут.бай - там регистрация бесплатная.

Автор	Сообщение
webgreck (1.0) Сообщения: 51 Страна: Казахстан	21.07.2008 в 21:07 Неполучается отправить почту, пишу прогу в delphi 2007 использую для отправки почты 2 компонента indy (smtp, message) Вот dfm Код: object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 286 ClientWidth = 426 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object BitBtn1: TBitBtn Left = 144 Top = 160 Width = 75 Height = 25 Caption = 'BitBtn1' TabOrder = 0 OnClick = BitBtn1Click end object SMTP: TIdSMTP Host = 'smtp.mail.ru' SASLMechanisms = <> Left = 64 Top = 40 end object mes: TIdMessage AttachmentEncoding = 'UUE' BccList = <> CCList = <> Encoding = meDefault FromList = < item end> Recipients = <> ReplyTo = <> ConvertPreamble = True Left = 232 Top = 72 end end А вот обработчик кнопки bitbtn Код: procedure TForm1.BitBtn1Click(Sender: TObject); var m : TIdMessage; begin mes.Create(Form1); mes.Body.Text := 'Привет'; mes.From.Text := '*'; mes.Subject := 'Тема'; mes.Recipients.EMailAddresses := '*'; mes.IsEncoded := true; smtp.Connect; if smtp.Connected = true then showmessage ('Подключено'); smtp.Send(mes); Помогите плиз, почему не работает данные код ? выдает непонятную ошибку появляется диалоговое окно с красным крестиком внутри и вним ничего не написано.
4VIY (6.0) Сообщения: 286 Страна: Украина	21.07.2008 в 21:24 А как на счёт поиска??? Посмотри здесь: http://forum.vingrad.ru/forum/topic-105245/unread-...
4VIY (6.0) Сообщения: 286 Страна: Украина	21.07.2008 в 21:28 Хотя сразу говорю, не стоит забывать о "try ... except ... end" для отлова исключений...
DimaBy (1.0) Сообщения: 46 Страна: Беларусь	21.07.2008 в 21:36 [Отредактировано: 21.07.2008 в 21:40] Я надеюсь поля логин/пароль не указаны из соображений безопасности Код: IdMessage1.Body.Text := 'Hello world'; IdMessage1.From.Text := секрет'; IdMessage1.Subject := 'Test hello'; IdMessage1.Recipients.EMailAddresses := '***'; IdMessage1.IsEncoded := True; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'mail.tut.by'; IdSMTP1.Port := 2525; IdSMTP1.Username := секрет; IdSMTP1.Password := секрет; IdSMTP1.Connect; if IdSMTP1.Authenticate then begin IdSMTP1.Send(IdMessage1); ShowMessage('issended'); end else ShowMessage('not sended'); Компоненты не настраивал - просто кинул их на форму Этот код только что отправил письмо.
webgreck (1.0) Сообщения: 51 Страна: Казахстан	22.07.2008 в 09:46 [Отредактировано: 22.07.2008 в 11:16] Цитата (DimaBy): Я надеюсь поля логин/пароль не указаны из соображений безопасности Код: IdMessage1.Body.Text := 'Hello world'; IdMessage1.From.Text := секрет'; IdMessage1.Subject := 'Test hello'; IdMessage1.Recipients.EMailAddresses := '*'; IdMessage1.IsEncoded := True; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'mail.tut.by'; IdSMTP1.Port := 2525; IdSMTP1.Username := секрет; IdSMTP1.Password := секрет; IdSMTP1.Connect; if IdSMTP1.Authenticate then begin IdSMTP1.Send(IdMessage1); ShowMessage('issended'); end else ShowMessage('not sended'); Компоненты не настраивал - просто кинул их на форму Этот код только что отправил письмо. в delphi 2007 нет у idSMTP1 свойства "IdSMTP1.AuthenticationType := atLogin;" есть только idSMTP1.AuthType с 3 параметрами 1-atDefault, 2-atNone, 3-atSASL ну я поменял строчку "IdSMTP1.AuthenticationType := atLogin;" на "idSMTP1.AuthType := atDefault" внес свое имя пользователя и пароль от почты с gmail.com и выдает ошибку типа я ввел неправельно име пользователя или пароль хотя ввожу 100% правильно, например если почта * (с паролем 321) то свойство IdSMTP1.Username := '123'; и IdSMTP1.Password := '321';
DimaBy (1.0) Сообщения: 46 Страна: Беларусь	22.07.2008 в 19:02 А ты вообще уверен, что твой ящик на gmail предоставляет доступ по smtp? Насколько я помню, он там отдельно включается. GMail вообще, насколько я понимаю не особо "любит" пользователей, которые работают с ним через POP/IMAP,SMTP а не через веб-интерфейс. Сужу я об этом уже хотя бы потому, что настроить The bat на GMail - вополнимая, но достаточно геморойная процедура, по сравнению с теми же майл.ру или тут.бай. Вполне возможно что у тбя просто не выставлен доступ по smtp в GMail. Попробуй для начала на мэйл.ру. Влюбом случае - если с твоим сервером не заработал The Bat, не заработает и IdSmtp.
webgreck (1.0) Сообщения: 51 Страна: Казахстан	23.07.2008 в 10:37 Цитата (DimaBy): А ты вообще уверен, что твой ящик на gmail предоставляет доступ по smtp? Насколько я помню, он там отдельно включается. GMail вообще, насколько я понимаю не особо "любит" пользователей, которые работают с ним через POP/IMAP,SMTP а не через веб-интерфейс. Сужу я об этом уже хотя бы потому, что настроить The bat на GMail - вополнимая, но достаточно геморойная процедура, по сравнению с теми же майл.ру или тут.бай. Вполне возможно что у тбя просто не выставлен доступ по smtp в GMail. Попробуй для начала на мэйл.ру. Влюбом случае - если с твоим сервером не заработал The Bat, не заработает и IdSmtp. Через mail.ru тоже не получается пишу host - smtp.mail.ru port - 25 ставлю имя пользователя и пароль и всеравно неотправляется . А на gmail.com я нашел только протоколы imap и pop а smtp я там не нашел и не знаю как включить. Если несложно покажите рабочий пример через mail.ru например. плиз..
DimaBy (1.0) Сообщения: 46 Страна: Беларусь	23.07.2008 в 11:51 Нет, сейчас времени нет - я скоро в отпуск уезжаю. Так что пока - отлаживай на тут.бай - там регистрация бесплатная.