Fórum Como usar vários SMTP no INDY-D7??? #287336

...
const
  SERVIDOR_SMTP: array[0..2] of string = (
    ´smtp0.example.com´,
    ´smtp1.example.com´,
    ´smtp2.example.com´
    );
var
  I: Integer;
....
  while not IdSMTP1.Connected do begin
    for I := Low(SERVIDOR_SMTP) to High(SERVIDOR_SMTP) do begin
      IdSMTP1.Host :=SERVIDOR_SMTP[I];
      IdSMTP1.AuthenticationType := ...
      IdSMTP1.Username := ...
      IdSMTP1.Password := ...
      try
        IdSMTP1.Connect;
        Break; // conectou, pára o loop
      except
        if I = High(SERVIDOR_SMTP) then begin
          // não tem mais servidores, passa a exceção para frente
          raise;
        end;
      end;
    end;
  end;

  try
    ...
    IdSMTP1.Send(...);
    ...
  finally
    IdSMTP1.Disconnect;
  end;
...

... 
const 
  SERVIDOR_SMTP: array[0..2] of string = ( 
    ´smtp0.example.com´, 
    ´smtp1.example.com´, 
    ´smtp2.example.com´ 
    ); 
  PASSWORDs: array[0..2] of string = ( 
    ´12345´, 
    ´864596´, 
    ´7845455xy´ 
    ); 
  LOGINs: array[0..2] of string = ( 
    ´login1´, 
    ´login2´, 
    ´login3´ 
    ); 
var 
  I: Integer; 
.... 
  while not(IdSMTP1.Connected) do begin 
    for I := Low(SERVIDOR_SMTP) to High(SERVIDOR_SMTP) do begin 
      IdSMTP1.Host :=SERVIDOR_SMTP[I]; 
      IdSMTP1.AuthenticationType := ... 
      IdSMTP1.Username := LOGINs[I];
      IdSMTP1.Password := PASSWORDs[I];
      try 
        IdSMTP1.Connect; 
        Break; // conectou, para o loop 
      except 
        if I = High(SERVIDOR_SMTP) then begin 
          // não tem mais servidores, passa a exceção para frente 
          raise; 
        end; 
      end; 
    end; 
  end; 

  try 
    ... 
    IdSMTP1.Send(...); 
    ... 
  finally 
    IdSMTP1.Disconnect; 
  end; 
...