Domino 9 und frühere Versionen > Entwicklung

Anhänge gehen verloren

(1/2) > >>

ZaLudtske:
Hallo,

wir haben in einer unserer Datenbanken das seltsame Phänomen, das immer öfter Dateien die als Anhänge in einem Dokument gespeichert wurden nicht mehr geöffnet werden können. Das Icon ist zwar noch im RTF-Feld vorhanden, bei einem Doppelklick erhalten wir die Meldung 'Datei nicht vorhanden'. Bei einer Kontrolle der entsprechenden Dokumente ist mir aufgefallen, dass das oder die Felder $File verschwunden sind.

Eine Kontrolle der Ereignisse und Agenten hat nichts erbracht. Das RTF-Feld wird auch nirgends angepackt und überschrieben.

Hatte jemand schon mal dieses Verhalten? Wenn ja, wie wurde das Problem gelöst oder hat jemand eine Idee wie ich das Problem beseitigten könnte.

Rainer

Glombi:
Du könntest mal in den Dokumenteigenschaften nachsehen, wer das Dokument zuletzt wann geändert hat.
Wenn es bspw. der Server war, gibt es evtl. einen Hinweis im log.nsf des Servers.
Es könnte bspw. der Fixup sein, der beschädigte Dateien löscht.

Andreas

ZaLudtske:
Ich habe nachgesehen. Der Server war zwar der letzte der das Dokument bearbeite hatt, aber das war nur der Agent das Dokument abgeschlossen hat. Im Log habe ich auch keinen Hinweis bezüglich des gefunden. Hats du eventuell noch eine andere Idee?

Rainer

Glombi:
Was macht denn der Agent so? Kannst Du den Code posten?

ZaLudtske:
Hier ist der Code des Agenten


--- Code: ---Sub Initialize
                Set session = New NotesSession
                Set db = session.currentDatabase
                Set View = db.GetView("ADBInfoErledigt")
                Set doc = view.GetFirstDocument
                Do While Not (doc Is Nothing)
                                Empfänger = doc.Ersteller(0)

                                varKopie = doc.getitemvalue("Bearbeiter")

                                AuftNummer = doc.Auftragsnummer(0)
                                Betreff = doc.Betreff(0)
                                Set MailDoc = New NotesDocument( db )
' Maildoc.Body = "folgender Auftrag wurde zwischenzeitlich erledigt:   " & AuftNummer & "  " & Betreff
                                Maildoc.Form = "Memo"
                                Maildoc.From = "CN=SB94LN02/O=PLUSCARD/C=DE"
                                Maildoc.SendTo = Empfänger
                                Maildoc.CopyTo = varKopie
                                'Maildoc.Subject = "InfoBrief: Auftrag Nr. " & AuftNummer & " wurde erledigt:"
                                Maildoc.Subject = "InfoBrief: Auftrag ist erledigt: #" & AuftNummer & " " & Betreff
                                Set Rtitem = New NotesRichTextItem( MailDoc, "Body" )
                                Call rtitem.AppendDocLink ( doc, Maildoc.Subject( 0 ) )
                                Call rtitem.AddTab( 2 )
                                Call rtitem.AppendText( "Auftrag Nr.: ")
                                Call rtitem.AddTab( 1 )
                                Call rtitem.AppendText( AuftNummer)
                                Call rtitem.AddTab( 1 )
                                Call rtitem.AppendText( Betreff)
                                Call rtitem.Addnewline( 2 )
                                Call rtitem.AppendText( " Diese Mail wurde automatisch generiert." )
                                Call rtitem.Addnewline( 1 )
                                Call rtitem.AppendText( " Bei weiteren Fragen setzen Sie sich bitte mit dem Bearbeiter des Auftrags in Verbindung." )
                                Call Maildoc.Send(False)
' Setzen des ErledigtKZ auf "1", damit das Dokument nur einmal versendet wird
                                Doc.ErledigtKZ = "1"
' Speichern des Dokuments:
                                Set TempDoc = view.GetNextDocument(doc)
                                Call doc.save (True, True)
                                Set Doc = TempDoc
             Loop
End Sub

--- Ende Code ---

Mir ist an dem Agenten nichts besonders aufgefallen. Er ist bereits uralt und stammt von nicht mir. Außer dass das Feld ErledigtKZ gesetzt wird ist mir nichts besonderes aufgefallen.

Rainer

Navigation

[0] Themen-Index

[#] Nächste Seite