Page 1 sur 1
Création de pages HTML à partir document notes
Publié:
16 Fév 2007 à 14:27par billbock
- Code : Tout sélectionner
%INCLUDE "lsxbeerr.lss"
On Error lsERR_NOTES_XSLT_INPUT_OBJECT Goto err_IN
On Error lsERR_NOTES_XSLT_OUTPUT_OBJECT Goto err_OUT
On Error lsERR_NOTES_XSLT_STYLESHEET_OBJECT Goto err_SS
Dim session As New NotesSession
Dim db As Notesdatabase
Set db = session.currentdatabase
Dim dc As NotesDocumentCollection
Set dc = db.UnprocessedDocuments
Dim exporter As NotesDXLExporter 'input: selected documents
Set exporter = session.CreateDXLExporter(dc)
exporter.OutputDOCTYPE = False
filename$ = "dxlofficesupplies"
pathname$ = "c:\dxl\"
Dim XSL_ss As NotesStream 'input: style sheet
Set XSL_ss=session.CreateStream
If Not XSL_ss.Open(pathname$ & filename$ &".xsl") Then
Messagebox "Cannot open " & filename$,, "XSL file error"
Exit Sub
End If
Dim XML_out As NotesStream 'output: html file
Set XML_out=session.CreateStream
If Not XML_out.Open(pathname$ & filename$ & ".html") Then
Messagebox "Cannot create " & filename$,, "TXT file error"
Exit Sub
End If
XML_out.Truncate
Dim transformer As NotesXSLTransformer
Set transformer=session.CreateXSLTransformer(exporter, XSL_ss, XML_out)
Call exporter.process
Exit Sub
err_IN:
Messagebox "XSL Input error", , "XSLTransformer Process"
Exit Sub
err_OUT:
Messagebox "XSL Output error", , "XSLTransformer Process"
Exit Sub
err_SS:
Messagebox "Style Sheet error", , "XSLTransformer Process"
Exit Sub