Apertura de documentos PDF en Lotus Script

Te paso un script que lee extrae un fichero de un campo de texto rico (body), y lo guarda en un directorio (instalación de notes) y luego lo abre.

Te vale para cualquier tipo de archivo, pdf, word...

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document
On Error Goto Errores
DirTemp$=Environ("temp")
'Messagebox DirTemp$
cont=1
Fichero=1
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile (DirTemp$ & "\" & o.name )
parametros ="cmd /c start "& DirTemp$ & "\" & {"} +o.name+{"}
result= Shell (parametros,2)
End Forall
End If
Exit Sub
Errores:
If Err<>33 Then
Messagebox "El fichero ya esta abierto."
End If
Exit Sub

Muchas gracias por tu aporte.

Ahora requiero enviarlo a la impresora predeterminada.

Saludos