Need to work with $FILE attachments and I cannot access them

attachment lotusscript richtext
RoyRumaner picture RoyRumaner · May 15, 2012 · Viewed 7.5k times · Source

I have an incoming email (mail-in db) that contains a RichTextField where "some" attachments are found. I am also finding attachments not in the RTF but in the Document as $FILE. I am trying to get a handle on all the objects to copy them to another outgoing email. I can find the $FILE using the code below.

 Dim rtiObject as NotesEmbeddedObject
 Dim rti_Email as NotesRichTextItem
 Dim obj_Email as NotesEmbeddedObject
 ForAll p in mailDoc.items
   if p.Name = "$FILE" then
     set obj_Email = mailDoc.GetAttachment(p.Values(0)) 'this will return the Name of the attachment (or file)
     set rtiObject = rti_Email.EmbedObject( EMBED_ATTACHMENT, "", obj_Email.Name) 'this is supposed to attach the file to the document's RTF
   End If
 End ForAll

When this script runs it finds the $FILE files and returns the name but not the object and I cannot do anything with it from there.

What do I need to do to get the attachment/object ($FILE) from the original doc and attach it to an RTF in the outgoing email?

I thought about detaching the attachment to the network and then attaching it to the outgoing email and then deleting the attachment from the network but that seems impractical.

Is there a better way to handle these $FILE type of attachments on the incoming email that would make this easier?

Answer

Rob Darwin picture Rob Darwin · May 15, 2012

Try the EmbeddedObjects property of the NotesDocument object. Something like this:

Forall obj_Email in MailDoc.EmbeddedObjects
  If obj_Email.Type = EMBED_ATTACHMENT then
    Call obj_Email.Extract(sometempdirectory$ & obj_Email.Name)
    Call rti_Email.EmbedObject(EMBED_ATTACHMENT, "", sometempdirectory$ & obj_Email.Name)
End Forall

You can also do it without detaching if you wish.

Related questions

Sending email with attachments from C#, attachments arrive as Part 1.2 in Thunderbird

I have a C# application which emails out Excel spreadsheet reports via an Exchange 2007 server using SMTP. These arrive fine for Outlook users, but for Thunderbird and Blackberry users the attachments have been renamed as "Part 1.2". I found this article …

Read More
Save attachments to a folder and rename them

I'm trying to get a VBA macro in Outlook that will save an email's attachment to a specific folder and add the date received to the file name. My googling has gotten me this far: Public Sub saveAttachtoDisk (itm As …

Read More
Download file inside WebView

I have a webview in my Android Application. When user goes to webview and click a link to download a file nothing happens. URL = "my url"; mWebView = (WebView) findViewById(R.id.webview); mWebView.setWebViewClient(new HelloWebViewClient()); mWebView.getSettings().setDefaultZoom(ZoomDensity.…

Read More