Una función para enviar Email en XE10
 

Saludos amigos, he visto varias implementaciones antiguas de procedimientos para enviar Emails usando Indy, las he probado y no funcionan en XE10, quizás alguno de ustedes tiene una función que trabaje.

Saludos

¿Cuales has probado y qué problemas has tenido?

¿Desde dónde o con qué cuenta quieres enviar el Mail?
¿Qué error te da?
¿En ejecución o en compilación?
...

Hola
 

He estado intentando hacer que funcione esta:

Código Delphi [-]
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
  IdSMTPBase, IdSMTP, IdMessage, IdAttachment, IdAttachmentFile, Vcl.StdCtrls,
  IdServerIOHandler, IdSSL, IdSSLOpenSSL, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack;

Código Delphi [-]
procedure SendEmail(const Recipients: string; const Subject: string; const Body: string);
var
  SMTP: TIdSMTP;
  Email: TIdMessage;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  SMTP := TIdSMTP.Create(nil);
  Email := TIdMessage.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  try
    //SSLHandler.MaxLineAction := maException;
    SSLHandler.SSLOptions.Method := sslvTLSv1;
    SSLHandler.SSLOptions.Mode := sslmUnassigned;
    SSLHandler.SSLOptions.VerifyMode := [];
    SSLHandler.SSLOptions.VerifyDepth := 0;

    SMTP.IOHandler := SSLHandler;
    SMTP.Host := 'smtp.gmail.com';
    SMTP.Port := 587;
    SMTP.Username := 'darkamerico7@gmail.com';
    SMTP.Password := '------'; //La clave del email
    SMTP.UseTLS := utUseExplicitTLS;

    Email.From.Address := 'darkamerico7@gmail.com';
    Email.Recipients.EmailAddresses := Recipients;
    Email.Subject := Subject;
    Email.Body.Text := Body;

    SMTP.Connect;
    SMTP.Send(Email);
    SMTP.Disconnect;

  finally
    SMTP.Free;
    Email.Free;
    SSLHandler.Free;
  end;
end;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendEmail('darkamerico7@gmail.com','Hula','Ciao');
end;

Obtengo el siguiente error:



Saludos

otro detalle
 

Tuve que copiar los archivos: libeay32.dll y ssleay32.dll en el directorio del proyecto.

Hola Neftali
 

El error es en tiempo de ejecución luego de presionar el botón.

Bueno, a veces sirve leer los mensajes de error. Por ejemplo, éste dice:

en donde, al menos en mi caso, después de intentar alguna cosa, se da uno cuenta de que no es un problema tanto de programación sino de lo insoportable que se ha vuelto gmail:

LineComment Saludos

Ahora bien, desconozco como hacer que tu aplicación cumpla esos estándares de seguridad pero en tu cuenta de gmail está la opción "Permitir que las aplicaciones menos seguras accedan a tu cuenta" (indicada en la página en cuestión). Haciendo esto, se puede ya mandar el correo. Claro, está que eso no es lo que recomiendan.

LineComment Saludos

Gracias roman
 

En primer lugar, gracias por contestar amigo; referente al tema en cuestión, me deja aun mas preocupado luego de leer tus comentarios, será que con el tiempo nadie "No Debidamente Autenticado" podrá enviar emails a servidores como google, hotmail, etc..., en otras palabras, que opciones nos quedan, interactuar solamente con servidores privados?

Un Abrazo

Americo

Funcionó!!
 

Bueno, leyendo el mensaje de error que me indicó roman, fui a la configuracion de mi cuenta de gmail y active la opcion de Recibir Correos de Dispositivos menos seguros y ... eureka, llegó el correo:



Saludos