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.
Download
LastMessageCheck v.1.2.1 | ||
Dietmar Vollmeier Homepage 14.09.2011 918 B 3392 |