日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

ASP中使用CDO.Message+SMTP發送郵件的函數代碼分享

作者:  來源:  發布時間:2011-6-15 11:51:02  點擊:
 下面提供給大家分享的是關于在ASP中使用CDO.Message+SMTP發送郵件的函數代碼,希望能對大家有所幫助。
<!--發送代碼-->
<%
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服務器" '改成可用的外部郵件服務器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "用戶名" '以上服務器的用戶名
.Item(cdoSendPassword) = "密碼" '密碼
.Update
End With

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

With objMessage
.To = Trim(Request.Form("m_user")) '改成接收者的郵件地址
.From = "發件人的地址(要和上面的郵件系統相同)" '改成發送人的郵件地址
.Subject = Trim(Request.Form("m_zhuzi")) '標題
.TextBody = Trim(Request.Form("m_neirong")) '正文
'.AddAttachment "C:\Scripts\Output.txt"'郵件附件
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
<!--發送代碼-->

相關軟件

相關文章

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 成龙电影大全免费功夫片| 宋允雅| 打美女光屁股视频网站| 周华健朋友一生一起走的歌词| 362329| 石田亚由美| 抖音入口| 《美景之屋| 各各他的路赞美诗歌| 洛城僵尸| 六年级下册语文文言文二则| 松岛菜菜子| 重启之极海听雷2免费版在线播放 北风那个吹在线观看免费完整版 出轨的女人电影 | 校园大片ppt| 江南style之我的白日梦| 张家界旅游攻略自由行攻略| 美国派7| 美丽的坏女人中文字幕| 电影《divinotesoro》| 七下语文第一单元作文| 刑事侦缉档案2剧情介绍| 美丽的日子 电视剧| 挠vk| 毕业生在线观看| 在爱的名义下| 诡娃| 白鹿电影| 杨佑宁个人简历| 艳堂| 大国医 电视剧| 湖南金鹰卡通节目表| 蓝家宝电影| 女用春情药什么好| 杨佑宁个人简历| 迷宫法国电影| 色戒在线观看完整版免费| 浙江卫视官网入口| 电影《此时此刻》| 春娇与志明电影| 胃疼呕吐视频实拍| jif|