here u go

N

none

set notes = createObject("notes.notessession")

'Pulls the user's Mailbox Server and FileName from the
NOTES.INI file
Let strMailServer = notes.GETENVIRONMENTSTRING
("MailServer", True)
Let strMailFile = notes.GETENVIRONMENTSTRING
("MailFile", True)

'Opens the Mail Database using the User's Parameters
Set MailDb = notes.GETDATABASE(strMailServer,
strMailFile)

'creates the new document
Set CreateMail = MailDb.CREATEDOCUMENT
Const Embed_Attachment = 1454
Set AttachFile = CreateMail.CREATERICHTEXTITEM("Body")

Set AttachFile = CreateMail.CREATERICHTEXTITEM("Body")

'Embed attachment into the memo, the 3rd arguement is
the file and pathname

Dim Attachment As Object
Set Attachment = AttachFile.EMBEDOBJECT
(Embed_Attachment, "", strFile, "")
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Email with Lotus Notes 5
Lotus Notes send e-mail 3
Lotus Notes Email from Table 1
sending more than one attachment using Lotus Notes 1
Calling a public function to email a report 5
Attachments with email from lotus 7
bold font for lotus notes email 0
email addresses truncate in SendNotesMail procedure 0

Top