I hope there is a developer who can help me. I am new to LotusScript and don’t know how to do this.
I was asked to create a button that can be sent in a Lotus Notes email message.
The button needs to read the sender’s name, lookup the location of their mail file, then add the sender’s mail file to the recipients workspace.
Can anyone help me?
Jenna
Subject: make the button to databaselink
You can make a ls script that make a email and in the body with the class (notesrichtextitem) make reference to his email database’s.
Dim session As New NotesSession
Dim db As NotesDatabase
dim dbmail as notesdatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set dbmail = session.CurrentDatabase
’ if you make this bottom in other database you can find in the names.nsf selecting by el session.username
’ who is making the code so if yo look for this person there is a field mail file you obtains the database
’ make a set database with this reference and continue with the appendoclink as database,when people open the email 'see th link to open the databse who send the email, make sure have access to the database too.
’ to find any in the names will make somthing like this I have the route to names in a profield
’
Set docConfig=db.GetProfileDocument(“FProfile”)
Set dbNames=session.GetDatabase(db.Server,docConfig.DBNames(0))
nombre=session.username
If Not(Isempty(nombre)) Then
Set vNames= dbNames.GetView ("People" )
Set docNames = vNames.GetDocumentByKey (nombre(0) )
'once you are in the doc you can obtain all
maildatabse=docNames.mailserver(0)
Set dbmail=session.GetDatabase(db.Server,maildatabse)
End If
'****************************************************
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, “Body” )
Call rtitem.AppendDocLink( dbmail, db.Title )
newDoc.Subject = “Here is a link to the database”
newDoc.SendTo = “Lauri Nodwell”
newDoc.Send( False )