(M)eine Seite für 40tude Dialog

  • Schrift vergrößern
  • Standard-Schriftgröße
  • Schriftgröße verkleinern
Home » Scripte » Ereignisscripte » OnBeforeSendingMessage » LastMessageCheck

LastMessageCheck

E-Mail Drucken PDF

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
Autor Dietmar Vollmeier Webseite Homepage Datum 14.09.2011 Dateigröße 918 B  Download 1714

Zuletzt aktualisiert am Sonntag, den 18. September 2011 um 10:48 Uhr