Domino 9 und frühere Versionen > ND6: Entwicklung

Maske weiterleiten

<< < (2/2)

koehlerbv:
Du müsstest Deinen Code wie folgt ergänzen:

Dim workspace As New NotesUIWorkspace
Dim uidoc1 As NotesUIDocument
Dim uidoc2 As NotesUIDocument
Set uidoc1 = workspace.CurrentDocument
Call uidoc1.Forward
Set uidoc2 = workspace.CurrentDocument   
Call uidoc2.FieldSetText ("EnterSendTo", "kuno.killerkarpfen@fischteich.de")

uidoc1 ist Dein geöffnetes Mail (im FrontEnd, daher ja NotesUIDocument).
uidoc1 wird ge-forwarded, das neue Memo wird als uidoc2 instantiiert.
Und dort wird nun das Feld "EnterSendTo" belegt.

HTH,
Bernhard

LUSBernd:
Danke, funktioniert.   ;D

Habe jetzt nur noch ein bischen was geändert. Nämlich das er mir aus meiner Maske die Ausgewählte Person rausnimmt.

Dim workspace As New NotesUIWorkspace
Dim uidoc1 As NotesUIDocument
Dim uidoc2 As NotesUIDocument
Set uidoc1 = workspace.CurrentDocument
Call uidoc1.Forward
Set uidoc2 = workspace.CurrentDocument   
Call uidoc2.FieldSetText ("EnterSendTo", uidoc1.fieldgettext("SendTo"))

Dieses Forum ist mal wieder Top. Und am Wochenende zünde ich mit den ganzen dämlichen und viel zu teuren Büchern über Notes meinen Grill an!!!

Navigation

[0] Themen-Index

[*] Vorherige Sete