Domino 9 und frühere Versionen > Entwicklung

append doc link Methode

<< < (3/4) > >>

koehlerbv:
Nö, die Mail-DB ist nicht die Ziel-DB, AFAIK.
Was würde das aber für einen Unterschied machen ? Abgesehen davon, dass man dort nicht so ohne weiteres ... wegen Update-Fähigkeit ... und so weiter ... ?

Bernhard

TMC:

--- Zitat von: koehlerbv am 10.11.04 - 21:02:39 ---Was würde das aber für einen Unterschied machen ? Abgesehen davon, dass man dort nicht so ohne weiteres ... wegen Update-Fähigkeit ... und so weiter ... ?
--- Ende Zitat ---

Genau den Unterschied den Du erwähnst. Unter Abwägung der Vor- und Nachteile würde ich mich da ganz klar für Löschen entscheiden. Zumal wohl jeder Inhaber eines Mailfiles auch Löschrechte hat.

koehlerbv:
Jo, da hast Du wahr  ;)

Bernhard

kawie:
Hallo zusammen,

ich danke Euch nochmal für Eure Hilfe wobei ich immer noch nicht verstehe warum ich meine Erste varinte nicht nutzen konnte :-(

Wenn ich eine NotesDocument mit

doc = uidoc.document Deklariere ist doc Doch ein Backend Dokument und hat damit auch alle möglichkeiten oder??

Naja ich habe es jetzt so gemacht:


--- Code: ---Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Dim doc2 As NotesDocument
Dim rtitem As  NotesRichTextItem
Dim uidoc As NotesUIDocument
Dim uidoc2 As NotesUIDocument
Dim subject As String
Dim user As String
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument

Set doc2 = uidoc.Document

Set doc = New NotesDocument(db)

user = session.CommonUserName
subject = doc2.Knowhow_thema(0)
subject = "Neues Knowledge Dokument: " & subject
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AppendDocLink( doc2, db.Title )
doc.Form = "Memo"
doc.Subject = subject
doc.from = user
doc.type = "reply"
doc.copyto = user
Call doc.Save( False, True )
Set uidoc2 = workspace.EditDocument( True, doc)

End Sub
--- Ende Code ---


Das löschen lass ich im moment vom einem tägichen Agent machen.
Schicker wäre es natürlich nach dem versenden. Frage an Euch wäre wieso das unnötigen Ballast erzeugt?

Gruss

Kai

koehlerbv:
Das mit dem Erzeugen und Speichern eines Dokuments, dass danach sowieso wieder gelöscht werden soll, ist natürlich für eine Datenbank nicht so schön.

Man kann das Ganze in Ermangelung einer entsprechenden NotesUIDocument-Methode auch anders machen:

In der Maske des Dokuments, zu dem ein DocLink verschickt werden soll, gibt es einen Button (ist ja bestimmt jetzt schon der Fall). Dort stehen folgende @functions:


--- Code: ---@Command ([FileSave]);
@Command([EditMakeDocLink]) ;
@Command ([ToolsRunMacro]; "(CreateMemo)")
--- Ende Code ---

Der Agent "(CreateMemo)" enthält prinzipiell folgenden Code:

--- Code: ---Sub Initialize

Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim dbCurrent As NotesDatabase
Dim docMemo As NotesDocument
Dim uidocMemo As NotesUIDocument

Set dbCurrent = session.CurrentDatabase
Set docMemo = dbCurrent.CreateDocument

docMemo.Form = "Memo"

Set uidocMemo = ws.EditDocument (True, docMemo)

Call uidocMemo.GotoField ("Body")
Call uidocMemo.Paste

End Sub
--- Ende Code ---

Voila - der DocLink steht in einem ungespeicherten Dokument. Im QuerySave der Memo-Maske verhinderst Du noch, dass das Dokument gespeichert werden kann und machst das NotesDocument.Send.

HTH,
Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete