WebService 如果調用Notes發郵件哪？

chenxdb 2005-09-02 05:13:02

本人使用vb.net編寫一WebService用於調用notes發送電子郵件。
同樣的代碼在應用程式可以正常發送，但放到WebService就不能發送了。
開發環境：WINDOWS2003+SP1+VS2003+Framework v1.1.4322+NOTES6.52
錯誤信息如下：
類型 'System.Runtime.InteropServices.SEHException' 很可能於 notes.dll 發生例外狀況
其他資訊: 外部元件傳回例外狀況。
類型 'System.OutOfMemoryException' 很可能於 notes.dll 發生例外狀況
其他資訊: 存放裝置空間不足，無法完成此操作。
代碼如下：
Public Function SendMailByNotes(ByVal SendTo As String, ByVal Subject As String, ByVal Body As String) As Boolean
'************************************************************************
'* 引用類庫：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賬號所在服務器上的NOTES文件檔
PassWord = "NOTES賬號的密碼" '發送郵件的默認NOTES賬號的密碼
'以上信息可從NOTES管理員處獲得
'*******************************************************************
Dim session As New Domino.NotesSession
Dim doc As Domino.NotesDocument
Dim db As Domino.NotesDatabase
Dim rich As Domino.NotesRichTextItem
Call session.Initialize(PassWord)
db = session.GetDatabase(DBserver, DBFilePath)
If Not db.IsOpen Then db.Open()
doc = db.CreateDocument()
doc.ReplaceItemValue("SendTo", SendTo)
doc.ReplaceItemValue("Subject", Subject)
doc.ReplaceItemValue("Body", Body)
Call doc.Send(False)
doc = Nothing
db = Nothing
session = Nothing
End Function

...全文