function TUMailen.SendeMail(MailEmpfaenger, CCListe, Betreff, Anhang :string; Body :TStringList; MailAbsender, MailPasswort, MailServer: String; MailPort: Integer) : boolean;
var
  iAttachment : TIdAttachment;
  Erfolg: Boolean;

begin
  (* Connect mit Server *)
  UMailen.IdSMTP1.AuthType := satDefault; // simpler Login ohne Authentifizierung
  UMailen.IdSMTP1.Host := MailServer;
  UMailen.IdSMTP1.Port := MailPort;
  UMailen.IdSMTP1.UseTLS := utUseRequireTLS; // mit SSL -> Port dann in aller Regel 587
  UMailen.IdSMTP1.Username := MailAbsender; // Benutzername
  UMailen.IdSMTP1.Password := MailPasswort; // Passwort
  // Verbinden mit Server
  try
   UMailen.IdSMTP1.Connect;
  except
   on E: Exception do
    begin
       result := false;
       Application.MessageBox (PChar(E.Message),'Verbindungsfehler Connect !',MB_OK);
       UMailen.IdSMTP1.Disconnect;
       exit;
    end;
  end;

  (* Mail erstellen *)
  UMailen.IdMessage1.ContentType := 'multipart/*'; // mit Anhang!
  if Anhang <> '' then iAttachment := TIdAttachmentFile.Create(UMailen.IdMessage1.MessageParts, Anhang) ;
  UMailen.IdMessage1.Body.Assign(Body); // der eigentliche eMail -Text aus einem TMemo
  UMailen.IdMessage1.Priority := TIdMessagePriority(2); // Priorität
  UMailen.IdMessage1.Recipients.EMailAddresses := MailEmpfaenger; // Empfängeradresse
  UMailen.IdMessage1.ReplyTo.EMailAddresses := MailAbsender; // Anwortadresse
  UMailen.IdMessage1.From.Text := MailAbsender; // Absenderadresse
  UMailen.IdMessage1.Subject := Betreff;

  try
     UMailen.IdSMTP1.Send(UMailen.IdMessage1);

  except
    on E: Exception do
    begin
       result := false;
       Application.MessageBox (PChar(E.Message),'Verbindungsfehler Versand !',MB_OK);
       UMailen.IdSMTP1.Disconnect;
       exit;
    end;
  end;
  result := true;
end;