Error enviando correo hotmail con Indy

[Neftali [Germán.Estévez]]

Con tengo uno que envía utilizando Indy10 y Gmail con los siguientes parámetros y sigue funcionando correctamente.

[GMail]
MailServer=smtp.gmail.com
PortServer=465
[email protected]
FromText=NombreXXX
SSLMethod=sslvTLSv1

[elguille]

A mi el código me ha dejado de funcionar hace tres dias para clientes diferentes con cuentas diferentes ¿¿??¿
He encontrado este código en internet http://dejensever.com/2013/09/03/del...reos-por-smtp/ que me parece que de momento si funciona aunque no se que pasará día 1 de junio cuando quiten de forma definitiva sslv3.

Código Delphi [-]
function EnviarMensaje(sUsuario, sClave, sServidor, sAdjunto, sAsunto, sDestino, sMensaje: String; iPort: integer): String;
var
  SMTP: TIDSMTP;
  Mensaje: TIdMessage;
  adjunto: TIdAttachmentfile;
  IOHSOSSL: tIdSSLIOHandlerSocketOpenSSL;
begin
  IdSSLOpenSSLHeaders.Load;
  result := 'Mensaje enviado correctamente.';

  IOHSOSSL := tIdSSLIOHandlerSocketOpenSSL.Create;
  IOHSOSSL.Destination := sServidor + ':' + IntToStr(iPort);
  IOHSOSSL.host := sServidor;
  // IOHSOSSL.MaxLineAction := maException;
  IOHSOSSL.port := iPort;
  IOHSOSSL.ssloptions.method := sslvTLSv1;
  IOHSOSSL.ssloptions.VerifyMode := [];
  IOHSOSSL.ssloptions.VerifyDepth := 0;

  SMTP := TIDSMTP.Create(nil);
  SMTP.IOHandler := IOHSOSSL;
  SMTP.UserNAME := sUsuario;
  SMTP.password := sClave;
  SMTP.host := sServidor;
  SMTP.port := iPort;
  SMTP.UseTLS := utUseRequireTLS;

  Mensaje := TIdMessage.Create(nil);
  Mensaje.Clear;
  Mensaje.From.Name := sDestino;
  Mensaje.From.Address := sDestino;
  Mensaje.Subject := sAsunto;
  Mensaje.Body.Text := sMensaje;
  Mensaje.Recipients.Add;
  Mensaje.Recipients.Items[0].Address := sDestino;

  if sAdjunto <> '' then
  begin
    if FileExists(sAdjunto) then
      adjunto := TIdAttachmentfile.Create(Mensaje.MessageParts, sAdjunto);
  end
  else
    adjunto := nil;

  try
    SMTP.Connect;
  except
    result := 'Error al conectar con el servidor.';
  end;

  // Si ha conectado enviamos el mensaje y desconectamos
  if SMTP.Connected then
  begin
    try
      // SMTP.SendCmd('STARTTLS', 220);
      SMTP.Send(Mensaje);
    except
      result := 'Fallo en el envio de email';
    end;

    try
      SMTP.Disconnect;
    except
      result := 'Error al desconectar del servidor.';
    end;
  end;

  // Liberamos los objetos creados
  if adjunto <> nil then
    FreeAndNil(adjunto);

  FreeAndNil(Mensaje);
  FreeAndNil(SMTP);

end;

[[newtron]]

Hola.

Este código si que me funciona, ahora tendré que retocarlo para incluirle varios destinatarios, copias ocultas, etc. pero no creo que haya problemas.

Gracias Guille.

Roman, Neftali, gracias por vuestras sugerencias.

Saludos

[Neftali [Germán.Estévez]]

Empezado por newtron

ahora tendré que retocarlo para incluirle varios destinatarios

Puedes hacerlo así, si separas las direcciones con punto y coma.

Código Delphi [-]
  Mensaje.Recipients.EMailAddresses := sDireccionesEnvio;

Empezado por newtron

ahora tendré que retocarlo para incluirle varios destinatarios, copias ocultas, etc. pero no creo que haya problemas.

Para eso puedes utilizar las propiedades:

Código Delphi [-]
    Mensaje.CCList
    Mensaje.BccList

Que son del mismo tipo que Recipients.

Empezado por newtron

etc...

Poca cosa más queda...
Por ejemplo, para texto plano o HTML:

Código Delphi [-]
  if (AFormtatoPlano) then begin
     idText := TIdText.Create(Mensaje.MessageParts, TS);
     idText.ContentType := 'text/plain';
  end
  else begin
    idText := TIdText.Create(Mensaje.MessageParts, TS);
    idText.ContentType := 'text/html';
    idText.ContentTransfer := '7bit';
    Mensaje.ContentTransferEncoding := 'text/html';
  end;

[[newtron]]

Neftali. Gracias, todo correcto.

Ahora me encuentro un problema (no crítico) que es que este código que sirve para gmail no me funciona en el resto de clientes que usan otros servidores de correo por tener páginas web. He probado con todas las opciones de utNoTLSSupport, utUseExplicitTLS, utUseImplicitTLS y utUseRequireTLS y nada. No va.

¿Será el method que estamos poniendo "sslvTLSv1"?

Saludos

[Neftali [Germán.Estévez]]

En mi caso, lo que he hecho en generar un fichero de configuración según servidor.

Te adjunto una parte:

Código Delphi [-]
[Yahoo]
MailServer=smtp.correo.yahoo.es
PortServer=465

[GMail]
MailServer=smtp.gmail.com
PortServer=465
////// Valores posibles:  SSLMethod = (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1)
SSLMethod=sslvTLSv1


[Hotmail]
MailServer=smtp-mail.outlook.com
PortServer=587
////// Valores posibles:  UseTSL = (utNoTLSSupport, utUseImplicitTLS, utUseRequireTLS, utUseExplicitTLS);
UseTSL=utUseExplicitTLS
////// Valores posibles:  SSLMethod = (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1)
SSLMethod=sslvTLSv1

...

Los servidores que no tienen valor en alguna característica, cogen el valor por defecto.
He tenidpo que ir probando con los diferentes servidores para obtener configuraciones.

[[newtron]]

Ok.

Gracias, haré pruebas a ver qué voy viendo.

Saludos

[hugobenitez]

Hola amigos del foro, les agradezco de manera inexplicable lo que nos ayudan. Les cuento, tuve el mismo problema con el componente indy 10, con gmail y dephi 5 enterprise, de buenas a primera, dejo de enviar mails y me decia ERROR CONNECTING WITH SSL, de mas esta decirles que probe todo lo que mi conocimiento dio, hasta que finalmente en este foro encontre la solucíon: cambio la propiedad IdSSLIOHandler.SSLOptions.Method := sslvTLSv1 y anduvo, lo que todavia no comprendo es porque anduvo tan bien hasta hace unos dias con sslvSSLv3. GRACIAS A TODOS !!