Openfiledialog method alternative in lotus script

You can use Dir to get all files from a folder:

Dim pathName As String
Dim fileName As String
pathName = "C:\yourFolder\"
fileName = Dir(pathName + "*.jpg", 0)
Do While fileName <> ""
    Print pathName + fileName
    fileName = Dir()
Loop

This sample code prints all your jpg files from yourFolder like

C:\yourFolder\a.jpg
C:\yourFolder\b.jpg
C:\yourFolder\c.jpg

From there you can use the list to attach the files to a document or whatever you want to do with the files.

Here you can find the description.