Enviar mail Socket error #11004
 

Hola a todos.

Estoy tratando de enviar correos a un servidor exchange y me sale el error Socket error #11004.

El código es el siguiente
Var
smtCorreo : TIdSMTP;
msgCorreo : TIdMessage;
Begin
msgCorreo := TIdMessage.Create(AOwner) ;
smtCorreo := TIdSMTP.Create(AOwner) ;

smtCorreo.AuthenticationType := atLogin ;
smtCorreo.Host := dtmPrincipal.cldEmailHOST.AsString ;
smtCorreo.Password := dtmPrincipal.cldEmailCLAVE.AsString ;
smtCorreo.UserId := dtmPrincipal.cldEmailUSUARIO.AsString ;
smtCorreo.Port := dtmPrincipal.cldEmailPUERTO.AsInteger ;

msgCorreo.Clear;
msgCorreo.From.Address:= dtmPrincipal.cldEmailCORREOSALIDA.AsString ;
msgCorreo.Subject := dtmPrincipal.cldEmailOBJETOCORREO.AsString;
msgCorreo.Body.Add(dtmPrincipal.cldEmailCONTENIDOCORREO.AsString);

with msgCorreo.Recipients.Add do
begin
Name := Qry.FieldByName('NOMBRE').AsString;
Address := qry.FieldByName('MAIL1').AsString;
end;

Reporte := dtm.ImprimirCotizacionToFile(IdCotizacion);
TIdAttachment.Create(msgCorreo.MessageParts,Reporte);

Try
smtCorreo.Connect;
smtCorreo.Send(msgCorreo);
MessageDlg('Cotización enviada vía E-mail', mtInformation,[mbOk],0) ;
Except


Alguien me puede ayudar con esto!! Auxilio

Gracias,


Mónica