28,391
社区成员
发帖
与我相关
我的任务
分享关于asp连接lotus数据库发送邮件的问题
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASPLOTUS</title>
</head>
<body>
<%
Set noSession = CreateObject("Lotus.NotesSession")
call noSession.Initialize '此句始终通不过，不知为什么？提示不能打开此ID文件
set nodatabase=objsession.getdatabase("server","mail\hehdh.nsf ","false")
if nodatabase.isopen=false then nodatabase.openmail
set nodocument=nodatabase.createdocument
set noAttachment=noDocument.createrichtextitem("content")
set nobody=nodocument.createrichtextitem("body")
nobody.appendtext("this is a text mail")
call nodocument.repoaceitemvalue("Form","Memo")
call nodocument.replaceitemvalue("sendto","XXX/XXX/XXX/XXX/XXX")
call nodocument.replaceitemvalue("subject","测试邮件内容")
call nodocument.send(false)
onsession.terminate()
set noDocument=nothing
set nodatabase=nothing
set nosession=nothing
%>
</body>
</html>
注：我已注册nlsxbe.dll
哪位老师指导一下，谢谢！
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASPLOTUS</title>
</head>
<body>
<%
Set noSession = CreateObject("Lotus.NotesSession")
call noSession.Initialize '此句始终通不过，不知为什么？提示不能打开此ID文件
set nodatabase=objsession.getdatabase("server","mail\hehdh.nsf ","false")
if nodatabase.isopen=false then nodatabase.openmail
set nodocument=nodatabase.createdocument
set noAttachment=noDocument.createrichtextitem("content")
set nobody=nodocument.createrichtextitem("body")
nobody.appendtext("this is a text mail")
call nodocument.repoaceitemvalue("Form","Memo")
call nodocument.replaceitemvalue("sendto","XXX/XXX/XXX/XXX/XXX")
call nodocument.replaceitemvalue("subject","测试邮件内容")
call nodocument.send(false)
onsession.terminate()
set noDocument=nothing
set nodatabase=nothing
set nosession=nothing
%>
</body>
</html>
注：我已注册nlsxbe.dll
哪位老师指导一下，谢谢！
...全文
请发表友善的回复…
发表回复
hdzhlhj 2017-07-03
- 打赏
- 举报
恳请哪位老师教我，不胜感谢！
hdzhlhj 2017-07-03
- 打赏
- 举报
急，为什么无人回复？是？。。。。。。这样吧，入有对我帮助的回复，你要什么我给什么！！！！谢谢各位！！！！
hdzhlhj 2017-06-26
- 打赏
- 举报
用下面方法也是一直提示call objSession.Initialize("12345678") 这一句错误，提示不能打开此ID文件。我的Notes用户已打开了！
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<%
Dim objSession, objDir, objDB, objDoc, objRTItem, strMailServer
Set objSession = CreateObject("Lotus.NotesSession")
call objSession.Initialize("12345678") ' Password for the user.id "12345678"
strMailServer = objSession.GetEnvironmentString( "MailServer ", True) ' Gets the MailServer in notes.ini
Set objDir = objSession.GetDbDirectory(strMailServer)
Set objDB = objDir.OpenMailDatabase
If objDB.IsOpen then
Set objDoc = objDB.CreateDocument
Call objDoc.ReplaceItemValue( "Form ", "Memo ")
Call objDoc.ReplaceItemValue( "SendTo ", "xxx/xxx/xxx/xxxx" )
'call objDoc.ReplaceItemValue( "CopyTo ", strCC)
'call objDoc.ReplaceItemValue( "BlindCopyTo ", strBCC)
Call objDoc.ReplaceItemValue( "Subject ", "Test ")
Set objRTItem = objDoc.CreateRichTextItem("Body " )
Call objRTItem.AppendText( "Text here " & vbCRLF & vbCRLF)
' Call objRTItem.EmbedObject( 1454, " ", "F:\kk\c.xls ") ' Must specify directory
objDoc.SaveMessageOnSend =True ' Change to True to save message in mailfile.nsf
Call objDoc.Send(False)
Response.Write "The message has been sent! <br /> "
else
Response.Write "Error - Cannot open mail database on server " & strMailServer & ". <br /> "
end if
%>
</body>
</html>
还请哪位老师指导，谢谢！！！
