[原创]Godaddy Windows主机 IIS6.0及IIS7.0 发送邮件代码分享. - 外贸网站建设,SOHO英文网页制作,网站设计公司--伊路网络工作室 - 建站知识库 - 国外空间经验交流 - 『 Godaddy

登陆

资料

在线

排行

帖子

文件

查询

收件箱

风格

加入收藏

使用帮助


首页 >> 建站知识库 >> 国外空间经验交流 >> 『 Godaddy \| LunarPages 』 >> [原创]Godaddy Windows主机 IIS6.0及IIS7.0 发送邮...


新帖新投票回复帖子讨论区精华区	上篇刷新树型下篇

帖子主题: [原创]Godaddy Windows主机 IIS6.0及IIS7.0 发送邮件代码分享.

头衔：论坛总管理员

Admin

荣誉：管理员
职务：总版主
级别：圣骑士
积分：547
经验：3330
文章：271
注册：03-01-20 23:27

发表: 2009-11-07 17:03:44 人气:28902

楼主

[原创]Godaddy Windows主机 IIS6.0及IIS7.0 发送邮件代码分享.

Windows主机 IIS6.0及IIS7.0 发送邮件代码分享.
最近买了个windows deluxe plan, 体验了下全新的IIS7.0不想在邮件发送中遇到问题, 通过联系客服及论坛问询问题终于解决.

先是IIS6.0发送邮件代码 (version1.1)
Dim CDONTSObj, MessageBody
Set CDONTSObj = Server.CreateObject("CDONTS.NewMail")
CDONTSObj.To = "to@email.com"
CDONTSObj.From = "from@email.com"
'CDONTSObj.cc = "cc@email.com"
MessageBody = "body here"
CDONTSObj.Subject = "subject here"
CDONTSObj.Body = MessageBody
CDONTSObj.Send
Set CDONTSObj = nothing

再是IIS7.0发送邮件代码 (version我从2.0/3.0/3.5改回了1.1,但这个应当没影响的)

sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing";
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver";

'Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 'cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Update

'Create and send the mail
Set objMail=CreateObject("CDO.Message")
'Use the config object created above
Set objMail.Configuration=objConfig
objMail.From="donotreply@godaddy.com" '必须用godaddy注册的邮箱, 我就是用的这个donotreply成功了
objMail.To="to@****.com"
objMail.Subject="subject here"
objMail.TextBody="bodyhere"
objMail.Send

'以下代码用于显示提示信息, 我的站因有其他提示,没用这个
'Response.Write "send success！"
'if Err <> 0 then
'response.write "<font color=ff0000>"&Err.Description&"</font>"
'response.end
'end if

专业外贸英文网站建设｜多语种网站建设(点击查看方案)

9 7 1 8 : 此主题共有1帖此页1帖每页100帖

回复帖子注意: *为必填项

*用户名和密码

用户名密码注册新用户

*帖子名称

长度不得超过255字

内容(最大16K)
是否是UBB代码

内容支持插入UBB标签
使用方法请参考帮助

其它选项:

显示签名

不允许回复

- UBB标签

- 颜色表 Alt+S或Ctrl+Enter快速提交