Print all attachments using shellExecute in Windows

View member feedback to this tip.

This script prints all attachments on a Notes document's Body field. You do not need to know the attachment names ahead of time, or the application that needs to be invoked to print them. The shellExecute command uses the Windows registry to determine the correct application to print the attachment.

Download this free guide

Download: IT certifications that stand out

Are you looking to advance your career? Expand your knowledge? Boost your credibility? Our editors put together this complimentary 19-page guide on everything you need to know about obtaining an IT certification—with special attention given to cloud and desktop certifications.

Start Download

• Corporate E-mail Address:

  You forgot to provide an Email Address.

  This email address doesn’t appear to be valid.

  This email address is already registered. Please login.

  You have exceeded the maximum character limit.

  Please provide a Corporate E-mail Address.

By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.

By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.

You also agree that your personal information may be transferred and processed in the United States, and that you have read and agree to the Terms of Use and the Privacy Policy.

This works with Notes Clients 4.6.7 and 5.0.11 running Windows 2000 or XP. It probably works with other Windows versions and Notes clients as well.

This code detaches attachments in the Body field for the current document and saves them on the user's hard drive in the c:notesdata directory.

Note: This code leaves these attachments on the user's hard drive. You will need to add a separate routine to delete them, because the shellExecute print process does not like you deleting the files while it is printing. I did not include code here to delete these temporary files.

Code:

'This code adapted from a 
VB code posted by Dev Ashish 
'http://www.mvps.org/access/api/api0018.htm
'Remember these declarations
Declare Function ShellExecute Lib 
"shell32.dll" Alias "ShellExecuteA" _ (Byval
hwnd As Long, Byval lpszOp As 
String, _ Byval lpszFile As String, Byval
lpszParams As String, _ Byval LpszDir 
As String, Byval FsShowCmd As Long) As
Long

Declare Private Function 
GetDesktopWindow Lib "user32" () As Long

Private Const SW_HIDE = 0&

'You need to call the this sub from some
 other sub, like the Click or
Initialize sub. ' like this:
' Call PrintAttachment (doc) 

Sub PrintAttachment(doc As NotesDocument)
        Dim rtItem As NotesRichTextItem 
        Dim Scr_hDC As Long 
        Dim ret As Long 
        Dim file As String
        
        Set rtItem = doc.GetFirstItem("Body") 
        If Not rtItem Is Nothing Then 
                Forall o In rtItem.EmbeddedObjects 
                        file =  o.Name 
                        Call o.ExtractFile( "c:notesdata" & file )
                        Scr_hDC = GetDesktopWindow() 
                        ret = shellExecute
(Scr_hDC, "print",file ,Null ,"c:notesdata" ,SW_HIDE)
                        
                        If ret <= 32 Then 
                                Msgbox "An error occurs 
while printing!" 

                        End If 
                End Forall 
        End If 
End Sub

MEMBER FEEDBACK TO THIS TIP

This looks like it should work, but there are a couple of problems: