Attachment Extraction

5 pts.
Tags:
Lotus Notes
Lotus Notes attachments
Hi, I want to extract the attachments present at the bottom of notes document using Lotus script. I used "$file" , but it was not giving proper name to the attachment. So can you please suggest good idea for that?

Software/Hardware used:
Lotus Notes
ASKED: October 17, 2012  8:30 AM
UPDATED: October 17, 2012  11:49 AM

Answer Wiki

Thanks. We'll let you know when a new response is added.

Try this code

Dim session as New NotesSession
Dim ws as New NotesUIWorkSpace
Dim rtItemFile as NotesRichTextItem
Dim doc As notesDocument
Dim uidoc as NotesUIDocument

set uidoc = ws.CurrentDocument
set doc = uidoc.Document

Set rtitemFile = doc.GetFirstItem( "YOUR_RICHTEXT_FIELD_NAME_HERE" )
If Not rtitemFile Is Nothing Then
   Forall obj In rtItemFile.EmbeddedObjects
	If ( obj.Type = EMBED_ATTACHMENT ) Then
           Call obj.ExtractFile( "C:\TEMP\" + obj.source )
	End If
   End Forall
End If

Discuss This Question: 1  Reply

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • UsedToKnow

    If your file attachments are not in Rich Text fields, but are directly on the document, try this.

    Dim result as variant, emb as variant
    result = evaluate( {@AttachmentNames}, doc )
    
    Forall att In result
    	If att <> "" Then
    		Set emb = doc.GetAttachment( att )
    		If emb.Type=EMBED_ATTACHMENT Then
    			Call emb.ExtractFile("C:\foldername\" & Cstr(att))
    20 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following