Asp 发Email (可以加发附件)

< !DOCTYPE HTML  PUBLIC   " -//W3C//DTD HTML 4.01 Transitional//EN "   " http://www.w3.org/TR/html4/loose.dtd " > < html > < head > < meta http - equiv = " Content-Type "  content = " text/html; charset=gb2312 " > < title > 无标题文档 </ title > </ head > < % ' ********************************* ' * WIN2K下的CDO或CDONTS被默认配置成只能通过本地的Microsoft SMTP服务来发送邮件， ' * 如果要用外部的邮件服务器，一般要安装第三方组件。以下代码教你如何利用CDO通过 ' * 外部邮件服务器发送邮件。(译者win2000下测试通过。) ' ********************************* ' * 改一下加注释的就可以了。 在winXp下测试也正常 ' * Asp 发Email ' ********************************* Const  cdoSendUsingMethod = " 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 " Const  cdoSMTPAuthenticate = " http://schemas.microsoft.com/cdo/configuration/smtpauthenticate " Const  cdoBasic = 1 Const  cdoSendUserName = " http://schemas.microsoft.com/cdo/configuration/sendusername " Const  cdoSendPassword = " http://schemas.microsoft.com/cdo/configuration/sendpassword " Dim  objConfig   '  As CDO.Configuration Set  objConfig  =  Server.CreateObject( " CDO.Configuration " ) Dim  Fields      '  As ADODB.Fields Set  Fields  =  objConfig.Fields With  Fields    .Item(cdoSendUsingMethod)        =  cdoSendUsingPort    .Item(cdoSMTPServer)             =   " mail.thaifoodstation.com "         ' 改成可用的外部邮件服务器域名     .Item(cdoSMTPServerPort)         =   25     .Item(cdoSMTPConnectionTimeout)  =   10     .Item(cdoSMTPAuthenticate)       =  cdoBasic    .Item(cdoSendUserName)           =   " orders@thaifoodstation.com "     ' 以上服务器的用户名     .Item(cdoSendPassword)           =   " NOODLE "                         ' 密码     .Update End   With Dim  objMessage  '  As CDO.Message Set  objMessage  =  Server.CreateObject( " CDO.Message " ) Set  objMessage.Configuration  =  objConfig With  objMessage    .To        =   " dev2@ssbg22.com.cn "                   ' 改成接收者的邮件地址    Request("txtEmail")     .From      =   " senderEmail@hotmail.com "            ' 改成发送人的邮件地址      .Subject   =   " 标题名称 from asp22@email.com "    ' 标题Request("txtSubject")     .TextBody  =   " 正文内容 "                          ' 正文Request("txtMessage")     .AddAttachment Server.MapPath( " 1.txt " )         ' 邮件附件 'C:ScriptsOutput.txt 注意要绝对路径     .Send End   With Set  Fields  =   Nothing Set  objMessage  =   Nothing Set  objConfig  =   Nothing     % > < body > < form name = " form1 "  method = " post "  action = "" >    < table  border = " 1 "  align = " center "  cellpadding = " 0 "  cellspacing = " 0 " >      < tr >        < td colspan = " 2 " >< div align = " center " > Send Email </ div ></ td >      </ tr >      < tr >        < td > Your Name:  </ td >        < td >< input name = " txtName "  type = " text "  id = " txtName " ></ td >      </ tr >      < tr >        < td > Your Email: </ td >        < td >< input name = " txtEmail "  type = " text "  id = " txtEmail " ></ td >      </ tr >      < tr >        < td > Message: </ td >        < td >< input name = " txtMessage "  type = " text "  id = " txtMessage " ></ td >      </ tr >      < tr >        < td >& nbsp; </ td >        < td >< input type = " submit "  name = " Submit "  value = " 提交 " ></ td >      </ tr >    </ table > </ form > </ body > </ html >