现有 IBM Lotus Domino/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" ) 	
…