Error Al Enviar E-mail con Delphi (TAuthenticationType)
 

Buenos hace un tiempo rescate una funcion de internet, para enviar correos , la misma funciono perfecto en delphi 7 ahorita tengo xe8 y me saltan varios errores, he buscado en el club errores relacionados y nada
aqui esta el codigo y los errores

Código Delphi [-]
function enviarEmail (servidor : string; usuario : string; contrasena : string;
    puerto : integer; asunto : string; mensaje : TStringList; conAutenticacion : boolean;
    emisor : string; nombreEmisor : string; destinatario : string; cc : string) : boolean;
var
  compMensaje : TIdMessage;
  textoTemp : string;
  tipoAutenticacion : TAuthenticationType;
  envioCorrecto : boolean;
begin
  if conAutenticacion then
  begin
    compEnvioEmail.AuthenticationType := atLogin;
    compEnvioEmail.UserId := usuario;
    compEnvioEmail.Password := contrasena;
  end
  else
    compEnvioEmail.AuthenticationType := atNone;
  compMensaje := TIdMessage.Create (nil);
  compMensaje.From.Address := emisor;
  compMensaje.From.Name := nombreEmisor;
  compMensaje.Recipients.Add.Address := destinatario;
  compMensaje.CCList.Add.Address := cc;
  compMensaje.Body.AddStrings (mensaje);
  compMensaje.Subject := asunto;
  compMensaje.ReplyTo.Add.Address := emisor;
  envioCorrecto := true;
  try
    compEnvioEmail.Send(compMensaje);
  except
    envioCorrecto := false;
  end;
  compMensaje.Free;
  enviarEmail := envioCorrecto;
end;

errores

Hola,

Echa un vistazo a "compEnvioEmail". Si es del tipo "TIdSMTP", como creo que es, entonces en Indy 10 (la versión que incluye Delphi XE8) debes usar algo así:

Código Delphi [-]
IdSMTP1.AuthType := satNone;

O bien otro valor posible para "AuthType". Ya no existe "TAuthenticationType" sino que es "TIdSMTPAuthenticationType" que se encuentra declarado en la misma unidad "IdSMTP".