[NEU/TEST] L1-Script RefHeaderKuerzen_include - für Reinhard I.

29/01/2009 - 18:05 von Hermann Hippen | Report spam
Moin Moin :-),

Dieses Script kürzt den References Header. Die maximale Anzahl der
RefHeader kann im Kopf des Script's eingegeben werden.

Speichern unter 'Eigene Scripte'

Einbindung/Aufruf in OnBeforeSavingMessage:

| Program OnBeforeSavingMessage;
| uses textfile, Forms, StdCtrls;

| {$I RefHeaderKuerzen_include}


| Procedure OnBeforeSavingMessage( Var Message : TStringlist;
| Const Servername : String;
| Const IsEmail : Boolean );
| Begin
| If Message.Count = 0 Then Exit;

| RefHeaderKuerzen(Message);


| End;
| Begin
| End.

8<[ RefHeaderKuerzen_include ]>8
// RefHeaderKuerzen_include. Stand: 29.01.2009
Function MaxRefHeader:Integer;
Begin
// Hier die maximal gewünschte Zahl der RefHeader angeben.
Result := 3;
End;
Function CountRefHeader(Var rh: String):Integer;
Var i: Integer;
Begin
Result := 0;
For i := 1 to Length(rh) Do if rh[i]='>' Then Result := Result + 1;
End;
Procedure RefHeaderKuerzen(Var Message:TStringlist);
Var i,Max,rhc : Integer;
tmp : String;
Begin
Max := MaxRefHeader;
i := 0;
Repeat
If Pos('References:',Message[i]) = 1 Then
Begin
tmp := Message[i];
rhc := CountRefHeader(tmp) - Max;
If rhc > 0 Then
Begin
tmp := Trim(Copy(Message[i],13,Length(Message[i])));
Repeat
tmp := Copy(tmp,Pos('>',tmp) + 1, Length(tmp));
rhc := rhc - 1;
Until rhc = 0;
Message[i]:='References: ' + Trim(tmp);
Exit;
End;
End;
I := I + 1;
Until Message[i] = '';
End;
8<->8

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Karl-Heinz Rademacher
29/01/2009 - 22:31 | Warnen spam
Hallo °º€øHermannø€º°,

Hermann Hippen schrieb:
Dieses Script kürzt den References Header. Die maximale Anzahl der
RefHeader kann im Kopf des Script's eingegeben werden.

Speichern unter 'Eigene Scripte'

Einbindung/Aufruf in OnBeforeSavingMessage:

| Program OnBeforeSavingMessage;
| uses textfile, Forms, StdCtrls;
| {$I RefHeaderKuerzen_include}





Hermann Du warst wieder fleißig, leider kann ich aber nicht direkt
erkennen für welche Linie diese Skript eingesetzt werden könnte/sollte.

Mit freundlichen Gruß,
Karl-Heinz Rademacher.
,--[ Die 40tude Dialog - Seiten! ]
Š http://kh-rademacher.de/4d
Š http://kh-rademacher.de/face
`-

Ähnliche fragen