AboutPaski K. Paskaradevan Expertise I have 3 + years in Lotus Notes application development. I am a CLP R5 Application Development. I can answer any question pertaining to application development.
Experience R5 CLP. In addition, I have a bachelors degree in Engineering and a MBA.
Expert: Paski K. Paskaradevan Date: 5/28/2008 Subject: how to create hotspot in lotus script
Question QUESTION: I would like to create URL type hotspot in lotus script!
Please, give me advice!
Regards
Darko
ANSWER: Hi,
Please explain in detail what exactly you are trying to do.
There are no Lotus script methods to create a hot spot.
Regards.
---------- FOLLOW-UP ----------
QUESTION:
I am working on 'menu trigger Lotus Script' agent, which:
- removes all attachments of selected Mails' in the Lotus Notes Mail-Inbox,
- saves all attachments to local disc and
- makes a note in body of Emals, when and where attachments are saved.
I would like to make 'hotspot link' in the body of selected Email's.
Structure of Hotspot is: netbios_nameshared folderattacment name.
Click on hotspot in the body of Email has to open attachent, saved on local disk in the Inetrnet Explorer.
Please, give me advice, how to do it?
regards
Sub Initialize
Dim workspace As NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim rtitem As Variant
Dim mapa As String
Dim mapa1 As String
Set color = session.CreateColorObject
Set db = session.Currentdatabase
Set collection = db.Unprocesseddocuments
fileCount = 0
DateRef = Now
Dim whenNow As String
whenNow$ = Today()
Dim Sekunde As String
Dim Minutke As String
Dim Ure As String
Set doc1 = db.GetProfileDocument("Nastavitve")
mapa = doc1.Mapa(0)
REM mapa1 = Inputbox ( "Vpišite direktorij za shranjevanje", "Vpis direktorija",mapa )
mapa1 = "C:DELOVISCEPripetki postne baze"
w="."
v="_"
url="<a href='test.txt'>test.txt</a>"
If mapa1 = "" Then
Exit Sub
End If
doc1.Mapa = mapa1
Call doc1.Save(True, False)
Set doc = collection.GetFirstDocument
While (Not doc Is Nothing)
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
If Not (Isempty(rtitem.EmbeddedObjects)) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Ure=Hour(DateRef)
Minutke=Minute(DateRef)
Sekunde=Second(DateRef)
fileCount = fileCount + 1
Call o.ExtractFile( mapa1+ "" &whenNow$ &v &Ure &w &Minutke &w &Sekunde &v _
&fileCount &v & o.Source )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText("- dokument '" +o.Source+"' ste dne "+whenNow$+" _
prenesli na "+"darko_pungercarDELOVISCEPripetki postne baze" _
&whenNow$ &v &Ure &w &Minutke &w &Sekunde &v &fileCount &v & o.Source)
Call o.Remove
Call doc.Save( False, True )
End If
End Forall
End If
End If
Set doc = collection.GetNextDocument(doc)
Wend
End Sub
Answer Hi,
If you know how to construct the url, then all you need to do is to attach that url in the body of the document. You already have a handle on the body. So, appendtext will do this.
The url will be a clickable link when the mail is in read mode.
Try this and let me know what happens.
I will also check on this when I am at work tomorrow since I do not have notes installed at home.
