Inbox disappeared from view

[Database Administrator]

Hi there.

I have a lotus s notes client running 5.0.12 and the server is running the
same version.

Suddenly the inbox disappeared from a users mailfile and i cant get it back.
The inbox does not show when i hold down Shift and CTRL key together and
open the mailfile. Neither opening the mailfile from another notes client
helps, so this is something on the server.The use now has to use the folder
"All documents" to see his new mails.

Is there any solution to this problem?


Regards

Mailman

[Database Administrator]

Replace the design on his mail database. The user most likely deleted his
inbox. I have seen this before. Just open his/her mail and then choose
FILE, DATABASE, REPLACE DESIGN. Choose the appropriate mail template off
your server and click the replace button. Then, close and re-open their
mail file (sometimes you have to restart Notes).

--
Dan
danielj@danieljweb.net
"MailMan" wrote in message
news:40ac7bc7$1@news.wineasy.se...
> Hi there.
>
> I have a lotus s notes client running 5.0.12 and the server is running the
> same version.
>
> Suddenly the inbox disappeared from a users mailfile and i cant get it
back.
> The inbox does not show when i hold down Shift and CTRL key together and
> open the mailfile. Neither opening the mailfile from another notes client
> helps, so this is something on the server.The use now has to use the
folder
> "All documents" to see his new mails.
>
> Is there any solution to this problem?
>
>
> Regards
>
> Mailman
>
>

[Database Administrator]

Oh one last thing . . . While this will put their INBOX folder back into the
database, it will be EMPTY until they start receiving new mail messages.
Only those new mail messages received AFTER this design replace will appear
in the Inbox. The other messages that used to be in it will have to be
accessed from the All Documents view. They can, of course, drag whatever
they want from the All Docs view back to the Inbox.

--
Dan
danielj@danieljweb.net
"MailMan" wrote in message
news:40ac7bc7$1@news.wineasy.se...
> Hi there.
>
> I have a lotus s notes client running 5.0.12 and the server is running the
> same version.
>
> Suddenly the inbox disappeared from a users mailfile and i cant get it
back.
> The inbox does not show when i hold down Shift and CTRL key together and
> open the mailfile. Neither opening the mailfile from another notes client
> helps, so this is something on the server.The use now has to use the
folder
> "All documents" to see his new mails.
>
> Is there any solution to this problem?
>
>
> Regards
>
> Mailman
>
>

[Database Administrator]

I have a script to rebuild the inbox. The script basically scans all the
documents in the mail file and moves the documents not filed in any other
folder to inbox. email me @ kboorgu@hotmail.com if you need the script..

Kushal


"Dan Juarez" wrote in message
news:BN-dnREds5iLJivd4p2dnA@comcast.com...
> Replace the design on his mail database. The user most likely deleted his
> inbox. I have seen this before. Just open his/her mail and then choose
> FILE, DATABASE, REPLACE DESIGN. Choose the appropriate mail template off
> your server and click the replace button. Then, close and re-open their
> mail file (sometimes you have to restart Notes).
>
> --
> Dan
> danielj@danieljweb.net
> "MailMan" wrote in message
> news:40ac7bc7$1@news.wineasy.se...
> > Hi there.
> >
> > I have a lotus s notes client running 5.0.12 and the server is running
the
> > same version.
> >
> > Suddenly the inbox disappeared from a users mailfile and i cant get it
> back.
> > The inbox does not show when i hold down Shift and CTRL key together and
> > open the mailfile. Neither opening the mailfile from another notes
client
> > helps, so this is something on the server.The use now has to use the
> folder
> > "All documents" to see his new mails.
> >
> > Is there any solution to this problem?
> >
> >
> > Regards
> >
> > Mailman
> >
> >
>
>


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.691 / Virus Database: 452 - Release Date: 5/26/2004

[Database Administrator]

Sounds like a useful script. Maybe you could post it here?

--
Dan
danielj@danieljweb.net

"Komali Chitta" wrote in message
news:8W2vc.10009$hB2.1563@nwrdny03.gnilink.net...
> I have a script to rebuild the inbox. The script basically scans all the
> documents in the mail file and moves the documents not filed in any other
> folder to inbox. email me @ kboorgu@hotmail.com if you need the script..
>

[Database Administrator]

Here is the script - put this as a button in a memo form within the same
mail file where you need to rebuild the inbox.

----------------------------------------------------------------------------
----
Sub Click(Source As Button)

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 MailCount As Integer
Dim LoopCount As Double

i =0
MailCount = 0
LoopCount = 0
Set db = s.CurrentDatabase

