ScriptSaveOutboundMessage

From 40tude Dialog Wiki

Originally from Marcus Mönnig and posted by Exiddor

program OnBeforeSendingMessage;

function OnBeforeSendingMessage(var Message: TStringlist; Servername: string; IsEmail: boolean):boolean;
begin
result:=true;
message.savetofile('C:\temp.txt');
//give korrnews 5000 milliseconds for this, otherwise give up
FileExecute(0,'F:\Korrnews\korrnews.exe','open','Type:news Filename:"C:\temp.txt"','',1,5000);
message.loadfromfile('C:\temp.txt');
end;

begin
end.

Obviously any other external program can be used as well.


J.Cifer