Hallo zusammen,
habe nun schon ganz viele Beiträge im Forum gelesen, aber stehe noch immer auf der Leitung und hoffe, dass mir jemand helfen kann.
Ich habe eine Notesdatenbank in der wir Verträge hinterlegt haben. Bei den Verträgen gibt es ein Datumsfeld. Wenn das Datum der heutige Tag ist, wird in der gleichen Datenbank ein Datensatz für unsere Aufgaben erstellt. In diesem neuen Datensatz möchte ich einen Dokumentlink auf den jeweiligen Vertrag einfügen. Das bekomme ich aber nicht hin. Mein Agent sieht wie folgt aus:
Sub Initialize
Dim s As New NotesSession
Dim dbCurrent As NotesDatabase
Set dbCurrent = s.CurrentDatabase
Dim docTech As NotesDocument
Dim docSource As NotesDocument
Dim docSourceHelp As NotesDocument
Dim viewMailSend As NotesView
Set viewMailSend = dbCurrent.GetView( "(HelpDeskAgent6)" )
Set docSource = viewMailSend.GetFirstDocument
While Not ( docSource Is Nothing )
Set docSourceHelp = viewMailSend.GetNextDocument( docSource )
Set docTech = dbCurrent.CreateDocument
docTech.Form = "TR-Vorgang"
docTech.Art = "Intern"
docTech.VorgangBearbeiter = "9"
docTech.TRDringlichkeit = "1"
docTech.VorgangTyp = "70"
docTech.Status = "Neu"
docTech.Status2 = "0"
docTech.VorgangThema = "Vertragsmanagement"
docTech.VorgangStichwort = docSource.VertraegeErinnerungBetreff(0)
Hier wollte ich den Link einfügen
'docTech.Vorgang = "DOKLING"
Call docTech.Save( True, True )
docSource.VertraegeErinnerung = Null
docSource.Form = "Vertraege"
Call docSource.Save(True, True)
Set docSource = docSourceHelp
Wend
End Sub
Kann mir jemand auf die Sprünge helfen?
Viele Grüße
