Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Mails verschwinden aus Inbox - sind jedoch in alle Dokumente

<< < (3/3)

Peter S.:
Kommt bei uns auch sporadisch vor.
Vorgehensweise:
1. Neuen Ordner anlegen "Temp-Inbox"
2. Alle Mails aus der Inbox da reinschieben
3. Im Designer die Inbox löschen -> Order "($Inbox)"
4. Die Gestaltung des Mailfiles aktualisieren
5. Die Doks aus dem Temp-Ordner in die Inbox zurückschieben
6. Die fehlenden Doks aus "alle dokumente" in die Inbox schieben
7. Ordner "Temp-Inbox" löschen

fertich.

taheri:
eine  frage dazu?
stimmt die datum und uhrzeit auf dem Server?

schaumal auf datenbankeigenschaften und unter erstelldatum .
ist richtige Datum?

mfg

smoki:
In der Regel muss man einfach den Haken in der ($InBOx) setzten, dass es sich um die Default-Ansicht handelt.

Sollte der Haken gesetzt sein, diesen entfernen speichern und wieder rein tun und speichern.

Das hilft bei mir öfters.

Gruss
Chris

PSyc:
Hi,

das Problem haben wir ebenfalls ab und an ... die Inbox zerschießt sich einfach, wir benutzen dazu immer ein Mail mit einem Button und folgendem Script:

Dim s As New notessession
   Dim db As notesdatabase
   Dim fDoc As NotesDocument   ' Document in folder
   Dim ad As notesview         ' All Documents view
   Dim aDoc As notesdocument   ' document in All Docs view
   Dim fUNID() As String       ' array of UNID's of docs in folders
   Dim i As Integer            ' UNID array index
   Dim AnythingToDo As Integer
   Dim NL As String
   Dim OverAll As Integer
   
   NL = Chr$(10)+Chr$(13)
   i =0
   AnythingToDo = False
   Set db = s.CurrentDatabase
   
    ' Build UNID array by looping through folders, then their documents
   Print "collecting documents...."
   Forall view In db.views
      If view.IsFolder And Not view.Name=("($All)") Then
         Set fDoc = view.GetFirstDocument
         While Not fDoc Is Nothing
            Redim Preserve fUNID(i)
            fUNID(i) = fDoc.UniversalID
            i=i+1
            AnythingToDo = True
            Set fDoc = view.GetNextDocument(fDoc)
         Wend
      End If
   End Forall
   
   If AnythingToDo = False Then
      Beep
      Messagebox "There are no folders in the database."+NL+NL+"The agent can't resume." ,, "Problem"
      Exit Sub
   End If
   
    ' Loop through docs in the All Documents view and compare UNIDs to each doc in the array
   Set ad = db.GetView("($All)")
   Set aDoc = ad.GetFirstDocument
   While Not aDoc Is Nothing
      i = 0
      OverAll = Ubound(fUNID)
      
      Do While i <= Ubound(fUNID)
         If fUNID(i) = aDoc.UniversalID Then
            Exit Do 
         End If
         i = i + 1
      Loop
      If i > Ubound(fUNID) And adoc.HasItem( "DeliveredDate" ) Then               
         Call adoc.PutInFolder( "($Inbox)")
      End If
      
      Set aDoc = ad.GetNextDocument(adoc)
      If OverAll > i Then Print OverAll - i & " to process"
   Wend     
   
   Print "Transfer completed" 
End Sub

Danach sieht die Inbox aus wie neu, dauert jedoch nach Anzahl der Dokumente eine weile ...

Hoffe das hilft


Gruß PSyc

Steve_O.:
Hab ich´s überlesen oder steht niregens etwas von "updall -r" ?

Navigation

[0] Themen-Index

[*] Vorherige Sete