섹션 스타일을 Lotus Notes에서 사용 된 회신을 모방하여 설정합니다.

Question

LotusScript에서 섹션의 스타일을 설정할 수있는 방법이 있습니까? 나는 로터스 노트의 역사에 대한 회신에서 사용 된 섹션 유형을 모방하고 싶습니다. 섹션은 가장 왼쪽에 나타나도록 LotusScript와

1. 여백을 설정하여

   .

2. 히스토리에 대한 회신에 사용되는 "표 모양"섹션 제목으로 나타나도록 섹션 스타일을 설정하십시오.

색상, 글꼴 등을 설정하는 방법을 볼 수 있습니다. 그러나 섹션의 실제 스타일을 설정하는 방법을 알 수 없습니다.

Answer 1

나는 이것을 달성 할 수있는 유일한 방법은 DXL을 사용하는 것이라고 생각합니다. 즉, 원하는 스타일로 섹션이 포함 된 문서를 DXL로 내보낼 수 있습니다. 동일한 DXL을 생성하고 (예 : 제목) 사용자 정의해야하는 항목으로 수정 된 코드를 작성하여 새 문서로 가져옵니다. 그런 다음이 새 문서를 여는 코드를 작성하여 섹션이 들어있는 서식있는 텍스트 항목을 읽고 AppendRTItem을 사용하여 작업중인 문서에 놓습니다.

Answer 2

프로필을 보면 이미 Xpages에 익숙합니다.

앱이 복잡하지 않은 경우 Xpages로 이동합니다. 스타일링은 트라 드에서 쉽기 때문에 그렇습니다. 메모 앱. 그것이 나를 위해.

다음은 노트의 섹션을 만드는 lotusscript의 예입니다. 어떤 종류의 앱을 만들고 있는지, 플랫폼, 메모, 웹 또는 둘 모두에 대해 잘 모르겠습니다. breaking par에

는 예를 들어, 느릅 나무는 메일 파일에게 메모 양식을 사용하여 메일 본문 여기

섹션 및 텍스트 배치되는 코드

Sub Initialize 
    Dim session As New NotesSession 
    Dim mailDb As New NotesDatabase("", "") 
    Dim ws As New NotesUIWorkspace 
    Dim doc As NotesDocument 
    Dim body As NotesRichTextItem 
    Dim style As NotesRichTextStyle 
    Dim color As NotesColorObject 

    Call mailDb.OpenMail 
    Set doc = mailDb.CreateDocument 
    Call doc.ReplaceItemValue("Form", "Memo") 
    Set body = doc.CreateRichTextItem("Body") 
    Set style = session.CreateRichTextStyle 
    Set color = session.CreateColorObject 
    Call body.AppendText("This is some text before the section") 
    Call body.AddNewline(2) 
    Call body.BeginSection("Expanded Section", style, color, True) 
    Call body.AppendText("Here is some text within the section") 
    Call body.AddNewline(2) 
    Call body.AppendText("Here is some more text within the section") 
    Call body.EndSection 
    Call body.AddNewline(2) 
    Call body.AppendText("This is some text between the two sections") 
    Call body.AddNewline(2) 
    Call body.BeginSection("Collapsed Section") 
    Call body.AppendText("Here is some text within the section") 
    Call body.AddNewline(2) 
    Call body.AppendText("Here is some more text within the section") 
    Call body.EndSection 
    Call body.AddNewline(2) 
    Call body.AppendText("This is some text after the section") 
    Call doc.Save(True, False, False) 
    Call ws.EditDocument(True, doc) 
    Call doc.Remove(True) 
End Sub 

을 completness를 들어 여기에 LotusScript와 에이전트를 호출하는 방법을 튜토리얼입니다 x 페이지에서 Tutorial-Introduction-to-XPages-Exercise-20 희망이 있습니다.

편집 : 노트 클라이언트에서 css 및 html에 대해 survey을 보유하고 있음을 기억합니다.