.Body = Trim(cBodyText) '&&邮件内容
End With
If Len(Trim(cstrAttachment)) <> 0 Then
Set ortAttacment = oMailDoc.CREATERICHTEXTITEM("Attachment")
Set oEmbedObject = ortAttacment.EMBEDOBJECT(1454, "", cstrAttachment, "Attachment")
End If
With oMailDoc
.PostedDate = Now()
.SAVEMESSAGEONSEND = "True"
.send (False)
End With
Set oMailDoc = Nothing
Set oCurrentMailDb = Nothing
Set oSession = Nothing
End Sub
’在vb中调用测试的代码，通过没问题！
'Private Sub Command1_Click()
'SendMail "C:\Lotus\Notes\Data\as_计划财会部.nsf", "我的测试邮件标题", "", "计划财会部/邯郸/河北/boc", "", "我的测试邮件内容"
'End Sub
'以下是a.asp的代码，调用不能通过，提示错误类型：
’asplotusnotes (0x80070002)
'Automation 错误
'/LotusNotes.asp, 第 12 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 23</title>
</head>
<body>
<%
dim MyTestObj
Set MyTestObj = Server.CreateObject("asplotusnotes.asplotusnotesl")
MyTestObj.SendMail "C:\Lotus\Notes\Data\as_计划财会部.nsf","我的测试邮件标题","F:\kk\c.xls","计划财会部/邯郸/河北/boc","计划财会部/邯郸/河北/boc","我的测试邮件内容"
Set MyTestObj = Nothing
%></body>
</html>
行asp的那台Server安装了Notes吗？
非常感谢楼上回复！
Server当然安装了Notes，vb测试就是在这台机器上测试的，没问题。asp的权限也给了，也注册了regsvr32 c:\lotus\notes\nlsxbe.dll，不管怎么弄，就是出现Automation 错误，我还有哪没有考虑到的？
上面我估计是Set oSession = CreateObject("Notes.NotesSession")
这句话有问题，因为他在asp中调用不通过，我从本论坛上搜索到以下代码
这里是一个asp发送email的例子,你参考一下!