не коннектится к почтовомоу серверу

← →
Quattro © (2007-04-20 15:21) [0]

добрый день...подскажите, пожалуйста, почему программа не зочет соединятся с mail.ru?
procedure TForm1.Button1Click(Sender: TObject); begin SMTP.Host:= Edit3.Text; // указываю сайт SMTP.Port:= 25; // 25 порт исп. для отправки почты // далее установка параметров авторизации SMTP.Username:= Edit4.Text; SMTP.Password:= Edit5.Text; SMTP.AuthType:=atDefault; SMTP.Connect; //заполнение записи Mes Mes.From.User:= Edit4.Text; Mes.Recipients.EMailAddresses:= Edit1.Text; Mes.Subject:= Edit2.Text; Mes.Body.Text:= Memo1.Text; SMTP.Send(Mes); SMTP.Disconnect; end;

← →
Megabyte © (2007-04-20 15:44) [1]

> SMTP.Host:= Edit3.Text; // указываю сайт

Что-что ты указываешь?

И вообще, телепатов нет, чего у тебя там за значения в Эдитах...

← →
iXT © (2007-04-20 15:44) [2]

> SMTP.Host:= Edit3.Text; // указываю сайт

И чего ты указываешь тут?

← →
Quattro © (2007-04-20 15:58) [3]

ну типа mail.ru пишу :)..не так?:)
SMTP.Host:= mail.ru;// указываю сайт SMTP.Port:= 25; // 25 порт исп. для отправки почты // далее установка параметров авторизации SMTP.Username:= qwerty; SMTP.Password:= ytrewq; SMTP.AuthType:=atDefault; SMTP.Connect; //заполнение записи Mes Mes.From.User:= Edit4.Text; Mes.Recipients.EMailAddresses:= Edit1.Text; Mes.Subject:= Edit2.Text; Mes.Body.Text:= Memo1.Text; SMTP.Send(Mes); SMTP.Disconnect; end;
не правильно?

← →
iXT © (2007-04-20 16:05) [4]

> SMTP.Host:= mail.ru;// указываю сайт

Не так.
Читать там: http://mail.ru

← →
ppcumax © (2007-04-20 16:05) [5]

нет, если не ошибаюсь надо smtp.mail.ru или pop3.mail.ru

← →
iXT © (2007-04-20 16:21) [6]

"Не верный" ответ, хотя в большенстве случаев будет работать.

← →
Quattro © (2007-04-20 17:15) [7]

блин..почему не работает то?? никак не могу понять
unit Ha1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdBaseComponent, IdMessage, StdCtrls, IdAntiFreezeBase, IdAntiFreeze; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Memo1: TMemo; Button1: TButton; Mes: TIdMessage; SMTP: TIdSMTP; IdAntiFreeze1: TIdAntiFreeze; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin SMTP.Host:= "smtp.Mail.ru"; // указываю сайт SMTP.Port:= 25; // 25 порт исп. для отправки почты // далее установка параметров авторизации SMTP.Username:= Edit4.Text; SMTP.Password:= Edit5.Text; SMTP.AuthType:=atDefault; //заполнение записи Mes Mes.From.Name:= Edit2.Text; Mes.From.User:= Edit4.Text; Mes.Recipients.EMailAddresses:= Edit1.Text; Mes.Subject:= Edit2.Text; Mes.Body.Text:= Memo1.Text; Beep; try SMTP.Connect; try SMTP.Send(Mes); beep; finally SMTP.Disconnect; end; except on E:Exception do ShowMessage(E.Message); end; end; end.

← →
ByakaBuka (2007-04-20 17:20) [8]

1. указывай IP (не нужен будет DNS)
2.
SMTP.Username:= Edit4.Text;
SMTP.Password:= Edit5.Text;
????????
3.
Что есть SMTP?
4. Где и что не работает конкретно

допустим ящик qwerty@mail.ru и пароль rtyqwe
SMTP.Username:=qwerty;

SMTP.Password:= rtyqwe;

SMTP - компонент TIdSMTP.

после нажатия кнопки форма на некоторое время замораживается, а затем вылетает ошибка 1) Soket Error #10054 Conection reset by peer. либо 2) IdSMTPReply Error..причем ничего не меняю в коде...ошибки 1 и 2 выскакивают случайно..либо 1 либо 2...

telnet
open IP 25
Чего получается?

:)

> но в них я соображаю ещё меньше

Это в чем???

выполнить (cmd для NT, command для 9x)
в командной строке пишешь
telnet
дальше
open smtp.mail.ru 25

не коннектится к почтовомоу серверу Найти похожие ветки