Werte aus Maske in neue Maske übernehmen

[Jens*]

Hallo,

ich habe ein kleineres Problem

In einer 1. Maske erstelle ich einen Text für eine Mail der sich aus mehreren Feldern zusammensetzt.

Intfeld:= Titel + @NewLine +@Text(Datum) + "/" + SitzungsOrt + @NewLine + @Text(Protokoll) + @NewLine; etc.

Nun möchte ich die Daten aus Intfeld mit in eine neue Maske übernehmen um diese dann später zusammen mit den Feldern aus der 2. Maske per Mail zu verschicken!

Meine Frage. Ist das generell möglich wie ich das vor habe oder kann ich das noch einfacher lösen?!

besten dank

MfG

Jens

[klaussal]

Hallo Jens,
willkommen im Forum.

Du solltest etwas präziser beschreiben, wie du das Feld übernehmen willst.
Vorab lesen in der Designer-Hilfe unter dem Suchbegriff "werte übernehmen". Da steht schon fast alles drin.

klaus

[boemitsu]

----
da hat wohl jemand in der gleichen zeit einen beitrag geschrieben....
---

ciao

generell gesagt brauchst du 2 dokumente, 1 oder mehr db's und einige felder...

mit script kannst du's ungefähr so  lösen

        Dim uiws As  New NotesUIWorkspace   
   Dim Session As New NotesSession   
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument   


   Set db=Session.CurrentDatabase
   Set newdoc=New NotesDocument(db)
   Set uidoc=uiws.CurrentDocument
   
        newdoc.DEINFELDIMNEUENDOK=uidoc.FieldGetText( "Intfeld" )
   
falls das andere dok in einer anderen db ist, brauchst du halt noch ein anderes NotesDatabase Objekt...

hope this helps

[Axel]

Hi,

erstelle dir in der 2.Maske ein Feld vom gleichen Typ, wie das, von dem du die Werte übernehmen willst. In den Vorgabewert trägst du den Feldnamen, des Feldes ein, von dem die Werte übernommen werden sollen. In den Maskeneigenschaften wählst du die Option "Formeln übernehmen Werte aus gewähltem Dokument".


Axel

[Jens*]

Hallo,

@ Axel
das ist glaub ich das enfachstes, hab ich an einer andere Stelle auch schon gemacht. Hätte ich ja mal früher drauf kommen können

@boemitsu
danke auch dir, nur notes skript ist nicht so ganz mein ding.

@klauss
die ist englisch  obwohl notes deutsch ist. Evtl. ne Idee wo bzw. wie man die Sprache der hilfe ändern kann?

grüße
Jens

[Axel]

die ist englisch  obwohl notes deutsch ist. Evtl. ne Idee wo bzw. wie man die Sprache der hilfe ändern kann?

Die Designer-Hilfe gibt's meines Wissens nur in englischer Sprache.


Axel

[diali]

beim deutschen Client ist die Designer-Hilfe in englisch (Jave, LotusScript, Formeln) und in deutsch (Formeln und Rest).

[Mandalor]

ich stehe mit der Sprache von der Insel auch auf Kriegsfuß, aber in Notes kommt man da nicht dran vorbei.

[Jens*]

Es soll ein Formular (war schon in einer älteren Version vorhanden)
über einen Button verschickt werden


Folgender Fehler:


und folgender Code:

Code

Sub Click(Source As Button)
	Dim workspace As New notesuiworkspace
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim memo As notesdocument
	Dim rtitem As NotesRichTextItem
	Dim uidoc As notesuidocument	
	Dim doc As notesdocument
	Dim sendto As String
	Dim subject As String
	Dim body As String
	Dim StartDate As String
	Dim DueDate As String
	Dim Top As String
	
	Set uidoc = workspace.currentdocument
	
	Set db = session.currentdatabase
	
	'Neues Dokument in der aktuellen Datenbank erzeugen
	'Maske = memo
	'Feldwerte des neuen Dokuments werden so gesetzt, dass es später versendet werden kann	
	Set memo = New NotesDocument( db )
	Top = uidoc.fieldgettext ("Top_to_order")
	memo.form = "memo"	
	sendto = uidoc.fieldgettext("Verantwortlicher_Char")
	memo.Subject = "Aufgabe zu Protokoll vom " + Date +" : " + Top 
	memo.SendTo = sendto
	
	'Dem neu erzeugten Dokument wird ein DocLink hizugefügt	
	Set rtitem = New NotesRichTextItem( memo, "Body" )
	Set doc = uidoc.document
	Call rtitem.AppendDocLink( doc, "" )
	Call rtitem.Appendtext("      Hier ist ein Link zum Dokument")
	
	
	'Nach der Abfrage ob das Dokument gesendet werden soll, wird das Dokument per Mail an den Emfänger gesendet oder nicht
	If Messagebox ("Sind Sie sicher, dass Sie diese Aufgabe senden wollen", 4 + 32, "Lotus Notes") = 6 Then
		Messagebox "Der Auftrag wurde an " + sendto + " gesendet", 0 + 64, "Lotus Notes"
		Continue = True
		memo.Send( False )
	End If
	uidoc.editmode = True
	Call uidoc.fieldsettext("sent", "1")
	Call uidoc.save
	'Call uidoc.close
End Sub

Wo könnte der Fehler liegen?

bin für jeden tip dankbar..

jens

[diali]

Definiere in der erwähnten DB eine Ansicht als Default.

[Jens*]

super danke :-)