例:VB發送郵件
Function SendMailByNotes(SendTo As String, Subject As String, Body As String)
'************************************************************************
'* 引用類庫:Lotus Domino Objects(安裝了Notes Client端就有此類庫)
'* 注意:有一個默認可以正常使用的NOTES賬號
'* 參數:
'* 1、SendTo: 發送目的地郵地址
'* 2、Subject: 發送郵件的標題
'* 3、Body: 發送郵件的內容
'*******************************************************************
Dim DBserver As String
Dim DBFilePath As String
Dim PassWord As String
'*************************************************************
DBserver = "服務器" '默認NOTES賬號所在的服務器
DBFilePath = "郵件檔路徑" '默認NOTES賬號所在服務器上的NOTES文件檔
PassWord = "賬戶密碼" '發送郵件的默認NOTES賬號的密碼
'以上信息可從NOTES管理員處獲得
'*******************************************************************
Dim session As Domino.NotesSession
Dim doc As Domino.NotesDocument
Dim db As Domino.NotesDatabase
Dim rich As Domino.NotesRichTextItem
Set session = New Domino.NotesSession
Call session.Initialize(PassWord)
Set db = session.GetDatabase(DBserver, DBFilePath)
Set doc = db.CreateDocument
if not db.isOpen then db.Open()
Call doc.ReplaceItemValue("SendTo", SendTo)
Call doc.ReplaceItemValue("Subject", Subject)
Call doc.ReplaceItemValue("Body", Body)
Call doc.Send(False)
Set doc = Nothing
Set db = Nothing
Set session = Nothing
End Function