• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2281
  • Last Modified:

Attach a file from lotus script ?

Hi,

I'am looking for a sample of lotus script to attach a file (excel for instance) into a rich text field. This without use any prompt windows.

Thanks
0
didede
Asked:
didede
1 Solution
 
wrichardCommented:
This script creates a new document in the current database, creates a new rich text item called Body on the document, and attaches the file profile.xls to the Body. It then sets the value of the Form and Subject items on the document and saves it.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\profile.xls", "Profile" )
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )

A couple more example can be found  in the script section of the help database.  Look at the Notes RichTextItem class.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now