Pop up message to users

Pop up message to user while trying to open server copy

Steps

 Open mail template in lotus designer and  follow the below steps..

Folder>>>($Inbox)>>>Postopen>>'Adding prompt..
Then script

' Last update : 24 September 2012
 ' Warning only to mbx owner
 Dim mysession As New notessession
 Dim myDb As NotesDatabase
 Dim MyMsg As String
 Dim mycalprof As NotesDocument
 Dim XUser As NotesName
 Dim XOwner As NotesName
 Set mydb = mysession.CurrentDatabase 
 ' Check only if user is owner
 '*****************************
 Set mycalprof = mydb.GetProfileDocument("calendarprofile")
 If  mycalprof Is Nothing Then

 End If
 If Not myCalProf.HasItem("Owner") Then
 End If
 Set XUser = New NotesName(mySession.UserName)
 Set XOwner = New NotesName(myCalProf.Owner(0))
 If Lcase(XUser.Abbreviated) = Lcase(XOwner.Abbreviated) Then
  If (mydb.Server<>"") Then
   MyMsg="You are opening your mailbox on the server. " & Chr$(13) & _
   "Please use the local replica of your mailbox for better performance. "
   Messagebox MyMsg,MB_ICONEXCLAMATION, "Warning"
  End If
 End If