Hola muchachos, vine a revivir este fantasma, esto mismo me pasa a mi,
y eso mismo que el amigo kapcomx queria hacer tambien me gustaria hacerlo,
capturar la excepcion y en vez que salga ese error en ingles, aparezca algo que yo coloque
ejemplo mi codigo de envio:
Código Delphi
[-]
procedure TPantallaPrincipal.EnviarMensaje(host:string;nombre:string;password:string;port:integer;desde:string ;hasta:string;asunto:string;cuerpo:string;adjunto:string);
Var
Adjuntar:TIdAttachmentFile;
begin
Adjuntar:= nil;
IdMessage1.Clear;
idMessage1.FromList.EMailAddresses := Desde;
idMessage1.Recipients.EMailAddresses := Hasta;
idMessage1.Subject := Asunto;
idMessage1.Body.Add(Cuerpo);
idSMTP1.Username := Nombre;
idSMTP1.Password := Password;
if Adjunto <> '' then
begin
if FileExists(Adjunto) then
Adjuntar:=TIdAttachmentFile.Create(idMessage1.MessageParts, Adjunto);
Adjuntar.DisplayName := Adjunto;
Adjuntar.FileName := Adjunto;
end;
if idSMTP1.Connected then
begin
idSMTP1.Disconnect;
idSMTP1.Connect;
end
else
begin
idSMTP1.Connect;
end;
try
idSMTP1.Send(IdMessage1);
ShowMessage('Mensaje enviado exitosamente!');
except
ShowMessage('Error al enviar mensaje!'); end;
if Assigned(Adjuntar) then
begin
Adjuntar.Free;
Adjuntar:= nil;
end;
ENd;
Mas especificamente aqui:
Código Delphi
[-]
try
idSMTP1.Send(IdMessage1);
ShowMessage('Mensaje enviado exitosamente!');
except
ShowMessage('Error al enviar mensaje!'); end;
que creen que pueda ser?
Saludos