Attaching and importing image files in one click
But no longer-you can attach and import image files in one step by:
- Creating three fields on a form: a field to host the file attachment, a field to display the image, and another to display the file name.
- Creating a hotspot button that attaches and displays the image file with one click.
We'll also tell you how to remove the image and file attachment from the document with one click.
Create or modify a form, adding the following fields:
Field name | Field type | Description |
img | Rich text | Hosts the image as a file attachment. |
img_display | Rich text | Displays the imported image in the document. |
img_name | Text (editable) | Displays the name of the attached file. |
Now create a hotspot button and label it Attach & Display. Then copy and paste the following code into the programmer's pane:
FIELD img_name := img_name; previous := @Subset(@AttachmentNames;-1); @If(@IsDocBeingEdited;"";@Command([EditDocument])); @Command([ToolsRunMacro]; "Kill"); @Command ([EditGotoField]; "img"); @If(img_name = "";@Command([EditInsertFileAttachment]);""); @If(img_name !="";@Prompt([OK];"Error"; "There is already an image attached"); @Do( @If(@Subset(@AttachmentNames;-1) = previous; ""; @Right(@Subset(@AttachmentNames;-1);3)="jpg"; @Command([EditDetach];@Subset(@AttachmentNames;-1); "c:\\image.jpg"); @Right(@Subset(@AttachmentNames;-1);3)="gif"; @Command([EditDetach]; @Subset(@AttachmentNames;-1); "c:\\image.gif");""); @SetField("img_name"; @Subset(@AttachmentNames;-1)); @Command ( [EditGotoField]; "img_display" ); @If(@Subset(@AttachmentNames;-1) = previous; @SetField("img_name";""); @Right(@Subset(@AttachmentNames;-1);3)="jpg"; @Command ( [FileImport]; "JPEG Image"; "c:\\image.jpg" ); @Right(@Subset(@AttachmentNames;-1);3)="gif"; @Command ( [FileImport]; "GIF Image"; "c:\\image.gif" ); @Subset(@AttachmentNames;-1)=""; "";@Prompt([OK];"Error";"Not a Valid Image File")))) |
The formula does the following:
- Checks whether or not the document is in edit mode.
- If the document is in edit mode, the formula attaches the image to the img field using @Command([EditInsertFileAttachment]).
- After attaching the image, the formula detaches the image to a temporary location (C:\) using @Command([EditDetach]).
- Next, the formula adds the image file name in the img_name field.
- Last, the formula shifts the focus on the document to the img_display field using @Command([EditGotoField]). Then the @Command([FileImport]) formula imports the image.
Cleaning up the temporary location
After importing the image from its temporary location, the formula triggers an agent called Kill that deletes the image copies from the C:\ directory using the LotusScript Kill function. Create a LotusScript agent in the Notes database, call it Kill, and then copy and paste the following code into the agent's Initialize subroutine:
Sub Initialize On Error Resume Next Kill "c:\image.jpg" On Error Resume Next Kill "c:\image.gif" On Error Resume Next End Sub |
Removing the image from the document
What if you add the wrong image to your document? Do you have to delete the image, file attachment, and name from all three fields? No need-just create another hotspot button and label it Clear Image. Then copy and paste the following code into the programmer's pane:
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.FieldClear( "img" ) Call uidoc.FieldClear( "img_display") Call uidoc.FieldClear( "img_name" ) End Sub |
This button removes the image, attachment, and text from all fields with a single click. Now you are all set, and users will love the way your Notes document displays images as they are attached to the documents!