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 >