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
![]() |
![]() |
|
|
||


