Code Samples - Neevia PDFsign/encrypt

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

   Dim NVsign : Set NVsign = CreateObject("PDFsign.Neevia")

   NVsign.CertificateSubject = "Test certificate"
   NVsign.CertificatePassword = "password"

   NVsign.Reason = "I am the creator of this document"

   NVsign.Invisible = true
 
   Dim retVal : retVal = NVsign.SignPDF("c:\in.pdf","c:\out.pdf")
   If retVal <> 0 Then
      MsgBox("Error code=" & CStr(retVal))
   Else
      MsgBox("Done")
   End If