How to export Notes Document(email,task,etc.) from Lotus notes Client 8.5 into DXL File?

☆樱花仙子☆ 提交于 2019-12-18 09:42:36

问题


I am using Lotus notes Client 8.5 and i want to export mail items into DXl file. can anyone tell me the steps to convert notes doxument into DXL file?


回答1:


Create a Java agent to export a DXL file for all selected documents:

import lotus.domino.*;

public class JavaAgent extends AgentBase {

    @Override
    public void NotesMain() {

        try {
            Session session = getSession();
            AgentContext agentContext = session.getAgentContext();
            DocumentCollection dc = agentContext.getUnprocessedDocuments();
            String filename = "c:/temp/exportDocs.dxl";
            Stream stream = session.createStream();
            if (stream.open(filename)) {
                stream.truncate();
                DxlExporter exporter = session.createDxlExporter();
                exporter.setRichTextOption(0);
                exporter.setMIMEOption(0);
                stream.writeText(exporter.exportDxl(dc));
            } else {
                System.out.println("Cannot open " + filename);
            }
        } catch (Exception e) {
            e.printStackTrace();
        }
    }
}

Leave default settings for new agent like "Target: All selected documents" as they are.

Open then a view, select documents and run the agent.

As an alternative you can create a LotusScript agent

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim filename As String
    Dim stream As NotesStream
    Dim exporter As NotesDXLExporter
    Set db = session.Currentdatabase
    set dc = db.UnprocessedDocuments
    filename = "c:/temp/exportDocs.dxl"
    set stream = session.createStream()
    If stream.Open(filename) Then
        Call stream.Truncate()
        set exporter = session.CreateDxlExporter()
        exporter.Richtextoption = 0
        exporter.MIMEOption = 0 
        Call stream.WriteText(exporter.Export(dc))
    End if
End Sub


来源:https://stackoverflow.com/questions/24408806/how-to-export-notes-documentemail-task-etc-from-lotus-notes-client-8-5-into-d

易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!