LastMessageCheck

Mittwoch, den 14. September 2011 um 19:54 Uhr Dietmar Vollmeier

Dieses Script öffnet vor dem Versenden einer Nachricht ein Fenster, wo die entsprechende Nachricht im Rohformat angezeigt wird und zum letzten Mal überprüft werden kann. Je nach dem wie der Anwender mit dem Ergebnis zufrieden ist, kann die Nachricht dann entgültig gesendet oder der Sendevorgang abgebrochen werden. Bei zweiterem findet sich die Nachricht in der Outbox wieder.

Name und Funktion

Include	:	{$I _i_OBSendM_LastMessageCheck}
Funktion	:	CheckMessage (Message);

Die Funktion CheckMessage liefert einen boolschen Rückgabewert, mit dem abgefragt werden kann, ob die Nachricht entgültig versendet oder der Sendevorgang abgebrochen werden soll.

Einbindung

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

Dieses Script benötigt für die Erstellung des Ausgabefensters noch folgenden Eintrag in OnBeforeSendingMessage
Uses Forms, StdCtrls;

Program OnBeforeSendingMessage;
Uses Forms, StdCtrls;

{$I _i_OBSendM_LastMessageCheck}

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

Begin
  
   // Funktionen und Prozeduren anderer Scripte stehen hier

   // Letzter Check vor dem Senden der Nachricht
   // Da ja alle Änderungen berücksichtigt werden sollen, muß dieser Eintrag am
   // Ende des Scripts stehen! 
   Result := CheckMessage(Message);

End;  // Function OnBeforeSendingMessage()

Begin
End.