對 Lotus Notes 郵件模版進行二次開發的最佳實踐

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim collection As NotesDocumentCollection
	Dim doc As NotesDocument
	Set db = session.CurrentDatabase
	Set collection = db.UnprocessedDocuments
	Set doc = collection.GetFirstDocument()
	While Not(doc Is Nothing)		
		Set itemA = doc.ReplaceItemValue( "_ViewIcon", 116 )		
		Call doc.Save( False, True )		
		Set doc = collection.GetNextDocument(doc)
	Wend
End Sub 

SELECT _ViewIcon != ""

DocumentStateSort := 0;

DEFAULT DocumentStateCategory := @If(
         _ViewIcon=116;
                @Do(@Set ("DocumentStateSort";1);"VIP客戶");
          _ViewIcon=115;
                @Do(@Set ("DocumentStateSort";2);"重要客戶");
         _ViewIcon=114;
                @Do(@Set ("DocumentStateSort";4);"普通客戶");
         @Do(@Set ("DocumentStateSort";5);"未知客戶")
         );

DocumentStateSort

Sub Initialize
    Dim NewUIWorkspace As New NotesUIWorkspace
    Dim NewNoteSession As New NotesSession
    Dim CurrentDB As NotesDatabase 
    Set CurrentDB = NewNoteSession.CurrentDatabase
    
    ‘建立新郵件
    Dim MailDoc As NotesDocument
    Set MailDoc = New NotesDocument(CurrentDB)
    MailDoc.form. = "Memo"
    MailDoc.SendTo = NewNoteSession.EffectiveUserName
    MailDoc.Subject = "月度統計"
    
    ‘建立郵件體
    Dim TableNotesRichTextItem As NotesRichTextItem
    Set TableNotesRichTextItem = MailDoc.CreateRichTextItem("Body")
    
    Dim columnHeaderStyle. As NotesRichTextStyle. Set columnHeaderStyle. = NewNoteSession.CreateRichTextStyle( )
    columnHeaderStyle.Bold = True
    columnHeaderStyle.FontSize =8
    columnHeaderStyle.NotesFont = TableNotesRichTextItem.GetNotesFont("Arial", True)
    
    ‘建立表格
    Dim i As Integer
    Dim columnStyles(0 To 4) As NotesRichTextParagraphStyle. For i = 0 To 4
        Set columnStyles(i) = NewNoteSession.CreateRichTextParagraphStyle. columnStyles(i).LeftMargin = 0
        columnStyles(i).FirstLineLeftMargin = 0
    Next
    columnStyles(0).RightMargin  =3 * RULER_ONE_CENTIMETER    
    columnStyles(1).RightMargin = 8 * RULER_ONE_CENTIMETER    
    columnStyles(2).RightMargin = 8 * RULER_ONE_CENTIMETER    
    columnStyles(3).RightMargin = 3 * RULER_ONE_CENTIMETER
    columnStyles(4).RightMargin = 3 * RULER_ONE_CENTIMETER
    
    Dim headerColor As NotesColorObject
    Dim dataColor As NotesColorObject
    Set headerColor = NewNoteSession.CreateColorObject
    Call headerColor.SetRGB(239,239,239)
    Set dataColor = NewNoteSession.CreateColorObject
    Call dataColor.SetRGB(255,255,255)
    
    Call TableNotesRichTextItem.AppendTable(1,5,,,columnStyles)
    
        ‘建立表格頭
    Dim TableNotesRichTextNavigator As NotesRichTextNavigator
    Set TableNotesRichTextNavigator = TableNotesRichTextItem.CreateNavigator()
    TableNotesRichTextNavigator.FindLastElement RTELEM_TYPE_TABLE
    
    Dim TableNotesRichTextTable As NotesRichTextTable
    Set TableNotesRichTextTable = TableNotesRichTextNavigator.GetElement
    TableNotesRichTextTable.Style. = TABLESTYLE_TOP
    TableNotesRichTextTable.SetColor headerColor
    TableNotesRichTextTable.SetAlternateColor dataColor
    
    TableNotesRichTextItem.AppendStyle. columnHeaderStyle. TableNotesRichTextNavigator.FindNextElement RTELEM_TYPE_TABLECELL
    TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator
    TableNotesRichTextItem.AppendText "客戶型別"
    TableNotesRichTextItem.EndInsert
    TableNotesRichTextNavigator.FindNextElement
    TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator
    TableNotesRichTextItem.AppendText "發件人"
    TableNotesRichTextItem.EndInsert
    TableNotesRichTextNavigator.FindNextElement
    TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator
    TableNotesRichTextItem.AppendText "主題"
    TableNotesRichTextItem.EndInsert
    TableNotesRichTextNavigator.FindNextElement
    TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator
    TableNotesRichTextItem.AppendText "日期"
    TableNotesRichTextItem.EndInsert
    TableNotesRichTextNavigator.FindNextElement
    TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator
    TableNotesRichTextItem.AppendText "郵件連結"
    TableNotesRichTextItem.EndInsert
    
    ‘查詢“合同郵件”檢視
    Dim ContractNotesView As NotesView
    Set ContractNotesView = CurrentDB.GetView("合同郵件") 
    
    Dim ContractNotesViewNavigator As NotesViewNavigator
    Set ContractNotesViewNavigator = ContractNotesView.CreateViewNav
    Dim ContractNotesViewEntry As NotesViewEntry
    Set ContractNotesViewEntry = ContractNotesViewNavigator.GetFirstDocument
    
    Dim dataStyle. As NotesRichTextStyle. Set dataStyle. = NewNoteSession.CreateRichTextStyle()
    dataStyle.Bold = False
    dataStyle.FontSize = 10
    
    TableNotesRichTextNavigator.FindNextElement 
    TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator
    Call TableNotesRichTextItem.AppendStyle(dataStyle)    
    TableNotesRichTextItem.EndInsert
    
