SearchDomino.com
April 30, 2001
Developer Tip
================================================= 
************************************************* 
Sponsored By:  Veritas
------------------------------------------------- 
A Lotus Business Partner, VERITAS is pleased to offer high
performance data protection for Lotus Notes and Domino Server. The
NetBackup product family - DataCenter and BusinesServer - simplify
Lotus back up recovery, from configuring automated, unattended backup
to managing tape backup media and more. NetBackup DataCenter and
NetBackup BusinesServer also support backing up R5 transaction logs,
and may restore them, to recover Lotus databases to more granular
points in time." URL link:
http://www.veritas.com/us/products/backup/index.html

================================================= 
Title: Delete hierarchy
This tip was submitted by Keil Wilson, a consultant in Lincoln,
Nebraska.

A common use for LotusScript is to control the deletion of documents.
This code will delete a document and all of its descendants.

The following piece of code can be called from anywhere you have a
handle to a NotesDocument object. You pass this sub a NotesDocument
and it will delete that document as well as all descendants. 

CODE:

Sub DeleteHierarchy(docToDelete As NotesDocument)
%REM
PARAMETERS
docToDelete - NotesDocument object the represents the NotesDocument
to be  deleted.
RETURN
Nothing is returned.
%END REM
 
Dim ndcResponses As NotesDocumentCollection
Dim docResponse As NotesDocument
' docNextResponse is a pointer to the next document in the response
collection.
' This is needed because the current response is removed before a
call to 
GetNextDocument can be made.
Dim docNextResponse As NotesDocument  
 
Set ndcResponses = docToDelete.Responses
If ndcResponses.Count > 0 Then
   Set docResponse = ndcResponses.GetFirstDocument
   Do While Not docResponse Is Nothing
      Set docNextResponse = ndcResponses.GetNextDocument(docResponse)
      Call DeleteHierarchy(docResponse)
      Set docResponse = docNextResponse
   Loop
End If
Call docToDelete.Remove(True)
 
End Sub

END CODE
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
================================================= 
NEWLY POSTED DEVELOPER TIPS: 
================================================= 
We posted 7 new tips last week. Thanks for all your tips and keep
them coming!

Agent Category
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283834_alpD_idx0,00.html

[1] Fixing threadmaps on 4.6 discussion databases

Domino Category
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283837_alpD_idx0,00.html

[1] "Dynamic" selection in view (local database)
[2] Size of richtext applet editor

Formula Category
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283836_alpD_idx0,00.html

[1] Field Validation for the Web
[2] "Encryption" info in box

Script Category
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283841_alpD_idx0,00.html

[1] Page Break printing HTML documents
[2] Generate a random password

================================================= 
FEATURED BOOK:
================================================= 
CLP Fast Track: Lotus Notes/Domino 5 Application Development    
By Tim Bankes, Dave Hatter and Dennis Maione 

If you are a Lotus professional looking to update your CLP 4 status
or starting down the road to the CLP 5 certification, the Fast Track
title offers you all the information you need to pass the 3 exams
that make up the Application Development certification. With the
release of R5, Lotus updated its certification strategy to include
task-specific testing levels, while maintaining the division between
System Administration and Application Development within their
testing arena. There are now three exams that candidates must take to
be certified in the application development arena. These exams are
created for the experienced exam candidate.

http://www.digitalguru.com/dgstore/product.asp?sku=0735708770&dept%5Fid=288&ac%5Fid=60&accountnumber=&couponnumber=


================================================= 
Disclaimer: These tips are submitted by your Domino peers. Our tips
services and online tips exchange are a way for you to learn from
other IT professionals and share technical advice and expertise with
your peers. Techtarget.com provides the infrastructure to facilitate
this sharing of information. However, we can't guarantee the accuracy
and validity of the material submitted. You agree that your use of
the searchDomino.com tips services and your reliance on any
questions, answers, information or other materials received through
searchDomino.com will be at your own risk.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
================================================= 
NOTIFY US WITH FEEDBACK  
================================================= 
Send us your tips feedback! Cast your vote and send us your tips
comments.  If you have vital code information or other comments you'd
like to add to one of our online tips, send your comments to
[EMAIL PROTECTED], and we'll add your User Feedback to the
online tip!



To Remove your email address from the distribution list for this
specific newsletter "Reply" to this message with REMOVE in the
subject line. You will receive an email confirming that you have been
removed. To Remove yourself from additional distribution lists or to
update your preferences, go to the searchDomino.com registration page
at:
http://searchDomino.techtarget.com/register

Reply via email to