Fehlermeldung "Datei nicht vorhanden...."

[KiTaMann]

Hallo zusammen,

ich versuche gerade, den Standardschriftwechsel im Hause zu automatisieren.

Eine außergewöhnliche Fehlermeldung bereitet mir Kopfzerbrechen:

Aus der Ansicht unserer Kundendatenbank habe ich über einen Aktionsknopf die Möglichkeit, verschiedene Arten von Anschreiben zu erstellen.

Beispiel: "Schulungsangebot"

Das Skript:

Sub CreateAnschreibenSchAng()

Dim session As New NotesSession
Dim db As NotesDatabase
Dim Korr As NotesDatabase
Dim col As NotesDocumentCollection
Dim view As NotesView
Dim item As NotesItem
Dim Doc As NotesDocument
Dim KorrDoc As NotesDocument
Dim Anrede As String
Dim message As String
Dim usw...


Set db = session.CurrentDataBase
Set col = db.UnprocessedDocuments
Set Korr = session.GetDatabase("Server","develop\Korrespondenz.nsf")
If Not Korr.IsOpen Then Call Korr.Open("","")

If col.count = 0 Then
Msgbox "Bitte wählen Sie aus, wen Sie anschreiben möchten"
Elseif col.count > 0 Then
message = Msgbox (Cstr(col.count) & " Anschreiben erstellen?", 32, "Möchten Sie ...")
End If

For Anzahl = 1 To col.count

Set Doc = col.GetNthDocument(Anzahl)

Set item = Doc.GetFirstItem("KdNr")
KdNr = Trim(item.text)

Set item = usw....


Set KorrDoc = New NotesDocument(Korr)

KorrDoc.Form = "Schulungsangebot"
...usw.

Call KorrDoc.ComputeWithForm(False,False)
Call KorrDoc.save(True,True)


Next

End Sub


Jetzt kommt die Meldung:

"Datei nicht vorhanden: Korrespondenz.nsf"


Aaabär:

Das Doc wird trotzdem in der "nicht vorhandenen DB" erzeugt.

Der debugger hakt nicht ein und meckert nicht ...


 

Wer kann helfen?

[Glombi]

Hi Klaus,

Ändere bitte mal
Set Korr = session.GetDatabase("<server>","develop\Korrespondenz.nsf")
If Not Korr.IsOpen Then Call Korr.Open("","")

ab in

Set Korr = New NotesDatabase("","")
call Korr.Open("<server>","develop\Korrespondenz.nsf")
if Not Korr.IsOpen then
msgbox "Datenbank Korrespondenz konnte nicht geöffnet werden!",0+16,"Abbruch"
exit sub
End if


Gruß
Andreas

[KiTaMann]

Hallo, Andreas,

besten Dank, aber das Ergebnis ist identisch...

... das Skript macht, was es soll und nach getaner Arbeit kommt ein lapidares

"Datei nicht vorhanden: "

Ich meine, grundsätzlich ist ja alles so, wie es sein soll, die Docs werden erzeugt und abgelegt, können weiter be- und verrbeitet werden, aber eine derartige Fehlermeldung trägt dann doch nicht gerade zur Beruhigung bei...

[Glombi]

Kommentiere mal das
Call KorrDoc.ComputeWithForm(False,False)
aus.

Vielleicht kommt die Meldung durch eine Formel in der Maske...

Andreas

[KiTaMann]

Hilft nix, Andreas...


... hab's mal auskommentiert, aber das einzige Resultat ist, dass
das Doc in der "Ansicht nach Datum" als "Nicht kategorisiert" angezeigt wird ...


Meldung bleibt bestehen - kann es an der DB selbst liegen?

[Glombi]

Wenn die Datenbank auf dem selben Server liegt wie db dann so:

Anstelle von
call Korr.Open("<server>","develop\Korrespondenz.nsf")
ein
call Korr.Open(db.Server,"develop\Korrespondenz.nsf")


Ansonsten kapiere ich nicht, wie Notes das Backenddokument anlegen kann und dann zum Schluss rummeckert 

Du kannst Dir im Debugger mal die Eigenschaften von "Korr" ansehen, vielleicht gibts ja eine Auffälligkeit,

Andreas

[KiTaMann]

nix Außergewöhnliches im debugger!

Das Tollste ist ja, dass das Ganze mit anderen Datenbanken funktioniert - mit annähernd denselben Skripts erstelle ich in anderen DBs Rechnungen, Buchungen, etc.

 

[Tode]

das ist doch ganz einfach: Da das Script ohne Fehler durchläuft, und die Fehlermeldung sogar nach dem End Sub kommt, kommt diese NICHT aus dem Script selbst...

du rufst die Sub "CreateAnschreiben" ja sicher von irgendwo anders auf. Und danach kommt dann halt noch weiterer Code (eventuell Formel- Code z.B. über einen zweiten Agenten oder wie auch immer), der diesen Fehler wirft.

Vom geposteten Code kommt die Meldung nämlich mit ziemlicher Sicherheit NICHT.

Tode