migueilichenco
27-08-2003, 20:43:38
hola a todos
bueno e escrito este pequeño codigo por que queria hace un servidor y un cliente en 1 de smtp
-----------------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
begin
if not SMTP.Connected then SMTP.Connect;
SMTP.Send(mensaje);
SMTP.Disconnect;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
tcpserver1.Open;
tcpclient3.Open
end;
-----------------------------------------------
e colocado un un componente smtp server u un tcpserver para dejar el puerto a la escucha pero cuando quier mandar un mail me sale este mensaje
connection Closed Gracefully
que puedo hacer para poder enviar el mail
gracias de antemano
bueno e escrito este pequeño codigo por que queria hace un servidor y un cliente en 1 de smtp
-----------------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
begin
if not SMTP.Connected then SMTP.Connect;
SMTP.Send(mensaje);
SMTP.Disconnect;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
tcpserver1.Open;
tcpclient3.Open
end;
-----------------------------------------------
e colocado un un componente smtp server u un tcpserver para dejar el puerto a la escucha pero cuando quier mandar un mail me sale este mensaje
connection Closed Gracefully
que puedo hacer para poder enviar el mail
gracias de antemano