Forums Neueste Beiträge
 

Skript zusätzliche Headerzeile

22/03/2009 - 13:08 von Harald Maedl | Report spam
Ich benötige eine zusàtzliche Headerzeile (kein X-Header).
Ich habe mich mal an einem Skript versucht. Nur setzt es es den Header
nicht dahin, wohin es gerne möchte, nàmlich direkt unterhalb des
Subject-Headers.

8<>8
procedure Init_SetHeader ( var SetHeader : String;
var AddOnNachricht: String;
var ChangeInNews : Boolean);

begin
// -
// Begin Configuration settings
// -
// Hier wird der Header gesetzt zu Testzwecken 'X-Test:'
SetHeader := 'X-Test:';
// Hier wird die Mitteilung gesetzt
AddOnNachricht := 'testnachricht'

// auf False setzen, wenn Header nicht benötigt
ChangeInNews := true;

// -
// End of configuration settings
// -
end;

procedure SetAnyHeader(Message:TStringlist;IsEmail:boolean);
var i : integer;
SetHeader : String;
AddOnNachricht: String;
ChangeInNews : Boolean;

begin
Init_SetHeader ( SetHeader, AddOnNachricht, ChangeInNews );
if ((ChangeInNews=true))
then begin
Message.Insert(i,SetHeader + AddOnNachricht);
end;
end;
8<>8

Das funktioniert erstaunlicherweise soweit.

Jedoch soll dieser Header möglichst direkt nach dem Subject-Header
folgen. Wie mache ich das?
Ich möchte gerne ein Warnfenster mit einer Ja/Nein-Abfrage öffnen
lassen, wenn das Skript ausgeführt wird (d.h. wenn ChangeInNews := true;
ist), das als Sicherheitsabfage zusàtzlich abfràgt, ob man den Header
'SetHeader + AddOnNachricht' tatsàchlich senden möchte.

Cu,
Harald
 

Lesen sie die antworten

#1 Hermann Hippen
22/03/2009 - 13:26 | Warnen spam
Hallo Harald,

Harald Maedl schrieb in d.c.s.4-d:

Ich benötige eine zusàtzliche Headerzeile (kein X-Header).
Ich habe mich mal an einem Skript versucht. Nur setzt es es den Header
nicht dahin, wohin es gerne möchte, nàmlich direkt unterhalb des
Subject-Headers.



[Script]

Das funktioniert erstaunlicherweise soweit.

Jedoch soll dieser Header möglichst direkt nach dem Subject-Header
folgen. Wie mache ich das?



Indem du vor dem Setzen des Headers die Position des Subject Headers
bestimmst und du deinen neuen Header an Position Subject Header+1
einfügst.

Beamte unterscheiden sich von gewöhnlichen Bürgern darin, dass sie
ihre Fehler noch nach Jahrzehnten mittels Akten belegen können.

Ähnliche fragen