AddSupersedeWarning

Samstag, den 27. Dezember 2008 um 04:38 Uhr Dietmar Vollmeier

Versendest du einen Artikel, der einen anderen ersetzt (Supersede), dann wird ein Hinweis am Anfang des Artikels eingefügt in der Form von

alt

Dieser Hinweis kann in den Optionen den persönlichen Bedürfnissen noch angepaßt werden.

Name und Funktion

Include	:	{$I _i_OBSendM_AddSupersedeWarning}
Funktion	:	AddSupersedeWarning (Message);

Einbindung

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

Das Script funktioniert nur in Verbindung mit dem Script "Pathfinder"!

Program OnBeforeSendingMessage;

// DialogINI muß als erstes in die Liste der Include-Files eingebunden werden
{$I DialogINI}
// Weitere Include-Files
{$I _i_OBSendM_AddSupersedeWarning}

Function OnBeforeSendingMessage(
  Var   Message    : TStringlist;
  Const Servername : String;
  Const IsEmail    : Boolean
) : Boolean;

Begin
  
  AddSupersedeWarning (Message);

End;  // Function OnBeforeSendingMessage()

Begin
End.