%REM
Function getTargetDoc
Description: Comments for Function
%END REM
Function getTargetDoc(doc As NotesDocument) As NotesDocument
Dim dbTarget As NotesDatabase
Dim docResult As NotesDocument
'Zieldatenbank öffnen
Set dbTarget = getTargetDB(doc)
If Not dbTarget Is Nothing Then
'Zieldokument öffnen
Set getTargetDoc = dbTarget.Getdocumentbyunid(CStr(doc.Getitemvalue(FLDTARGETUNID)(0)))
End If
End Function
Ich weiss das ich die Problemlösung hier mal gesehen habe, aber die Suche zeigt es mir nicht.
Nun zum Problem. die Funktion gibt mir kein Dokument zurück, obwohl Sie Sie zum Exit Function hin ein Dokument im Zugriff hat, also getTargetDoc gesetzt ist.
So habe die Funktion wie vorgeschlagen geändert also
Function getTargetDoc(dbTarget as NotesDatabase, doc As NotesDocument) As NotesDocument
, damit läuft auch alles wie gewünscht.
Habe die anderen Threads auch gelesem.
Danköööööööööö (ist ja bald WM)