QuickWAP之邮件发送篇

QuickWAP包含了利用手机向WEB邮箱发送邮件的功能，支持搜狐、网易、新浪等各大门户邮箱之间的发信。QuickWAP组件发送邮件的功能主要借助于服务器端的Jmail组件。

发送邮件的效果图如图1所示，发送成功后的提示界面如图2所示。

图1

图2

在熟悉发邮件之前，我们还要熟悉几个QuickWAP在发送邮件时用到的几个属性。

MailServerUserName
属性声明：Public MailServerUserName As String
说明：设置smtp服务器验证登陆名 （任何一个Email地址）。
如：Wap.MailServerUserName="CnBikeOnline@163.com"

MailServerPassword
属性声明：Public MailServerPassword  As String
说明：设置用户Email帐号对应的密码。
如：Wap.MailServerPassword="******"

MailSmtp
属性声明：Public MailSmtp As String
说明：设置smtp服务器地址。
如：Wap.MailSmtp="smtp.163.comt"

SiteName
属性声明：Public SiteName As String
说明：设置发送网站的名字。
如：Wap.SiteName="中国被爱可以在线"

WebUrl
属性声明：Public WebUrl As String
说明：设置发送网站的WEB地址。
如：Wap.WebUrl="http://wap.bicyle.org"

MailResultFileName
属性声明：Public MailResultFileName As String
说明：邮件发送完毕后，跳转到的报告状态的文件的文件名。
如：Wap.MailResultFileName="Success.asp"
备注：一定要为文件名，并且与发送邮件同一目录下。

下面我们再来看看他们的源代码：

SendMail.asp

<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="邮件发送篇"
Wap.PageHeader
'以下可以写文件正文
Wap.MailServerUserName="CnBikeOnline@163.com"
Wap.MailServerPassword="*******"
Wap.MailSmtp="smtp.163.comt"
Wap.SiteName="中国快速WAP应用网"
Wap.WebUrl="www.quickwap.cn"
Wap.MailResultFileName="Success.asp"
Wap.SendMail
'以下为返回链接等信息
Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteOut Wap.DoPrev("prev", "后退", "TypeName", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>


Success.asp

<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="结 果 报 告"
Wap.PageHeader
'以下为文件正文。
 ToDo=Request.QueryString("ToDo")
Wap.WriteRow Wap.P("left","wrap")
If ToDo="SendMailOk" Then
 Wap.WriteRow "祝贺您,邮件发送成功！"
 Wap.WriteRow Wap.ImgA("","SendMail.asp","继续发送")
 Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
End If
'以下为返回链接等信息
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteOut Wap.DoPrev("prev", "后退", "TypeName", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

注意的是我们在SendMail.asp文件中可以不设置各项属性值，而直接使用SendMail函数就可以发送邮件，程序会采用默认值进行发送。
Success.asp一定要与SendMail.asp文件位于相同的目录下。

下图3为为不设置发送邮件相关属性时，用163邮箱收信的效果图。

图3

您可以根据需要设置不同的SMTP服务器来发信，或者更改网站的名称为您的站点名称。

以上为QuickWAP V1.0(免费版、精简版)以上的最新版本支持，希望您能够有所收获。