(M)eine Seite für 40tude Dialog

  • Schrift vergrößern
  • Standard-Schriftgröße
  • Schriftgröße verkleinern

DelTOFU

E-Mail Drucken PDF

Dieses Script entfernt (Full-)Quotes am Ende eines Beitrags und aus der Signatur und hinterläßt auf Wunsch eine Info, wieviele Zeilen entfernt wurden.

 

Name und Funktion

Include : {$I _i_OBSavM_DelTOFU}
Funktion : DelTOFU (Message, IsEmail);

 

Einbindung

Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.

Program OnBeforeSavingMessage;

{$I _i_OBSavM_DelTOFU}

Procedure OnBeforeSavingMessage (
   Var   Message    : TStringlist;
   Const Servername : String;
   Const IsEmail    : Boolean
);

Begin
   If Message.Count = 0 Then Exit;

   DelTOFU (Message, IsEmail);

End;

Begin
End.

 

Download

DelTOFU v.2.2.4
Autor Dietmar Vollmeier Webseite Homepage Datum 21.12.2008 Dateigröße 1.09 KB  Download 3177

 

Zuletzt aktualisiert am Sonntag, den 18. September 2011 um 13:01 Uhr