ASPCDO发送邮件问题

详细代码如下<%
Sub sendemail(sendFrom,sendTO,smtpserver,sendusername,sendpassword,subject,message)
On Error Resume Next
set iConfg = CreateObject("CDO.Configuration")
Set oFields = iConfg.Fields
'oFields = iConfg.Fields
oFields.item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
****oFields.item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")=sendFrom //sender mail ****
oFields.item("http://schemas.microsoft.com/cdo/configuration/smtpaccountname")=sendFrom //email account
oFields.item("http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort=2
Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Outlook发送邮件问题 发送邮件的问题 jmail邮件发送问题 邮件发送问题 发送邮件问题 求教：邮件发送问题？ 发送邮件失败问题 JMAIL发送邮件问题 邮件发送的问题 有关发送邮件问题？