Gruß auch in Mail

22/01/2009 - 17:25 von Joachim Reiter | Report spam
Hallo NG!

habe bis jetzt noch keine Scripte /geupdatet/, trotzdem eine Frage, die wohl
auch so (ohne Info auf Script-Version) beantwortet werden dürfte:

Ich denke, es betrifft eine 'IsEmail'-Anweisung, dass in von mir verfassten
Mails in 40tD auch mein 'Hallo NG,' per OnBeforeSending angewandt wird?!

Wo muss 'geschraubt' werden, um per 'False' E-Mail für Anrede aussen vor zu
lassen (ich dachte, das wàre per .ini auf NGs beschrànkt?!)?
Oder ist dies in den aktuellsten Scripten der Skriptwerkstatt schon behoben,
Hermann?

Normal schreibe ich nicht Mail per 40tD, aber wenn es mal schnell gehen
soll... :-)

TIA und Gruß... Joachim
Please, no Replies in private e-Mail! Only answer in news will read!
www.hobbyecke-pc.de - My own hobby, especially incl. Usenet
For information about my System look header 'X-System:'
http://4ds.siteboard.eu/ - Die SUPER Script-Werkstatt für 40tude-Dialog
 

Lesen sie die antworten

#1 Hermann Hippen
22/01/2009 - 17:49 | Warnen spam
Hallo Joachim Reiter,

Joachim Reiter schrieb in d.c.s.4-d:

Hallo NG!

habe bis jetzt noch keine Scripte /geupdatet/, trotzdem eine Frage, die wohl
auch so (ohne Info auf Script-Version) beantwortet werden dürfte:

Ich denke, es betrifft eine 'IsEmail'-Anweisung, dass in von mir verfassten
Mails in 40tD auch mein 'Hallo NG,' per OnBeforeSending angewandt wird?!

Wo muss 'geschraubt' werden, um per 'False' E-Mail für Anrede aussen vor zu
lassen (ich dachte, das wàre per .ini auf NGs beschrànkt?!)?
Oder ist dies in den aktuellsten Scripten der Skriptwerkstatt schon behoben,
Hermann?

Normal schreibe ich nicht Mail per 40tD, aber wenn es mal schnell gehen
soll... :-)



Wenn SW deine Mail in Ruhe lassen soll, àndere einfach den Aufruf:

| Program OnBeforeSendingMessage;
| uses textfile, Forms, StdCtrls, Extctrls;
| {$I Basis_Modul_Include}
| {$I Swiss_Knife_Include}
| Function OnBeforeSendingMessage(var Message:TStringlist;Servername:string;IsEmail:boolean):boolean;
| Begin
| If Not IsEmail Then Swiss_Knife(Message,IsEmail);
| Result:=True;
| End;
| Begin
| End.

Comilieren & neu starten.

Es kommt ohnehin bald eine neue Version von SW - bis dahin sollte es so
gehen.

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

Ähnliche fragen