Mailversand mit Indy geht nur einmal

[Klaus01]

Hallo,

mache mal aus

Delphi-Quellcode:

try
   idsmtp1.Connect;
   idsmtp1.Send(idmsg1);
   idsmtp1.Disconnect();
   pBody.Free;
   pAttachment.Free;
  except
   ShowMessage('Fehler bei der Verbindung!');
   pBody.Free;
   pAttachment.Free;
  end;
end;

dieses hier:

Delphi-Quellcode:

try
 try
   idsmtp1.Connect;
   idsmtp1.Send(idmsg1);
   idsmtp1.Disconnect();
  except
    on E:Exception do
    ShowMessage('Fehler bei der Verbindung! ' +E.Message);
  end;
finally
   pBody.Free;
   pAttachment.Free;
end;

Hilfe eventuell beim Fehlerfinden.

Grüße
Klaus