Hola buenas tardes !
Tengo un problema al enviar correo electrónico usando los componentes de Indy SMTP de XE3.
Desde mi computadora, ya sea debugeando desde el IDE o corriendo el ejecutable directamente, no tengo ningún problema. El correo se envía y sin errores en ambos casos.
Pero desde computadoras en 2 clientes distintos (ejecutando el exe), casi instantáneamente al intentar enviar tira el error de "CONNECTION CLOSED GRACEFULLY" y no se envia nada.
No entiendo porque desde mi PC no hay problema y desde otras si. Todas las PCs corren en Windows 10.
Dejo el codigo para que lo vean, es bien simple.
Código:
procedure TfrmConfiguracion.btnTestEMail2Click(Sender: TObject);
begin
mem.Lines.Add(formatdatetime('dd/mm/yyyy HH:nn:ss:zzz',now)+' '+'test mail 2: entró');
with frmPrincipalMenu do
begin
idmessage1.From.Name:='KS NOTIFICACIONES';
idmessage1.From.Address:='[email protected]';
idmessage1.Recipients.EMailAddresses:=edtEmailTest.text;
idmessage1.Subject:='Test de CORREO ELECTRONICO - '+formatdatetime('dd/mm/yyyy HH:nn:ss',now);
idmessage1.Body.Text:='Test de CORREO ELECTRONICO'+#13+'KS NOTIFICACIONES'+#13+formatdatetime('dd/mm/yyyy HH:nn:ss',now);
mem.Lines.Add(formatdatetime('dd/mm/yyyy HH:nn:ss:zzz',now)+' '+'test mail 2: mensaje armado');
idsmtp1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
idsmtp1.UseTLS:=utUseExplicitTLS;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvtlsv1_2;
idsmtp1.Host:=vEma.Host;
idsmtp1.Port:=vEma.Puerto;
idsmtp1.Username:=vEma.Usuario;
idsmtp1.Password:=vEma.Contrasena;
mem.Lines.Add(formatdatetime('dd/mm/yyyy HH:nn:ss:zzz',now)+' '+'test mail 2: antes conectar');
idsmtp1.Connect;
mem.Lines.Add(formatdatetime('dd/mm/yyyy HH:nn:ss:zzz',now)+' '+'test mail 2: antes enviar');
idsmtp1.Send(idmessage1);
mem.Lines.Add(formatdatetime('dd/mm/yyyy HH:nn:ss:zzz',now)+' '+'test mail 2: antes desconectar');
idsmtp1.Disconnect;
mem.Lines.Add(formatdatetime('dd/mm/yyyy HH:nn:ss:zzz',now)+' '+'test mail 2: salió');
end;
end;
Muchas gracias desde ya !!!
Saludos, Marcelo.