der Titel oder Alias würde auch funktionieren. Aber wie kann ich diesen mit @Funktionen oder Befehlen ermitteln?
Der Code soll aus der Symbolleiste heraus auf alle Datenbanken laufen.
Danke und Gruß
Dirk
NotesURl in Zwischenablage kopieren
- Diali
- Erledigt
-
-
In einem Button in der Toolbar funktioniert das mit @ViewTitle anstelle der 0
-
Hier noch die Version um dein Problem mit der View zu erledigen
Beachte aber das diese Variante des Kopierens nur funktioniert, wenn es auch möglich ist eine Mail zu erstellen.
Also wenn der User im Netz ist oder wenn nicht eine lokale Replik hat.PHP
Alles anzeigen@Command([EditMakeDocLink]); @Command([MailComposeMemo]); @UpdateFormulaContext; @Command([EditGotoField]; "Subject"); @Command([EditPaste]); elements := @Explode(Subject; "<"); replica := @Left(@Right(elements[3] ; "REPLICA ");">"); view := @Left(@Right(elements[4] ; "VIEW ");">"); docid := @Left(@Right(elements[5] ; "NOTE ");">"); server := @Right(elements[6] ; "HINT>"); uri := "notes://" + server + "/" + replica + "/" + view + "/" + docid; @Command([EditGotoField]; "Subject"); @Command([EditSelectAll]); @Command([EditInsertText];uri); @Command([EditSelectAll]); @Command([EditCopy]); @SetField("MailSaveOptions";@DeleteField); @SetField("SaveOptions";"0"); @SetField("MailOptions";"0"); @Command([FileCloseWindow]) -
super - habe noch die Formatierung der IDs und des Servernamen angepasst.
PHP
Alles anzeigentr := "/"; @Command([EditMakeDocLink]); @Command([MailComposeMemo]); @UpdateFormulaContext; @Command([EditGotoField]; "Subject"); @Command([EditPaste]); elements := @Explode(Subject; "<"); replica := @ReplaceSubstring(@Left(@Right(elements[3] ; "REPLICA ");">");":";""); view := @ReplaceSubstring(@Left(@Right(elements[4] ; "VIEW ");">");":" : "-": "ON" : "OF" ; ""); docid := @ReplaceSubstring(@Left(@Right(elements[5] ; "NOTE ");">");":" : "-" : "ON" : "OF" ; ""); server := @Name([CN];@Right(elements[6] ; "HINT>")); uri := "notes:" + tr + tr + server + tr + replica + tr + view + tr + docid; @Command([EditGotoField]; "Subject"); @Command([EditSelectAll]); @Command([EditInsertText];uri); @Command([EditSelectAll]); @Command([EditCopy]); @SetField("MailSaveOptions";@DeleteField); @SetField("SaveOptions";"0"); @SetField("MailOptions";"0"); @Command([FileCloseWindow])@edit
Fehler in der View- und Doc-ID behoben
Zeilen:
view := @ReplaceSubstring(@Left(@Right(elements[4] ; "VIEW ");">");":" : "-": "ON" : "OF" ; "");
docid := @ReplaceSubstring(@Left(@Right(elements[5] ; "NOTE ");">");":" : "-" : "ON" : "OF" ; "");