Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: wuwu am 14.01.05 - 09:13:48
-
Hallo,
1.) ich schaffe es leider nicht, ein Feld per Lotus Script mit der aktuellen Rolle des Users zu füllen.
2.) das Mail Senden über Evaluate möchte auch nicht so wie ich es will bzw. es wird kein Mail verschickt.
Hat jemand vielleicht ein Codebeispiel auf Lager, danke im vorhinein.
Mfg
-
Hi
zu 1.
Das kannst du z.B. so machen
doc.Feldname = Evaluate(@UserRoles)
zu 2.
Wie sieht denn der Code aus?
Axel
-
zu 1:
im QuerySave:
Dim value As Variant
value = "Probe / Untersuchungen: " + doc.Inputpu(0) + Chr$(13) +Evaluate(@UserRoles)
doc.history = value
das funtkioniert leider nicht, habe ich jetzt ausprobiert!
zu 2:
im QuerySave
Dim result As Variant
Const MailSend$ =(|@MailSend(SendTo;"";"";"Neu";"";"Es -> ";[IncludeDoclink])|)
result=Evaluate(MailSend$,doc)
Wie könnte ich diese Funktion in einem Button testen oder unter QuerySave?
Danke vorerst für die Hilfe!
mfg
-
Hi,
zu 1:
Ersetze mal die + - Zeichen durch &. Strings werden in LS mit & verkettet.
Außerdem vermischt du hier Datentypen (String und Variant). Bin mir nicht sicher ob das so funktioniert.
Hat der User immer nur eine Rolle? Wenn ja, würde ich das mal so versuchen:
Dim value As String
value = "Probe / Untersuchungen: " & doc.Inputpu(0) & Chr$(13) & CStr(Evaluate(@UserRoles)(0))
doc.history = value
Zu 2:
Packt den Code in einen Button und Initialisiere die Variable doc. Dann kannst du es testen.
Axel
-
zu 1: der Code in einem Button:
Dim value As Variant
value = "Probe / Untersuchungen: " & Cstr(Evaluate(|@UserRoles|))
Msgbox value
-> Type mismatch
zu 2:
ich weis nicht genau wie ich das im Button initaliseiren mus, Workspace, oder Backend, kannst du mir da helfen?
mfg
-
Hi,
zu 1
Hier fehlt was.
Dim value As Variant
value = "Probe / Untersuchungen: " & Cstr(Evaluate(|@UserRoles|)(0))
Msgbox value
zu 2
Dim ws As New NotesUIWorkspace
Dim uidoc As NotwesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
...
Axel