Script um leere Inbox zu reparieren

Hallo,

ich habe momentan das Problem, das die Inbox leer ist, und ich die alten/neuen Mails nur noch über "Alle Dokumente" sehen kann.

Das alte Problem mit 2 ($Inbox) Ordnern ist es leider nicht :-?

Hier habe ich ein Script gefunden, was dieses beheben können soll.

Nachdem ich herausgefunden hatte, das die Semikolons und anführungszeichen im Quelltext nicht als solche erkannte werden (nach Copy&Paste), musste ich leider feststellen das das Script nicht durchläuft und irgendwie bei ($Trash)" hängenbleibt, also habe ich es ein bisschen ergänzt (ich habe keine Ahnung von LotusScript, aber das habe ich gerade so hinbekommen Habe diese Zeile erweitert:
If view.IsFolder And Not view.Name="($All)" And Not view.Name="($Trash)" Then
)

Sub Initialize
	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 deldate As notesitem
	Dim Chair1 As notesitem

	i =0
	Set db = s.CurrentDatabase

	Redim fUNID(0)

' Build UNID array by looping through folders, then their documents
	Forall view In db.views
		If view.IsFolder And Not view.Name="($All)" And Not view.Name="($Trash)" Then
			Set fDoc = view.GetFirstDocument
			While Not fDoc Is Nothing
				Redim Preserve fUNID(i)
				fUNID(i) = fDoc.UniversalID
				i=i+1
				Set fDoc = view.GetNextDocument(fDoc)
			Wend
		End If
	End Forall

'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
		Do While i <= Ubound(fUNID)
			If fUNID(i) = aDoc.UniversalID Then
				Exit Do 
			End If
			i = i + 1
		Loop
		Set deldate = adoc.getfirstitem(“delivereddate”)
		Set Chair1 = adoc.getfirstitem(“CHAIR”)
		If i > Ubound(fUNID) And Not deldate Is Nothing And Chair1 Is Nothing Then
			Call adoc.PutInFolder( "($Inbox)")

		End If
		Set aDoc = ad.GetNextDocument(adoc)
	Wend
End Sub

Es läuft zwar jetzt weiter, aber bleibt wieder irgendwo stehen. Da ich wie gesagt ein Laie auf dem Gebiet bin, wäre ich sehr dankbar für Ideen woran es hängt wäre ich sehr dankbar

Die Fehlermeldung die nun kommt ist:
"You must provide an item name"
dann
"Document has been deleted" (2 mal)

Danke für die Müh die ich gemacht habe

joerg

Hi

@RockWilder:Leider hatte ich das natürlich als erstes probiert :-x Bringt aber nichts.

@Steve_O.:Das habe ich soeben getan, und wie befürchtet bringt es nichts :-?

Der Autor des Skriptes da oben meint, das den Mails nur die Information fehlt, in welchen Ordner sie gehören.
Sollte es eine weitere Idee für einen einfachen Weg geben, bitte sagt es mir

Danke schonmal für die Mühe die ich gemacht gemacht habe
Joerg

Hi,

welcher der beiden letzten Tipps es war, kann ich leider nett mehr sagen, aber einer hat definitiv geholfen

Danke
Joerg