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

...全文
482 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
uoche 2005-09-19
WINDOWS2003安全太高了,得增開一些服務...
你把OS換成2000絕對可以,省得你麻煩..
  • 打赏
  • 举报
回复
chenxdb 2005-09-19
UP
  • 打赏
  • 举报
回复
chenxdb 2005-09-06
UP!!UP!!
是不是我的問題太難還是沒有表達清楚??
我估計是2003 COM組件調用時的安全性問題。
請問DX有沒有人碰到這种問題啊?
頂者有分。
  • 打赏
  • 举报
回复
chenxdb 2005-09-03
up
  • 打赏
  • 举报
回复
发帖
消息协作

531

社区成员

企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
帖子事件
创建了帖子
2005-09-02 05:13
社区公告
暂无公告