Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Sabine am 21.11.07 - 10:06:57

Titel: Auswahl als Tabelle kopieren
Beitrag von: Sabine am 21.11.07 - 10:06:57

Hallo,

so ganz habe ich die Hoffnung nach einer Lösung noch nicht aufgegeben, obwohl mir die Suche leider nicht weiter geholfen hat.

Aber vielleicht ist es unter 6.5.5. wirklich nicht möglich Teile einer Ansicht in ein Mail zu kopieren (Menüeintrag --> "Auswahl als Tabelle kopieren"). Ich benötige diese Funktion in einem Agenten, der durch klicken auf eine Aktionsschaltfläche ausgelöst werden soll.

Gibt es da eine Lösung? Eine Scriptklasse, die ich eventuell übersehen habe?



Dankeschön   :)

Sabine

Titel: Re: Auswahl als Tabelle kopieren
Beitrag von: Glombi am 21.11.07 - 10:14:53

Die Lösung heisst: Notes 8  ;)
Dort gibts das endlich als Befehl.

Andreas

Titel: Re: Auswahl als Tabelle kopieren
Beitrag von: Sabine am 21.11.07 - 10:17:37

Danke für die schnelle und kompetente Anwort  :)

Aber schade  :(

Sabine

Titel: Re: Auswahl als Tabelle kopieren
Beitrag von: koehlerbv am 24.11.07 - 14:07:17

Warum schade? Notes bietet aktuell die Möglichkeit, die Du suchst. Word für Windows 6 konnte auch noch keine Dokumente nach XML exportieren  ;D
Wenn Du nicht auf R8 upgraden kannst (was ich wegen der abschliessenden Null in der Versionsnummer auch nicht machen würde), kannst Du das gewünschte mit R6 immer noch selbst nachprogrammieren. Das entspricht dann zwar nicht perfekt den 8er Möglichkeiten, aber das eigentliche Ziel lässt sich auch so schon erreichen.

Bernhard

Titel: Re: Auswahl als Tabelle kopieren
Beitrag von: Sabine am 27.11.07 - 12:39:10

Danke Bernhard,

habe das Problem lösen können. Hier einen Auszug aus meinem Script. Vielleicht ein wenig umständlich, aber es funktioniert  :)

Gruß Sabine

Code

			REM Tablle erstellen in dem Body-Feld
			rowCount% = y '4 'das muß dynamisch gestaltet werden
			columnCount% = 4
			Call rtItem.AppendTable(rowCount%, columnCount%)
			
			Dim rtnav As NotesRichTextNavigator
			Set rtnav = rtItem.CreateNavigator
			Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL) 
			
			'Spalte 1 und Zeile 1
			For iRow% = 1 To 1 Step 1
				For iColumn% = 1 To 1 Step 1
					Call rtItem.BeginInsert(rtnav)
					richStyle.Bold = True 'Eigenschaft "fett"setzen
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft aktivieren	
					Call rtItem.AppendText("Abteilung / Standort")
					richStyle.Bold = False 'Eigenschaft "fett"ausschalten
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft deaktivieren	
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
				Next
			Next
			
			'Spalte 2 und Zeile 1
			For iRow% = 1 To 1 Step 1
				For iColumn% = 2 To 2 Step 1
					Call rtItem.BeginInsert(rtnav)
					richStyle.Bold = True 'Eigenschaft "fett"setzen
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft aktivieren	
					Call rtItem.AppendText("Zimmernummer")
					richStyle.Bold = False 'Eigenschaft "fett"ausschalten
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft deaktivieren	
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
				Next
			Next
			
			'Spalte 3 und Zeile 1
			For iRow% = 1 To 1 Step 1
				For iColumn% = 3 To 3 Step 1
					Call rtItem.BeginInsert(rtnav)
					richStyle.Bold = True 'Eigenschaft "fett"setzen
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft aktivieren	
					Call rtItem.AppendText("PC-Benutzer/in")
					richStyle.Bold = False 'Eigenschaft "fett"ausschalten
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft deaktivieren	
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
				Next
			Next
			
			'Spalte 4 und Zeile 1
			For iRow% = 1 To 1 Step 1
				For iColumn% = 4 To 4 Step 1
					Call rtItem.BeginInsert(rtnav)
					richStyle.Bold = True 'Eigenschaft "fett"setzen
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft aktivieren	
					Call rtItem.AppendText("Rechnername")
					richStyle.Bold = False 'Eigenschaft "fett"ausschalten
					Call rtitem.AppendStyle(richStyle) 'Eigenschaft deaktivieren	
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
				Next
			Next
			
			Set doc = collection.GetFirstDocument()
			While Not(doc Is Nothing)
				abt = doc.GetItemvalue( "Department" )(0)
				zimmernr = doc.GetItemvalue( "Location" )(0)
				strbenutzer = doc.GetItemvalue( "User" )(0)
				rname = doc.GetItemvalue( "AliasName" )(0)
				
				benutzer = Strleft(Strright(strbenutzer,", "),"|")
				
				
				For iRow% = 1 To 1 
		'			'Abteilung
					Call rtItem.BeginInsert(rtnav)
					Call rtItem.AppendText(abt)				
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
					
					'Zimmernummer
					Call rtItem.BeginInsert(rtnav)
					Call rtItem.AppendText(zimmernr)				
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
					
					'Benutzer
					Call rtItem.BeginInsert(rtnav)
					Call rtItem.AppendText(benutzer)				
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
					
					'Rechnername
					Call rtItem.BeginInsert(rtnav)
					Call rtItem.AppendText(rname)										
					Call rtItem.EndInsert
					Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)					
				Next
				Set doc = collection.GetNextDocument(doc)
			Wend