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
__________________
Mónica
|