 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
WIN2K下的CDO或CDONTS被默认配置成只能通过本地的Microsoft SMTP服务来发送邮件，假如要用外部的邮件服务器，一般要安装第三方组件。以下代码教你如何利用CDO通过外部邮件服务器发送邮件。(译者win2000下测试通过。) <% 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 Dim objMessage \\\' As CDO.Message Dim Fields \\\' As ADODB.Fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "sony.com" \\\'改成可用的外部邮件服务器域名 .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "hooke" \\\'以上服务器的用户名 .Item(cdoSendPassword) = "mypassword" \\\'密码 .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "F4@meteorgardon.com" \\\'改成接收者的邮件地址 .From = "hooke@sony.com" \\\'改成发送人的邮件地址 .Subject = "SMTP Relay Test" \\\'标题 .TextBody = "SMTP Relay Test Sent @ " & Now() \\\'正文 .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing %> 返回类别: 教程 上一教程: 浅谈ASP程序的编写和调试：给初学者 下一教程: 如何在ASP中使用类 您可以阅读与"使用CDO通过外部邮件服务器发邮件"相关的教程: · 利用ADODB.STREAM使用浏览器下载服务器文件 · 在ASP中使用CDO发送邮件 · 使用索引服务器 - 增加属性 · 使用CDONTS发送邮件的几个例子 · 在不支持FSO的服务器上使用XMLDOM创建HTML文件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
