Dieses Script überprüft eingehende Nachrichten auf

• zerstückelte Smilies
• leere Quotezeilen
• Leerzeichen zwischen Quotezeichen
• falsche Signaturtrenner ("--")
• verschobene Unterstreichungen bei ganzen Wörtern

 und korrigiert diese.

 

Name und Funktion

Include	:	{$I _i_MULTI_QuoteCorrection}
Funktionen	:	QuoteCorrection (Message); PCorrection (Message);

 

Einbindung

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

Program OnBeforeSavingMessage;

{$I _i_MULTI_QuoteCorrection}

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

Begin
   If Message.Count = 0 Then Exit;

   QuoteCorrection (Message);

End;

Begin
End.

 

Download

QuoteCorrection v.2.0.2
18.01.2009  1.3 KB   3401