Hi !
ich möchte die "Senden" Funktion im EMail dahingehend erweitern, dass bei einer bestimmten Email-Grösse, ein Hinweis erscheint, wo der Benutzer dann entscheiden kann, ob er wirklich senden möchte, oder nicht.
Mein Problem ist, dass der Hinweis-Text immer hochkommt, egal wie gross die EMail ist. Das soll natürlich nicht.
Vielleicht kann mir jemand einen Tipp geben.
Vielen Dank vorab
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MEMO_SEND:="1024";
FIELD ActionInProgress:=MEMO_SEND;
REM {========================================} ;
REM {Fehlermeldung anzeigen, wenn Dokument grösser als die erlaubten KB sind} ;
REM {========================================} ;
MaxKB := 50000 ;
DocSize := @Sum( @If ( @Attachments > 0 ; @DocLength / 1024 ; 0)) ;
Text := "Das Memo kann nicht versendet werden, da es grösser als " + @Text(MaxKB;"F,0") + " KB (50 MB) ist. Aktuelle Memogrösse: " + @Text(DocSize;"F,0") + " KB." ;
_xx:= @Prompt([YesNo];"Info";Text + "Trotzdem Senden ?") ;
@If ( DocSize > MaxKB ; _xx; "");
@If ( DocSize > MaxKB & _xx = 1 ; (@Command([FileSave])&@Command([FileCloseWindow])); "")