Como configuro una cuenta de Exchange con Indy

[jeremiselxi]

Buenas tardes.

He buscado y buscado en internet y en el foro pero no logro hacer lo siguiente:

Tengo un sistema y necesitan los usuarios que cierta información lo envien con una cuenta de de correo de exchange que crearon con tales fines.

He visto que se puede conectar una cuenta de exchange con los componentes indy pero no logro hacer lo que quiero.

Me indicaron que puedo lograrlo con idimap pero no lo he logrado y sin embargo en mi celular me conecto con estos datos:

1. Servidor de exchange
2. Dominio/nombre de usuario
3. Contraseña.
4. Puerto.
   

Trabajo bajo delphi 7 y con Indy10.

Código Delphi [-]

procedure TfrmPrincipal.Button1Click(Sender: TObject);
begin


      IdIMAP41.Host:='activesync.hgps.org';     //servidor de exchange
      IdIMAP41.Username:= 'salud\prueba';      //dominio/nombre de usuario
      IdIMAP41.Password:= '12345678';          //contraseña.
      IdIMAP41.Port:= 443;
      IdIMAP41.Connected;
      if IdIMAP41.Connected= true  then
       ShowMessage('conectado')
       else
       ShowMessage(' no conectado')


 end;

Si alguien me pudiera dar una manito se les agradecería.

Gracias de antemano por sus comentarios.

Saludos.

[aposi]

Hola,
tal vez necesitat una conexio segura
revisa este codigo:

Código Delphi [-]
procedure TForm2.enviarmail;
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 := 'USUARIO';
    SMTP.Password := '********';
    SMTP.UseTLS := utUseExplicitTLS;
    Email.From.Address := 'REMITENTE';
    Email.Recipients.EmailAddresses := A QUIEN ENVIAS';
    Email.Subject := 'ASUNTO';
    Email.Body.Add('texto del correo');
    SMTP.Connect;
    SMTP.Send(Email);
    SMTP.Disconnect;

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

Necesitaras las librerias de openssl
https://www.openssl.org/related/binaries.html

[jeremiselxi]

Originally Posted by aposi

Necesitaras las librerias de openssl
https://www.openssl.org/related/binaries.html

Gracias por responder tan rápido, sin embargo estoy perdido con estas librerías, solo tengo que descargarla y colocarlo en la misma carpeta de mi ejecutable? o tengo que enlazarla con algún componente?

[aposi]

dejar las librerias en la carpeta del ejecutable