Custom header script
OB1
custom header in your message.
I use it to insert a 'Distribution:' header into messages to some groups on
my isp's server that require it.
To be honest: i just adapted the 'remove any header' script by Andreas Loch
i found in Wiki, to remove the first two characters from any header,
thereby making it possible to add your header by simply creating a custom
X-header in Dialog, and removing the 'X-' with the script on sending.
<code>
program OnBeforeSendingMessage;
// This script removes the 'X-' from an X-header, converting it into a
custom normal header
// Create the X-header in Dialogs Settings -
Server/Identities/Signatures... menu
const
// set the X-header you want to convert
ConvertHeader='X-Distribution';
procedure ConvertXHeader(Message:TStringlist);
var i:integer;
s:string;
begin
s:=Message.text;
while (Message.Strings[i]<>'') and
(pos(ConvertHeader,Message.Strings[i])=0) do
begin
i:=i+1;
if pos(ConvertHeader,Message.Strings[i])<>0 then
begin
delete(s,pos(ConvertHeader,s),2);
end;
end;
message.text:=s;
end;
function OnBeforeSendingMessage(var Message: TStringlist; Servername:
string; IsEmail: boolean):boolean;
begin
if IsEmail then exit;
ConvertXHeader(Message);
result:=true;
end;
begin
end.
</code>
--
OB1