CDONTS.DLL发送邮件代码.成功测试通过

原创 2006年05月29日 16:11:00


EmailTitle="New Gold Store Order Information From WWW.GAMESAVOR.COM!("&now()&")"
EmailContent="WOW Gold Store Order Infomation:"&vbcrlf&vbcrlf
EmailFrom="gamesavor@126.com"
EmailTo="gamesavor@hotmail.com"


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) = "smtp.126.com" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "gamesavor" '以上服务器的用户名
.Item(cdoSendPassword) = "123456" '密码
.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
.To = EmailTo '改成接收者的邮件地址
.From =EmailFrom'改成发送人的邮件地址
.Subject = EmailTitle'标题
.TextBody = EmailContent'正文
'.AddAttachment "C:/Scripts/Output.txt"'邮件附件
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

软件测试经典习

01.   请试述某个测试工具的工作原理,并以一个具体的工作中的例子描述该工具是如何在实际工作中应用的。 02.   请描述测试用例评审的过程和评审的内容。 1:评审的过程  A:开始前做好如下准...
  • haimianjie2012
  • haimianjie2012
  • 2013年04月27日 18:53
  • 1278

log4j.properties配置详解与实例 (案例经过测试)

log4j.properties配置详解与实例 (案例经过测试)
  • weixin_37852133
  • weixin_37852133
  • 2017年03月27日 15:53
  • 179

Linux 平台一种进程代码注入方法

用于在目标程序的 main 函数执行前完成一些操作   特定情况下用来调试还是不错的。 源代码 /* fakemain.c * Heiher */   #include ...
  • stonesharp
  • stonesharp
  • 2013年10月30日 10:10
  • 1820

软件测试--IEEE829标准

1998版中定义一套文档用于8个已定义的软件测试阶段: 测试计划:一个管理计划的文档 包括: 测试如何完成(包括SUT的配置) 谁来做测试 将要测试什么 测试将持续多久(虽然根据可以使用...
  • u014332275
  • u014332275
  • 2017年11月11日 20:53
  • 79

Http协议响应状态码

Http协议响应状态码     1 状态码概述 状态码的第一位数字定义响应类别。后两位数字没有任何分类角色。第一位数字有五种值: 1xx :报告的,请求被接收到,继续处理。 2xx ...
  • wuxiaobingandbob
  • wuxiaobingandbob
  • 2013年04月30日 21:55
  • 1018

使用TortoiseGit提交代码到Github.com上 详细步骤

由于一直用的都是SVN提交代码,git也是目前自己边学边用的,本来以为自己已经会用了,可是一段时间没用又忘了,所以赶紧整理整理记下来,以便日后使用!        1、往github网站上推送代码...
  • u010844189
  • u010844189
  • 2016年03月09日 15:55
  • 5707

实验二 成功的代码之一

class Trangle   {      double sideA,sideB,sideC,area,length;    boolean boo;    public  Trangle(...
  • magic_elf
  • magic_elf
  • 2013年03月26日 22:05
  • 409

Android 判断网络是否连接成功

在android开发中有时可能需要判断手机是否已经连接好网络,如wifi或者移动网,可以按如下步骤来实现: (1)在AndroidManifest.xml或者程序中注册广播接收器 Androi...
  • White_Castle
  • White_Castle
  • 2013年05月30日 16:55
  • 4151

pygame的安装调试

在接下来的blog中,会有一系列的文章来介绍关于pygame的内容,所以把标题设置为pygame系列 在这篇blog中,主要描述一下我们怎样来安装pygame; 可能很多人像我一样,发现了pyga...
  • Debug_Snail
  • Debug_Snail
  • 2016年02月29日 20:21
  • 1202

HTTP 状态代码

所有 HTTP 状态代码及其定义。   代码  指示   2xx  成功   200  正常;请求已完成。   201  正常;紧接 POST 命令。   202  正常;已接受用于处理...
  • hao5743
  • hao5743
  • 2016年06月06日 16:37
  • 471
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:CDONTS.DLL发送邮件代码.成功测试通过
举报原因:
原因补充:

(最多只允许输入30个字)