How to convert password protected HTML content

In order to modify your Java policy document follow these steps:

1. Open Java policy document in your text editor.

  • The document path for a local installation is\Notes\jvm\lib\security\java.policy

  • The document path for a server installation is\Domino\jvm\lib\security\java.policy

2. In java.policy document locate the grant section and add below two lines:

  • permission java.net.NetPermission "setDefaultAuthenticator";

  • permission java.net.NetPermission "requestPasswordAuthentication";

The java.policy document should now appear as in the below image:

3. User authentication is performed using LotusScript and Java API. Here is a code example for authenticating the user using LotusScript:

Use "SwPDFMain"
    Sub Click(Source As Button)
    Dim s As New NotesSession
    Dim w As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim swPDF As New SwPDFCreator, swPDFDoc As SwPDFDocument, pdfErr As SwPDFError
    Dim DestFilePath As Variant

    On Error Goto Ooops
    ' Get destination file path
    DestFilePath = w.SaveFileDialog(False, "Save document", "PDF Files (*.pdf)|*.pdf", "", "test.pdf")
    If Not Isempty(DestFilePath)Then
    If Dir$(DestFilePath(0)) <> "" Then
    dialogRes = Messagebox(DestFilePath(0) & " already exists." & Chr$(13) & Chr$(10) & "Do you want to replace it?", 4, "Save document")
    If dialogRes = 7 Then
    Exit Sub
    Else
    Kill DestFilePath(0)
    End If
    End If

    ' Procceed with PDF conversion
    ' Get currently opened Notes document
    Set db = s.CurrentDatabase
    Set dc = db.UnprocessedDocuments
    Set doc = dc.GetFirstDocument

    ' Initialize PDF creation process; license key is required
    If swPDF.Init("<LICENCE KEY HERE>") Then

    ' enable font embedding for non ascii characters
    swPDF.PDFSettings.EnableFontEmbedding = True

    ' set user HTTP credentials    
    Call swPDF.PDFSettings.SetHTTPCredentials("Username","Password")

    ' Convert doc to PDF
    Set swPDFDoc = swPDF.ProcessDocument(doc)

    If Not swPDFDoc Is Nothing Then
    ' Finally, save generated PDF to a file on disk
    Call swPDFDoc.SaveToFile(DestFilePath(0))

    Msgbox "PDF successfully created in " & DestFilePath(0)
    Else
    ' There was an error in PDF conversion
    Set pdfErr = swPDF.GetError()
    Msgbox pdfErr.Message, 0+16, "ERROR"
    End If
    Else
    ' There was an error in PDF initialization
    Set pdfErr = swPDF.GetError()
    Msgbox pdfErr.Message, 0+16, "ERROR"
    End If
    End If
    Exit Sub
    Ooops:
    Msgbox "Error: " + Error + " On line: " + Erl
    Exit Sub
    End Sub

Last updated