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

相关文章推荐

delphi7+indy9发送邮件源码(测试通过)

delphi7 indy9 通过  procedure TForm1.Button1Click(Sender: TObject);  var      filename: string;  b...

java发送邮件基于SSL安全协议,dos测试成功发送

1.问题背景 项目中应用到发送邮件服务,基于ssl安全协议,公司自己邮件服务器发送邮件。在部署项目到生产服务器时候,发送邮件失败。寻找发送邮件失败原因时候,决定在dos命令中单独执行发送邮件类,判断是...

phpmailer使用qq邮箱、163邮箱成功发送邮件实例代码

以前使用qq邮箱、163服务器发送邮件,帐号直接使用密码,现在不行了,得使用授权码,简单记录下 1、首先开通POP3/SMTP服务,qq邮箱——帐号——设置,找到POP3/SMTP点开启,输入短信会有...
  • nuli888
  • nuli888
  • 2016年08月06日 13:58
  • 609

c# 自动发送邮件测试代码

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin...

微软发送邮件dll(数据库用)

  • 2010年04月09日 20:35
  • 94KB
  • 下载

使用.net(C#)发送邮件(带成功案例)

1.了解发送邮件的三种方式  第一:client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network;  //通過遠程SMTP服...

实例讲解如何通过Oracle成功发送邮件-入门基础

LINUX AS3+Oracle 9.2||10.20.1从Oracle成功发送邮件:     示例如下:     具体的测试环境:LINUX AS3 , Oracle 9.0.2.4   ...

javamail 调用office365的邮箱发送邮件----报错到成功问题记录

发送邮件的时候首先报错ssl shakehands失败,后来网上搜到通过InstallCert.java来从服务器上下载证书,下载证书的时候报错如下:javax.net.ssl.SSLExceptio...

Flask-mail发送邮件遇到的错误总结,以及成功后源码

首先放上成功发送邮件后源码,遇到的六种错误以及可能成功的解决办法在文章后半文写的很乱….莫怪…..from flask import Flask, render_template, session, ...

Python抢火车票成功后发送邮件

splinter是Python中用于测试网站、模拟浏览网页的一个插件,操作简单visit(‘http://’) 进入网页fill() 函数可以在网页中输入内容click() 模拟点击时间 find_...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:CDONTS.DLL发送邮件代码.成功测试通过
举报原因:
原因补充:

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