December 2008 : Home Loan interest rates for amount >20l

After talking to various private & public sector banks on home loan, below is the comparative study of home loan details for amount > 20l

Lotusphere - 2009

http://www-01.ibm.com/software/lotus/events/lotusphere2009/

If you are a developer, administrator, IT or business professional who considers collaboration a strategic asset, and you want access to the latest information and expertise about Lotus and WebSphere Portal Software, then you need to be at Lotusphere 2009. Presentations on the latest innovations and how-to training to interactive networking discussions, it's all about getting the latest word on strategy and products that you can't get anywhere else!

Lotus Technical Conference at Mumbai , sept 8-10

Lotus Technical Conference will help system administrators, developers and IT leaders learn how they can implement these tools and technologies in their respective organizations, based on proven methodologies, frameworks and real experiences from subject-matter experts.



http://www.lotusconference.com

G.O.N.A.D - (Geeky Order of Notes Admins and Developers)

Click here to know more.

Try "Wordle" - from IBM Research

Wordle is a toy for generating “word clouds” from text that you provide. The clouds give greater prominence to words that appear more frequently in the source text. You can tweak your clouds with different fonts, layouts, and color schemes. The images you create with Wordle are yours to use however you like. You can print them out, or save them to the Wordle gallery to share with your friends.


Below are my wordles - which i created using :
http://www.wordle.net/create

Using LotusScript, how to get Lotus notes mail file's owner name

Below script helps you to get mail file owner name in IBM Lotus Notes client.

Sub Click(Source As Button)
Dim session As New notesSession
Dim db As NotesDatabase
Dim doc As notesdocument
Dim owner As NotesItem
Dim ownerName As String

Set db = session.CurrentDatabase
Set doc= db.GetProfileDocument("CalendarProfile")
Set owner= doc.getFirstItem("Owner")
Dim userName As New NotesName(owner.Text)
ownerName = userName.Abbreviated
Msgbox "Mail file owner is " & ownerName
End Sub

How to get Lotus notes client details , policy details of the notes user , ip address , OS .. others by using lotus script

This lotus script generates the below data and then sends a mail. Care has been taken so that lotus script executes only once and only one mail is send from a client.

Data which is collected :

UserName
IP address
Platform
Notes Build version
Notes Client version
Policy details


Note : I have written below code by referring to Lotus notes domino designer help files & few public articles posted at internet and help from one of my friend.


Sub Click(Source As Button)

Dim jSession As JavaSession
Dim jClass As JavaClass
Dim jObject As JavaObject
Dim jMethod As JavaMethod

Dim session As New NotesSession
Dim doc As New NotesDocument(session.CurrentDatabase) 'Document which is being sent as mail
Dim ws As New NotesUIWorkspace
Dim all As String
Dim platform As String
Dim buildversion As String
Dim notesVersion As String
Dim userName As String
Dim getIPAddress As String
Dim check As String

check=session.GetEnvironmentString("IBMClientFlag")
If check="" Then
Call session.SetEnvironmentVar("IBMClientFlag","false")
End If

check=session.GetEnvironmentString("IBMClientFlag")

If check="false" Then


Set jSession = New JavaSession()
Set jClass = jSession.GetClass("java/net/InetAddress")
Set jMethod = jClass.GetMethod("getLocalHost","()Ljava/net/InetAddress;")
Set jObject = jMethod.Invoke()

getIPAddress = jObject.getHostAddress()
platform= session.Platform
buildversion=session.NotesBuildVersion
notesVersion=session.NotesVersion
Dim nam As NotesName
Set nam = session.CreateName(session.UserName)
userName = msg & nam.Abbreviated & Chr(13)

all = all & Chr(13)
all = all & Chr(9)

all=all &"UserName is : "
all=all & userName
all = all & Chr(13)
all = all & Chr(9)


all=all &"IP address is : "
all=all &getIPAddress
all = all & Chr(13)
all = all & Chr(9)

all=all &"Platform : "
all=all &platform
all = all & Chr(13)
all = all & Chr(9)

all=all &"Notes Build version is : "
all=all & buildversion
all = all & Chr(13)
all = all & Chr(9)

all=all &"Notes Client version is : "
all=all & notesVersion
all = all & Chr(13)
all = all & Chr(9)
all = all & Chr(13)
all = all & Chr(9)
all = all & "Policy Details "
all = all & Chr(13)
all = all & Chr(9)
all = all & Chr(13)
all = all & Chr(9)

%REM

To get ALL Policy Information

%END REM

Dim db As New notesdatabase("","names.nsf")
Dim view As notesview
Dim doc1 As notesdocument
Dim doc2 As notesdocument
Set view=db.GetView("$Policies")
Set doc1=view.GetFirstDocument
Dim policyName As String
Dim policyType As String
Dim status As String
Dim AllPolicy As String


While Not doc1 Is Nothing
policyName = doc1.FullName(0)
policyType = doc1.Type(0)
all = all & policyName
all = all & Chr(9)
all=all &"Policy Type is : "
all = all & policyType
all = all & Chr(13)
all = all & Chr(9)
Allpolicy = AllPolicy & policyType
Set doc1=view.GetNextDocument(doc1)
Wend

Call doc.AppendItemValue("Form","Memo")
Call doc.AppendItemValue("UserName",userName )
Call doc.AppendItemValue("IPAddress", getIPAddress)
Call doc.AppendItemValue("NotesVersion", notesVersion )
Call doc.AppendItemValue("Buildversion", buildversion )
Call doc.AppendItemValue("Platform", platform )
Call doc.AppendItemValue("Allpolicy", Allpolicy )

Call doc.AppendItemValue("Body", all)
Call doc.appendItemValue("Subject","Lotus Notes Client & Policy Details for user " & userName )
Call doc.Send(False,"piyush42@gmail.com")
Call session.SetEnvironmentVar("IBMClientFlag","true")

End If


End Sub