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 | ||
Dietmar Vollmeier Homepage 21.12.2008 1.09 KB 3177 |