LinkChecker

Donnerstag, den 04. Dezember 2008 um 22:27 Uhr Dietmar Vollmeier

Dieses Script überprüft eingehende Nachrichten auf umbrochene Links und setzt diese wieder richtig zusammen. Das funktioniert allerdings nur, wenn die Links in spitzen Klammern eingeschlossen sind.

Name und Funktion

Include	:	{$I _i_OBSavM_LinkChecker}
Funktion	:	CheckLinks (Message);

Einbindung

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

Program OnBeforeSavingMessage;

{$I _i_OBSavM_LinkChecker}

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

Begin
   If Message.Count = 0 Then Exit;

   CheckLinks (Message);

End;

Begin
End.