Hola uso para enviar mail Indy, funciona muy bien con un adjunto de un pdf de 20kb, pero un tema que me reclaman, tarda alrededor de finalizar el envio unos 40 segundos y si uso outlook es mucho mas rapido y a veces tengo reclamos, hay forma de acelerar el Indy?.
Código Delphi
[-]
Var
mail : TIDMessage;
smtp : TIdSMTP;
vHandle: THandle;
clave : string;
begin
smtp := TIdSMTP.Create(self);
smtp.Name := 'Smtp';
with smtp do begin
AuthenticationType := atLogin;
Host := '.......' port := 25;
Username := ........................; Password := ................................;
end;
mail := TIdMessage.Create(Self);
with mail do begin
From.Address := unmailgeneral; Recipients.EMailAddresses := unmail; Subject := 'Se le...'; body.Text := '.....................................' end;
TIdAttachment.create(mail.MessageParts,archivo);
try
smtp.Connect(10000);
try
smtp.Send(mail);
except
on E: Exception do
ShowMessage('Fallo al enviar: ' + E.Message);
end;
MsgUser := 'Mensaje enviado satisfactoriamente';
MessageBox(Handle, PChar(MsgUser), PChar('Information'), MB_OK + MB_ICONINFORMATION);
vHandle := FindWindow(nil, 'Information');
if vHandle <> 0 then
SetForegroundWindow (vHandle);
finally
if SMTP.Connected then SMTP.Disconnect;
smtp.free;
mail.free;
end;