Hallo!
Ok, wenn das Dokument A schon gespeichert sein muss, damit ich einen DokLink erstellen kann, schieße ich mir, wenn ich nachträglich diesen link erstelle, die Signatur des Dokumentes zusammen...
Hier der Code.. Dieser Steht bei Doc A, wo ich den Doclink von Doc B machen möchte.
DocM entspicht in der obigen beschreibug 'A'
DocT = entspricht 'B'
Sub Postsave(Source As Notesuidocument)
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim MailID As String
Dim docM As NotesDocument
Dim docT As NotesDocument
Set db = ses.CurrentDatabase
If source.FieldGetText("p_status") = "Aufgenommen" Then
MailID = source.FieldGetText("p_fromMail")
If Not MailID = "" Then
Set docM = db.GetDocumentByUNID(MailID)
If Not docM Is Nothing Then
Set docT = source.Document
Set rtitemD = New NotesRichTextItem( docT, "Link" )
Call rtitemD.AppendDocLink( docM, "Mail Verknüpfung")
Call docT.Save(True, False, True)
End If
End If
End If
End Sub
