SearchDomino.com
August 15, 2001
Admin Tip: SmartIcon to run SpellLanguage and SpellCheck in one step
================================================= 
Sponsored By: Paisley Consulting
================================================= 
SNAP! Reporter 2.1 just released!
This version of SNAP! Reporter lets you create ad hoc reports faster
and smarter than ever before.  Dozens of new features and faster data
transfer make it even easier to use.  ISV's check out our OEM
program.  Download your FREE 30 day evaluation version at
http://www.snapreporter.com

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
================================================= 
SUBMIT A UNIQUE ADMIN TIP, AND WIN OUR TIPS CONTEST
Each month, we evaluate the user-submitted tips, and pick a winner
based on the number of votes each tip receives, the rankings, and
final assessment by our panel of experts. Winners are entered into
our Hall of Fame and get access to the Dog Pound discussion forums.

http://searchdomino.techtarget.com/tipsPrize/0,289492,sid4_prz758498_cts758396,00.html

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Title: SmartIcon to run SpellLanguage and SpellCheck in one step

This tip was submitted by Sven Denfeld, a senior systems engineer in
Weinheim, Germany.

This functionality allows you to set the SpellLanguage and run the
SpellCheck in one step. First answer the question with your language
(keep in mind that the language.dic has to be installed) and wait for
your spelling results. 

To-Do: 
- create a SmartIcon with Formula 
@Command([ToolsRunMacro];"NameOfMacro")
- create an SharedAgent/Runonce/Script
- paste Code and modify your favorites

CODE:
Sub Initialize
 On Error Goto Errhandle
 Dim s As New NotesSession
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Dim num As Integer   
 Dim latestNumber As String
 Dim Title As String
 Dim old As Integer
 latestNumber = s.GetEnvironmentString( "SPELL_LANG", True ) 
 Select Case latestNumber
 Case "1031": 
  Title = "German (Standard)" ' German (Standard)
  old = 1
 Case "32775": 
  Title = "German (Reform)" ' German (Reform)
  old = 2
 Case "1033": 
  Title = "Englisch US" ' English US
  old = 3
 Case "2057": 
  Title = "English GB" ' English GB
  old = 4
 Case Else : Title = "Language not known."   
 End Select    
 num% = Cint(Inputbox$(_
 "1 = German (Standard) " &"2 = German (Reform)" & Chr(10)&_
 "3 = English (US)                       " &"4 = English (GB)" &
Chr(10),Title,old, 1,1))
 Select Case Num  
 Case 1: s.SetEnvironmentVar "SPELL_LANG", "1031", True ' DE alte
Rechtschreibung
 Case 2: s.SetEnvironmentVar "SPELL_LANG", "32775", True ' DE neue
Rechtschreibung
 Case 3: s.SetEnvironmentVar "SPELL_LANG", "1033", True ' Englisch US
 Case 4: s.SetEnvironmentVar "SPELL_LANG", "2057", True ' Englisch GB
 Case Else : Msgbox "Wrong Input. Active Directory is used. " 
 End Select   
 Set uidoc = workspace.CurrentDocument   
 Call uidoc.SpellCheck()  
 Exit Sub 
Errhandle:     
 Messagebox "Error" & Str(Err) & ": " & Error$
 Msgbox "No Input. SpellCheck aborded." 
 Exit Sub
End Sub

http://searchdomino.techtarget.com/tip/1,289483,sid4_gci754818,00.html

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
================================================= 
NEWLY POSTED ADMINISTRATOR TIPS:  
================================================= 
We posted 5 new administrator tips last week. Thanks for your tips
and keep them coming!

Database category:
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283822_alpD_idx0,00.html

[1] Moving a database to another server

Domino category:
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283824_alpD_idx0,00.html

[1] Backup of ID files after ID Recovery was setup

Security category:
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283827_alpD_idx0,00.html

[1] Getting more from the Server Log.nsf
[2] Easy way to change HTTP password

Server category:
http://searchdomino.techtarget.com/tipsIndex/0,289482,sid4_tax283832_alpD_idx0,00.html

[1] Quick server stats

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
================================================= 
If you haven't yet received our Notes and Domino Daily News service,
you are missing out on a great time-saver. By spending just 5 minutes
each day perusing the latest headlines and Notes and Domino stories
we've located, you'll save yourself a lot of headaches. To try out
this free e-mail service for yourself, just update your user profile
at
http://searchdomino.techtarget.com/register/1,,sid4,00.html
and be sure you select the "Daily News" checkbox.

================================================= 
FEATURED BOOK:
================================================= 
Lotus Notes & Domino Essential Reference    
By Tim Bankes 

The Lotus Notes and Domino Essential reference will facilitate your
creative and technical abilities and perfect your programming skills.
It's loaded with information, including classes, functions, and
methods, showing object hierarchy and the overlaying relationship
between each one. The book also includes sample code and efficient
coding tips in a concise format.

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

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
================================================= 
Disclaimer: 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!

================================================= 
If you would like to sponsor this or any TechTarget newsletter,
please contact Gabrielle DeRussy at [EMAIL PROTECTED]

=================================================



If you no longer wish to receive this newsletter simply reply to 
this message with "REMOVE" in the subject line.  Or, visit 
http://searchDomino.techtarget.com/register 
and adjust your subscriptions accordingly. 

If you choose to unsubscribe using our automated processing, you 
must send the "REMOVE" request from the email account to which 
this newsletter was delivered.  Please allow 24 hours for your 
"REMOVE" request to be processed.

Reply via email to