I am using following code to send email through lotus notes.

Set notessession = CreateObject("Notes.Notessession")
username = notessession.username
MailDbName = Left$(username, 1) & Right$(username, (Len(username) - InStr(1,
username, " "))) & ".nsf"

Set notesdb = notessession.GetDatabase("", MailDbName)
If notesdb.IsOpen = False Then Call notesdb.OPENMAIL
Set notesdoc = notesdb.CreateDocument

Some of clients got problem. It will hang lotus notes and excel. If I shut
down lotus notes , excel will be fine. I am not sure what's going on. Some of
them have no problem at all.

Thanks