Tuesday, December 10, 2013

Open PDF's stored in a rich text item from lotus script.

I have an application which stores PDF's as embedded files in a rich text item. I want to write some lotus script code which detach the PDF to a temporary directory and then launch the os default reader for PDF's to view the file. Ok the first part to detach the file is very easy and strait forward.

 Set rtitem=dokument.Getfirstitem("Body")
 Forall obj In rtitem.Embeddedobjects
  fileName=Environ("TEMP")+"\"+obj.Source
  Call obj.extractFile(fileName)
 End ForAll

Hm now we have the attachment in the temp directory, but how can we launch this attachment? My first guess was to use shell(fileName). But Notes quits this with an "illegal function call" error. I have tried many ways to call the shell function, but could not get it to work. So i have searched for another solution and found out, that the easiest way to workaround this problem is to use the Windows Scripting host to execute the PDF file.

  Set objShell = CreateObject("WScript.Shell")
  returnValue = objShell.Run(fileName, 3, false)

This works very well for all other file types your windows system recognize too. You can find a detailed description of the WScript.Shell function on MSDN
Eingestellt von um
Labels:

13 comments:

  1. Olli KämäräinenDecember 11, 2013 at 7:29 AM

    If you got only one attachment in document, you can use separate Form with Auto launch set to -First attachment-
    No need for Windows-specific scripts.
    Here is an example how to open attachment after promp:
    Dim ws As New NotesUIWorkspace
    Dim ns As New NotesSession
    Dim db As NotesDatabase
    Set db = ns.CurrentDatabase
    Set coll = ws.PickListCollection(3,False,"",db.FilePath,"($docswithattachments)","Choose doc to open","Open attachment")
    If coll.Count > 0 Then
    Dim doc As NotesDocument
    Set doc = coll.GetFirstDocument
    If Not doc Is Nothing Then
    doc.Form ="OpenAttachment" 'Form with autolaunch set to First attachment
    Call ws.EditDocument(False, doc)
    End If
    End If

    ReplyDelete
  2. Ralf PetterDecember 11, 2013 at 9:09 AM

    Thank you for this very interesting idea.

    ReplyDelete
    Replies
    1. Olli KämäräinenDecember 11, 2013 at 10:01 AM

      We have succesfully used that for a while and it works well. There was a problem with Symantec virus scanner which added fields to document and saved it without asking.
      Fortunately there is fix(2641800) for that:
      http://www.symantec.com/business/support/index?page=content&pmv=print&impressions=&viewlocale=en_US&id=TECH103087

      Delete
  3. AnonymousDecember 11, 2013 at 3:21 PM

    I've not tried it with a PDF, but the below code works with Excel. It does require that you know the default application to create the object with.

    Set objExcel = CreateObject( "Excel.Application" )
    objExcel.Visible = False

    objExcel.Workbooks.Open strTemplateFilename, , True

    Cheers,
    Brian

    ReplyDelete
  4. Ralf PetterDecember 11, 2013 at 5:26 PM

    Thank you Brian for your input, but your way to open the excel sheet has one big problem, that it will not work if excel is not installed on the computer. Today many computers have installed other spreadsheet applications like Libreoffice Calc. With your approach you will get an error, but with mine or Olli's way it will work on such computes too.

    ReplyDelete
  5. Steve RJune 3, 2017 at 9:33 AM

    There are many different formats in which the index PDF works. You can choose for a CSV format, where the different indexed entities would be separated by a comma. Adobe After Effects CC 2015

    ReplyDelete
  6. Elizabeth J. NealApril 17, 2018 at 10:39 PM

    Yes i am totally agreed with this article and i just want say that this article is very nice and very informative article.I will make sure to be reading your blog more. You made a good point but I can't help but wonder, what about the other side? !!!!!!THANKS!!!!!! altoconvertpdftoexcel.com

    ReplyDelete
  7. FurkhundababyMay 9, 2018 at 1:24 PM

    This online pdf merger or pdf combiner or pdf joiner will easily merge pdf files together with use of any software or any registration. pdf merger online

    ReplyDelete
  8. Jhon CrocherJuly 19, 2018 at 5:26 PM

    Perusing on a PC can be frustratingly troublesome for those with low vision, dyslexia, or other print-perusing challenges. A text-to-speech program which peruses text so anyone might hear is typically basic.notevibes

    ReplyDelete
  9. Harry JackOctober 21, 2018 at 10:34 AM

    A connection to your document will then be given. To spare the picture, right tap on it and pick spare picture as. altopdf.com

    ReplyDelete
  10. Superseo62November 14, 2018 at 2:45 PM

    Took me technology to entre all of the observations, however I absolutely loved the article. It proved to be Very cordial to me and i am unconditional to all the commenters here! Its constantly clean whilst you can't on your own be informed, however with entertained! https://www.vaporwavetext.online/

    ReplyDelete
  11. LionelFebruary 17, 2019 at 10:28 AM

    It is momentous that speech combination PC innovation has prompted the advancement of text to speech software.notevibes.com

    ReplyDelete
  12. Gino LeoJune 21, 2019 at 7:02 AM

    So glad you shared your blog link with me - I was able to direct a colleague to this post today when they were looking for PDF information. Great stuff!
    merge pdf files free

    ReplyDelete

Subscribe to: Post Comments (Atom)
ad