Domino 9 und frühere Versionen > ND6: Entwicklung

Auswahl als Tabelle kopieren

(1/1)

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  ;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

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
--- Ende Code ---

Navigation

[0] Themen-Index