Userrollen & Mail Senden per Lotus Script

[wuwu]

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

[Axel]

Hi

zu 1.

Das kannst du z.B. so machen

doc.Feldname = Evaluate(@UserRoles)


zu 2.

Wie sieht denn der Code aus?


Axel

[wuwu]

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

[Axel]

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

[wuwu]

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

[Axel]

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