Open File From Form

These are simple script if placed in a click event will open a file defined in
a editable field. It will open a text or richtext file in its own window.
This allows the user to view many files from Lotus Notes without cludering a
Lotus Application with several documents. This formula can also be used to
paste the file into a Lotus Notes Document. Bring in Word, Word Perfect Docs,
ect... into Lotus for easy management.
This is for a richtext file:

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase

Dim doc As NotesDocument

Dim file2 As String

Set uidoc = workspace.currentDocument
Set db = session.CurrentDatabase
Set doc = uidoc.Document
Call uidoc.refresh

file2$ = uidoc.FieldGetText("RFileName")

winatt% = Shell ("C:\Program Files\Windows NT\Accessories\wordpad.exe " &
file2, 1)

End Sub


This is for a test only file:

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase

Dim doc As NotesDocument

Dim rtitem As NotesRichTextItem
Dim item As NotesItem
Dim view As NotesView
Dim file As String

Set uidoc = workspace.currentDocument
Set db = session.CurrentDatabase
Set doc = uidoc.Document
Call uidoc.refresh

file$ = uidoc.FieldGetText("FileName")

winatt% = Shell ("notepad " & file, 1)

End Sub

This was first published in November 2000

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

Back to top