' Build UNID array by looping through folders, then their documents
Forall view In db.views
If view.IsFolder And Not view.Name=("($All)") Then
Print "Scanning - " & view.name
Set fDoc = view.GetFirstDocument
While Not fDoc Is Nothing
LoopCount = LoopCount + 1
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
Print "Adding documents to the Inbox"
Set ad = db.GetView("($All)")
Set aDoc = ad.GetFirstDocument
While Not aDoc Is Nothing
i = 0
Do While i <= Ubound(fUNID)
LoopCount = LoopCount + 1
If fUNID(i) = aDoc.UniversalID Then
Exit Do
End If
i = i + 1
Loop
If i > Ubound(fUNID) And (adoc.form(0) = "Memo" Or adoc.form(0) = "Reply"
Or adoc.form(0) = "Reply With History") And adoc.DeliveredDate(0) <> "" Then
MailCount = MailCount + 1
Print MailCount & " documents added to inbox"
Call adoc.PutInFolder( "($Inbox)")

End If
Set aDoc = ad.GetNextDocument(adoc)
Wend
Messagebox"Process completed. "
End Sub

----------------------------------------------------------------------------
-------------

"Dan Juarez" wrote in message
news:3dWdnWgs07XfKCDd4p2dnA@comcast.com...
> Sounds like a useful script. Maybe you could post it here?
>
> --
> Dan
> danielj@danieljweb.net
>
> "Komali Chitta" wrote in message
> news:8W2vc.10009$hB2.1563@nwrdny03.gnilink.net...
> > I have a script to rebuild the inbox. The script basically scans all the
> > documents in the mail file and moves the documents not filed in any
other
> > folder to inbox. email me @ kboorgu@hotmail.com if you need the script..
> >
>
>


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.691 / Virus Database: 452 - Release Date: 5/26/2004

[Database Administrator]

Thx guys. The replace Design made the trick.


Regards

Mailman
"Dan Juarez" wrote in message
news:WPmdnSKp9p4ZJivdRVn-gg@comcast.com...
> Oh one last thing . . . While this will put their INBOX folder back into
the
> database, it will be EMPTY until they start receiving new mail messages.
> Only those new mail messages received AFTER this design replace will
appear
> in the Inbox. The other messages that used to be in it will have to be
> accessed from the All Documents view. They can, of course, drag whatever
> they want from the All Docs view back to the Inbox.
>
> --
> Dan
> danielj@danieljweb.net
> "MailMan" wrote in message
> news:40ac7bc7$1@news.wineasy.se...
> > Hi there.
> >
> > I have a lotus s notes client running 5.0.12 and the server is running
the
> > same version.
> >
> > Suddenly the inbox disappeared from a users mailfile and i cant get it
> back.
> > The inbox does not show when i hold down Shift and CTRL key together and
> > open the mailfile. Neither opening the mailfile from another notes
client
> > helps, so this is something on the server.The use now has to use the
> folder
> > "All documents" to see his new mails.
> >
> > Is there any solution to this problem?
> >
> >
> > Regards
> >
> > Mailman
> >
> >
>
>

[daivu2001]

Dear guy

i don't understand how to put code as"Here is the script - put this as a button in a memo form within the same
mail file where you need to rebuild the inbox."

--------------------------------------------
----------------------------------------------------------------------------
----
Sub Click(Source As Button)

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 MailCount As Integer
Dim LoopCount As Double

i =0
MailCount = 0
LoopCount = 0
Set db = s.CurrentDatabase

' Build UNID array by looping through folders, then their documents
Forall view In db.views
If view.IsFolder And Not view.Name=("($All)") Then
Print "Scanning - " & view.name
Set fDoc = view.GetFirstDocument
While Not fDoc Is Nothing
LoopCount = LoopCount + 1
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
Print "Adding documents to the Inbox"
Set ad = db.GetView("($All)")
Set aDoc = ad.GetFirstDocument
While Not aDoc Is Nothing
i = 0
Do While i <= Ubound(fUNID)
LoopCount = LoopCount + 1
If fUNID(i) = aDoc.UniversalID Then
Exit Do
End If
i = i + 1
Loop
If i > Ubound(fUNID) And (adoc.form(0) = "Memo" Or adoc.form(0) = "Reply"
Or adoc.form(0) = "Reply With History") And adoc.DeliveredDate(0) <> "" Then
MailCount = MailCount + 1
Print MailCount & " documents added to inbox"
Call adoc.PutInFolder( "($Inbox)")

End If
Set aDoc = ad.GetNextDocument(adoc)
Wend
Messagebox"Process completed. "
End Sub
-------------------------------------------------

could you explain again ?my inbox disappear from view

Best regards

Dai Vu