datenbankverknüpfung in mail erstellen?

[DaemoN]

hallo leute!

ich suche eine möglichkeit in das bodyfeld eines memos per lotusscript - oder auch formelsprache mit evaluate eingebunden - eine datenbankverknüpfung reinzubekommen. per AppendDocLink funktioniert eine dokumentenverknüpfung, ich brauch aber eine datenbankverknüpfung. kann mir da jemand weiterhelfen oder geht das gar nicht?

bin für feedback dankbar!

[Driri]

Geht eben genau mit AppendDocLink. Siehe dazu auch die Designer-Hilfe.

[DaemoN]

ja hast recht, funktioniert aber leider trotzdem nicht in dieser form - siehe script. das problem ist wohl das richtextfeld. weder text noch db verknüpfung werden im textfeld des memos angezeigt. wie bekomm ich das noch hin? besten dank.


Set memodoc = New NotesDocument(memodb)
Set body = New NotesRichtextItem(memodoc, "Body")
memodoc.form = "Memo"
memodoc.SaveMessageOnSend = False
memodoc.Subject = ""
memodoc.SendTo = Fulltrim(empf)
memodoc.NotOnlyBCC = "1"
   
Call body.AddNewline(2)
Call body.AppendText ("Link zur Veranstaltungen DB: ")
Call body.AppendDocLink(db,"Datenbanklink")

Set uidoc = uiws.EditDocument(True, memodoc)

[BigWim]

Bemühe mal die Forensuche zu Rich Text Feldern, denn da kann man vieles falsch machen.

Ich habe mal damit gespielt und soweit ich das noch in Erinnerung habe, mußt Du den BackEnd-Dokument mindestens speichern!

Markus

[mase]

Du hast aber sicherlich die "db" in Deinem Script vorher gesetzt oder?

Gruß

Mark

[Johnson]

Probiere mal ein

Call body.Update

bevor du das Dokument öffnest

[DaemoN]

Probiere mal ein

Call body.Update

bevor du das Dokument öffnest

warum kompliziert wenn es doch so einfach ist ... wenn man's weiss
danke dir vielmals für den tipp. funktioniert astrein!

memo speichern ist nicht schön und db hab ich natürlich vorher gesetzt. selbst wenn nicht hätte es mir wenigstens den text anzeigen müssen aber mit der variante von Johnson ist alles gut.

danke für eure hilfe!!

[Johnson]

Und ein Backend-Dokument muss nicht umbedingt gespeichert werden.

Außer und nur dann, wenn man im Frontend manuell Änderungen im RTI gemacht hat und ohne zu speichern das Feld noch im Backend bearbeitet.

Code

Sub Click(Source As Button)
	
	Dim uiws As NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim rti As NotesRichTextItem
	
	Set uiws = New NotesUIWorkspace
	Set uidoc = uiws.CurrentDocument
	Set doc = uidoc.Document
	
	doc.SaveOptions = 0
	Call uidoc.Close(True)
	Set uidoc = Nothing
	If Not(doc.HasItem("Body")) Then
		Set rti = doc.CreateRichTextItem("Body")
	Else
		Set rti = doc.GetFirstItem("Body")
	End If
	Call rti.EmbedObject(1454, "Test", "C:\test.txt")
	Set uidoc = uiws.EditDocument(True, doc, False)
	Set doc = uidoc.Document
	Call doc.RemoveItem("SaveOptions")
	
End Sub

Aber DaemoN erstellt erst ein Backend-Dokument, bearbeitet das RTI und bringt es dann erst ins Frontend. Ein Update reicht dafür.

[BigWim]

@Johnson

>Und ein Backend-Dokument muss nicht umbedingt gespeichert werden.
Danke für die Info. Ich werde mein Forschungsprojekt noch einmal ausgraben und gucken, warum ich da so Probleme hatte ...

Markus

[Johnson]

  Ich hatte das Problem auch. Ich glaube unter R5 war es nicht so einfach.