Auswahl als Tabelle kopieren

[Sabine]

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

[Glombi]

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

Andreas

[Sabine]

Danke für die schnelle und kompetente Anwort 

Aber schade 

Sabine

[koehlerbv]

Warum schade? Notes bietet aktuell die Möglichkeit, die Du suchst. Word für Windows 6 konnte auch noch keine Dokumente nach XML exportieren 
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

[Sabine]

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