'計算上個月
    Dim lastMonth As New NotesDateTime( "" )
    lastMonth.LSLocalTime = Now    
    Call lastMonth.AdjustMonth( -1 ) 
    
    While Not ContractNotesViewEntry Is Nothing
        Dim dateTime As NotesDateTime
        Dim item As NotesItem    
        Set dateTime = ContractNotesViewEntry.Document
		    .GetItemValueDateTimeArray("PostedDate")(0)    
        
        If (dateTime.GMTTime>lastMonth.GMTTime) Then
            
            ‘增加一行
            Call TableNotesRichTextTable.AddRow(1)
            
            TableNotesRichTextNavigator.FindNextElement
            TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator  
            
            Dim MailType As String 
            Dim MailTypeText As String
            MailType = ContractNotesViewEntry.Document.GetItemValue("_ViewIcon")(0)
            If MailType = "114" Then
                MailTypeText =  "普通客戶"
            Elseif MailType = "115" Then
                MailTypeText =  "重要客戶"
            Elseif MailType = "116" Then
                MailTypeText =  "VIP客戶"            
            End If
            
            TableNotesRichTextItem.AppendText MailTypeText
            TableNotesRichTextItem.EndInsert
            
            TableNotesRichTextNavigator.FindNextElement
            TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator  
            TableNotesRichTextItem.AppendText ContractNotesViewEntry.Document_
			    .GetItemValue("From")(0)
            TableNotesRichTextItem.EndInsert
            
            TableNotesRichTextNavigator.FindNextElement
            TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator  
            TableNotesRichTextItem.AppendText ContractNotesViewEntry.Document_
			    .GetItemValue("Subject")(0)
            TableNotesRichTextItem.EndInsert
            
            TableNotesRichTextNavigator.FindNextElement
            TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator     
            TableNotesRichTextItem.AppendText ContractNotesViewEntry.Document_
			    .GetItemValue("PostedDate")(0)
            TableNotesRichTextItem.EndInsert
            ‘新增文件連結
            TableNotesRichTextNavigator.FindNextElement
            TableNotesRichTextItem.BeginInsert TableNotesRichTextNavigator  
            Call TableNotesRichTextItem.AppendDocLink ( ContractNotesViewEntry.Document,_
			    ContractNotesViewEntry.Document.GetItemValue("Subject")(0))
            TableNotesRichTextItem.EndInsert 
        End If 
        
        Set ContractNotesViewEntry = ContractNotesViewNavigator_
		    .GetNextDocument(ContractNotesViewEntry)  
    Wend
    
    Call   MailDoc.Send(False)    
    
End Sub

…
    Set itemA = doc.ReplaceItemValue( "_ViewIcon", "accept.gif" ) 	
…