How to Create A Clickable Hot Spot link in an email?

HCL Domino Domino Forum
1

I have created an Agent that will collect a set of documents and place them in an email along with the coinciding URL link. What I would like to do is have “Click Here” as a clickable hotspot in the email instead of a long URL. How can I do this?

Thanks,

Michael

2

Subject: Create a MIME email.

Search this forum for mime and agent for exampls.

3

Subject: How to Create A Clickable Hot Spot link in an email?

Hello Michael,

Please refer to this document to create the button

http://www-12.lotus.com/ldd/doc/domino_notes/7.0/help7_client.nsf/855dc7fcfd5fec9a85256b870069c0ab/1d6d78d870ca26ea8525704a004d9ccb?OpenDocument

4

Subject: RE: How to Create A Clickable Hot Spot link in an email?

I’m a newbie so I’m sure I’m missing something here, but I don’t understand how this will help me get a hot-spot link to show in my auto-generated email. I have a shared agent that is set to run at 2:00 AM with a target of all documents in database. The purpose of the Agent is to go into a database and find any claim form that has not been reviewed, and put a link to that form in an email to notify the clerks. I was thinking that “Click Here” as a hot-spot would work as a link with the embedded URL. A button would also work! Any here is the code:

Sub Initialize

Dim s As NotesSession

Dim db As NotesDatabase

Dim view As NotesView	

Dim newDoc As NotesDocument

Dim rtitem As NotesRichTextItem

Set s=New notessession

Set db=s.currentdatabase

Dim doc As NotesDocument

Dim strURL As String

Set view = db.GetView("emailNotice")	

Set newDoc = New NotesDocument( db )

Set rtitem = New NotesRichTextItem( newDoc, "Body" )

Set doc = view.GetFirstDocument

While Not ( doc Is Nothing )

	If ( doc.Created < Date  ) Then		

		strURL = doc.HttpURL

		

		Call rtitem.AddTab( 1 )

		Call rtitem.AppendText(Format( doc.Created, "mm/dd/yyyy"))

		Call rtitem.AddTab( 1 )

		Call rtitem.AppendText( Format(doc.AccessNumber(0), "00000000000000"))

		Call rtitem.AddTab( 1 )			

		Call rtitem.AppendText( doc.FirstName( 0 ) & Space(1) & doc.LastName( 0 ))

		Call rtitem.AddTab( 1 )

		Call rtitem.AppendText(strURL)

		Call rtitem.AddNewLine( 1 )			

		

	End If

	Set doc = view.GetNextDocument( doc )

Wend



newdoc.Principal ="P3ClaimForms"

newDoc.Subject = "P3Claims: Attached Are Links To The Forms That Need Your Attention!"

newDoc.SendTo = "Michael@NFCU.org"

Call newDoc.Send( False )

End Sub

In addition… If a Button was used instead of some text in the email, then what code would be needed to get a button to appear in the email? Each button would have to have it’s own link. So, if there are 5 forms then there should be five buttons.

Thanks! I hope you can help

Michael

5

Subject: RE: How to Create A Clickable Hot Spot link in an email?

You want to create a URL link to the Domino URL of a document, not the Notes URL – you want the document to open in a web browser when they click it.

You could do this using MIME – that lets you create the email in HTML. Look at NotesMIMEEntity class, and the free download that accompanies this article may be of help: MIME. There’s a form called MIME Generator or something like that, that lets you enter rich text and generates the LotusScript source code to create the same data you entered in an email.