expertenaustausch > comm.software.* > comm.software.40tude-dialog

Wolfgang Bauer (10.03.2018, 19:57)
Servus.

Das Include Script _i_OBSendM_AddFaceHeader.ds von Díetmar Vollmeíer
ist von Thomas Barghahn modifiziert worden.
Es setzt den Face Header direkt ohne den X-2Face Header umwandeln zu
müssen.

//************************************************** *******************
//* AddFaceHeader 2.0.1 *
//* >> OnBeforeSendingMessage << *
//* *
//* Dieses Script setzt den Face-Header. Die Umwandlung des X-2Face *
//* Headers erübrigt sich damit. Der eingetragene X-Header: X-2Face *
//* ist bei 'Verfügbare X-Header' zu entfernen. *
//* Der Face Header kann gefaltet werden wenn gewünscht *
//* Fuktionalität : [x] neutral *
//* [ ] nur Basis_Modul *
//* [ ] nur Pathfinder *
//* *
//* Autoren : Diemar Vollmeier & Thomas Barghahn *
//* *
//* DateiName : _i_OBSendM_AddFaceHeader.ds *als Empfehlung* *
//* Einbindung: {$I _i_OBSendM_AddFaceHeader.ds} *als Empfehlung* *
//* Aufruf : AddFaceHeader(Message); // *vor* einer Signierung! *
//* *
//************************************************** *******************
Procedure Init_AddFaceHeader(Var Face_String : String;
Var FaceFolding : Boolean);
Begin
//{-------------------------------------------------------------------}
//{ Anwenderspezifische Einstellungen }
//{-------------------------------------------------------------------}

// Gib hier deinen Face_String ein (Beispiel Pinguin - Wolgang Bauer):

Face_String := 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAM ' +
'FBMVEX9/f1mZmbMZjMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAABjm3HSAAAACXBIWXMAAABPAAAATwF ' +
'jiv3XAAAA00lEQVQ4jb2UAQ7DIAhFoSfg9wQd9z/kRDsLQrcl' +
'S2bTRHl8qoAl+mKIlGZGeyskAASZMMZI4LQnyUuQJO2zw5/XS' +
'ENEBWAygT1xs2SxhAsA2fRopyyAklaAN1U9ilCkBugWrHlsSw ' +
'uVE2yZ6JEWMFLUBO38EuxSzjkCOHv0wuXjquDclvJMwBlgTmQ ' +
'BUgH+BPiNgmPP4EwL0wpmqyRAfwQUgC9uKHQAIbshrKtgaBN1 ' +
'dT6c3XptOGLv3TUFepKtzy6w27JfTZs8/BbnpcXNj+OH8QQd8' +
'hUew59PWAAAAABJRU5ErkJggg==';

// Soll der Face-Header gefaltet dargestellt werden?
// Setze auf 'True' um den Header zu falten oder auf 'False'
FaceFolding := True;

//{-------------------------------------------------------------------}
//{ Ende der Einstellungen }
//{-------------------------------------------------------------------}
End;

//{================================================= ==================}
//{ !!! Ab hier bitte nichts mehr ändern !!! }
//{================================================= ==================}

//--[ START Procedure AddFaceHeader ]----------------------------------

Procedure AddFaceHeader(Msg : TStringList);

Var i, k, WrapAt : Integer;
Face_String : String;
Face_Header : String;
FaceFolding : Boolean;
Spacer : String;

Begin
Init_AddFaceHeader(Face_String, FaceFolding);

If Face_String <> '' then begin
k := Msg.IndexOf ('');
Face_Header := 'Face: ' + Trim (Face_String);
Msg.insert (k, Face_Header);
end
Else
Exit; // Procedure

Spacer := ' ';
WrapAt := 71;

If FaceFolding Then Spacer := #13#10 + ' ';

For i := 0 To Msg.IndexOf('') - 1 Do begin
If AnsiPos('Face:', Msg[i]) = 1 Then begin
While WrapAt < Length(Face_Header) + 1 Do begin
Insert(Spacer, Face_Header, WrapAt);
If FaceFolding Then WrapAt := WrapAt + 72
Else WrapAt := WrapAt + 70;
End; // While
Msg[i] := Face_Header;
Exit; // Procedure
End; // If
End; // If
End; // Procedure

//--[ ENDE Procedure AddFaceHeader ]----------------------

Wolfgang
Thomas Barghahn (10.03.2018, 20:05)
*Wolfgang 'Wolle' Bauer* meinte:

> //* Autoren : Diemar Vollmeier & Thomas Barghahn * ° da fehlt ein "t"


Sofort ändern und ein Supersedes hinterher! Aber Zack! ;-)

Freundliche Grüße
Thomas Barghahn
Wolfgang Bauer (10.03.2018, 20:08)
*Thomas Barghahn*, Du hast geschrieben:
> *Wolfgang 'Wolle' Bauer* meinte:


>> //* Autoren : Diemar Vollmeier & Thomas Barghahn *

> ° da fehlt ein "t"


> Sofort ändern und ein Supersedes hinterher! Aber Zack! ;-)


Ist schon gemacht. Und ich habe den erklärenden Text etwas geändert.
Das Script setzt den Face Header unabhängig ob OP oder Supersedes.
Schau bitte mal drüber.

Wolfgang
Thomas Barghahn (10.03.2018, 20:27)
*Wolfgang 'Wolle' Bauer* meinte:
> *Thomas Barghahn*, Du hast geschrieben:
>> *Wolfgang 'Wolle' Bauer* meinte:


>>> //* Autoren : Diemar Vollmeier & Thomas Barghahn *

>> ° da fehlt ein "t"


>> Sofort ändern und ein Supersedes hinterher! Aber Zack! ;-)


> Ist schon gemacht. Und ich habe den erklärenden Text etwas geändert.
> Das Script setzt den Face Header unabhängig ob OP oder Supersedes.
> Schau bitte mal drüber.


Prima! Es macht wieder Spaß in dieser Gruppe zu schreiben. :-)
Danke!

Freundliche Grüße
Thomas Barghahn
Ähnliche Themen