Domino 9 und frühere Versionen > ND6: Entwicklung

Formel in Skript umwandeln

(1/5) > >>

judicious:
Guten Tag zusammen

Ich bin zur Zeit an der Entwicklung einer Datenbank. Jetzt habe ich aber folgendes Problem. Mein Vorgänger hat alles in Formel Sprache gemacht. Doch für die neue Datenbank brauche ich den Code als Skript. Da ich absolut keine Peilung habe von Skript, ausser ein bisschen basic frage ich mich wie man diese Formel ganz einfach in ein Skript umwandeln kann. Es geht nur um die Mail Formel:

safe:= @Prompt([YesNo];"Safety First";"Are you sure you want to set this document to active?");   

@If(safe=1;
@Do(
   @Command([EditDocument]);
   @Do(@SetField("zeigestatus"; "active"));
   @Do(@SetField("Author"; ""));
   @Command([ViewRefreshFields]);
   @Do(@Command([FileSave]);
   FIELD SaveOptions := SaveOptions;
   @SetField("SaveOptions";"0");
   @MailSend( v_username ; add_berechtigte ; blindCopyTo ; "Your E-Mail address request" ; "Dear " +v_name ; "Für weitere Informationen klicken Sie bitte auf die Verknüpfung: "; [IncludeDoclink] : [Sign] ))
);
""
)

Das Problem ist nämlich das QuerySave. Wenn jetzt ein Feld nicht ausgefüllt ist und das im QuerySave überprüft wird, wird das Mail trotzdem verschickt, darum muss ich diese Formel in das QuerySave hinzufügen. Nur ich weiss nicht wie ich das als Skript schreiben soll:
@MailSend( v_username ; add_berechtigte ; blindCopyTo ; "Your E-Mail address request" ; "Dear " +v_name ; "Für weitere Informationen klicken Sie bitte auf die Verknüpfung: "; [IncludeDoclink] : [Sign] )

Mit freundlichen Grüssen
Thomas Flach

umi:
so mal zum Anfangen.


--- Code: ---
dim uiws as new notesuiworkspace
dim safe as variant
%rem
safe = uiws.prompt(PROMPT_YESNO,"Safety First","Are you...")
if safe = 1 then

end if
safe:= @Prompt([YesNo];"Safety First";"Are you sure you want to set this document to active?");   

@If(safe=1;
@Do(
   @Command([EditDocument]);
   @Do(@SetField("zeigestatus"; "active"));
   @Do(@SetField("Author"; ""));
   @Command([ViewRefreshFields]);
   @Do(@Command([FileSave]);
   FIELD SaveOptions := SaveOptions;
   @SetField("SaveOptions";"0");
   @MailSend( v_username ; add_berechtigte ; blindCopyTo ; "Your E-Mail address request" ; "Dear " +v_name ; "Für weitere Informationen klicken Sie bitte auf die Verknüpfung: "; [IncludeDoclink] : [Sign] ))
);
""
)

%endrem


--- Ende Code ---

Sieh dir mal die Notesuiworkspace und NotesuiDocument und NotesDocument Klassen an in der Designerhilfe

judicious:
Super Vielen Dank, das bringt mich bei einem anderen Problem schon viel weiter :)

Doch für mein jetztiges Problem brauche ich nur das in der Skript Sprache:
@MailSend( v_username ; add_berechtigte ; blindCopyTo ; "Your E-Mail address request" ; "Dear " +v_name ; "Für weitere Informationen klicken Sie bitte auf die Verknüpfung: "; [IncludeDoclink] : [Sign] )

ghost:
Versuche es mit der Send-Methode der NotesDocument Klasse.

Viele Grüße
ghost

ascabg:
Hi,

Und nicht zu vergessen die Klasse "NotesRichTextItem", da ja Doclinks versendet werden sollen.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite