Call objSession.Initialize（"123456"） ' Password for the user.id "12345678"
' If the user.id doesn 't have a password, do not put any parameters
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 ")
'To : (for more than one recipient, use an array of strings
'ReDim astrTo(0)
astrTo = "计划财会部/邯郸/河北/boc "
'astrTo(1) = " "
Call objDoc.ReplaceItemValue( "SendTo ", astrTo)
' CC:
'call objDoc.ReplaceItemValue( "CopyTo ", strCC)
' BCC:
'call objDoc.ReplaceItemValue( "BlindCopyTo ", strBCC)
' Subject:
Call objDoc.ReplaceItemValue( "Subject ", "Test " & Now)
Set objRTItem = objDoc.CreateRichTextItem("Body " )
'Body
Call objRTItem.AppendText( "Text here " & vbCRLF & vbCRLF)
' Attachments
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
%>
试用后出现以下错误：
错误类型：
NotesDocument (0x80041048)
No recipient list for Send operation
/Lotu.asp, 第 45 行
在asp向lotus notes中发送邮件，我不管用什么方法，始终不能通过，已郁闷了很长时间了，请各位高手教教我吧！！！谢谢各位了！！！