C
Caroline
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
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