Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: ZaLudtske am 21.11.07 - 07:39:32

Titel: Anhänge gehen verloren
Beitrag von: ZaLudtske am 21.11.07 - 07:39:32

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

Titel: Re: Anhänge gehen verloren
Beitrag von: Glombi am 21.11.07 - 07:57:34

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

Titel: Re: Anhänge gehen verloren
Beitrag von: ZaLudtske am 21.11.07 - 08:43:05

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

Titel: Re: Anhänge gehen verloren
Beitrag von: Glombi am 21.11.07 - 09:39:09

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

Titel: Re: Anhänge gehen verloren
Beitrag von: ZaLudtske am 21.11.07 - 10:07:31

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

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

Titel: Re: Anhänge gehen verloren
Beitrag von: Glombi am 21.11.07 - 10:28:07

Das sieht nun ja mal harmlos aus.

Läuft evtl. ein Virenscanner auf dem Domino Server?

Titel: Re: Anhänge gehen verloren
Beitrag von: ZaLudtske am 21.11.07 - 10:41:27

Ja, der Sophos Antivirus inder Version 7.0.4

Titel: Re: Anhänge gehen verloren
Beitrag von: Glombi am 21.11.07 - 10:50:30

Und packt der auch die Dokumente in der Datenbank an?
Normalerweise schreiben die Anti Viren Tools bestimmte Felder, die Du in den Dokumenteigenschaften sehen solltest.

Andreas

Titel: Re: Anhänge gehen verloren
Beitrag von: ZaLudtske am 21.11.07 - 11:06:34

Es scheint so als würde nur der Mailverkehr gescannt werden. Die Anwendungen werden anscheinend nicht untersucht. Näheres muß ich aber bei unserem Netzwerk-Admin erfragen. Der ist zur Zeit in einer Sitzung.

In den Dokumenten konnte ich keine zusätzlichen Felder finden die auf einen Virenscanner schließen liesen.

Rainer

Titel: Re: Anhänge gehen verloren
Beitrag von: ZaLudtske am 21.11.07 - 12:29:04

Ich habe jetzt mit unserem Admin gesprochen. Der Viren-Scanner scannt nur die Mails und die Dateien auf dem Server aber nicht die Datenbanek und ihre Dokumente.

Rainer