Error enviando correo hotmail con Indy

[roman]

Empezado por newtron

¿os funciona actualmente el envío de correos electrónicos con gmail usando las Indy?

No. Al parecer Google ha puesto muchas condiciones para considerar seguro un servicio de correo. Quizá esto aclare algo, o quizá confunda más (como a mi). Sólo permitiendo "acceso a aplicaciones inseguras" desde la cuenta de gmail se puede.

LineComment Saludos

[[newtron]]

Empezado por roman

No. Al parecer Google ha puesto muchas condiciones para considerar seguro un servicio de correo. Quizá esto aclare algo, o quizá confunda más (como a mi). Sólo permitiendo "acceso a aplicaciones inseguras" desde la cuenta de gmail se puede.

LineComment Saludos

Pues yo ya tenía esa opción activada y no me funciona, ¿a ti si?, en caso afirmativo ¿puedes ponerme un ejemplo sencillo a ver si estoy haciendo algo distinto?

Saludos

[roman]

Empezado por newtron

¿a ti si?

Sí. El ejemplo que puse en http://clubdelphi.com/foros/showthread.php?t=40611 sigue funcionando activando las aplicaciones inseguras. De lo que alcanzo a ver en tu código noto estas diferencias:

Port: tienes el 587, yo tengo el 465
UseTLS: tú tienes Explicit y yo tengo Implicit

LineComment Saludos

[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
FromAdress=XXXXXX@gmail.com
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;

[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 !!