[前台调用]HAIRUICMS发送邮件
2023-05-28阅读：2550
调用Aspemail函数(服务器必须安装ASPEMAIL 5.3组件)：
Aspemail "收件人邮箱","邮件主题","邮件正文"
调用Jmail函数(服务器必须安装Jmail组件)：
Jmail "收件人邮箱","邮件主题","邮件正文"
判断邮件是否发送成功：
SendMail = False '邮件发送失败
个性定制常用发送邮件代码：
' 发送邮件
Topic = "您有新的个性定制，请注意查收！"
Mailbody = "<strong>个性定制信息：</strong><br>"
Mailbody = Mailbody&"我想去："&request("WantGo")&"<br>"
Mailbody = Mailbody&"我来自："&request("FromTo")&"<br>"
Mailbody = Mailbody&"出发时间："&request("GoDate")&"<br>"
Mailbody = Mailbody&"出行人数："&CInt(request("PeopleCount"))&"人<br>"
Mailbody = Mailbody&"游玩天数："&request("Days")&"天<br>"
Mailbody = Mailbody&"同游伙伴："&request("Tongyou")&"<br>"
Mailbody = Mailbody&"住宿要求："&request("Zhusu")&"<br>"
Mailbody = Mailbody&"联 系 人："&request("LinkMan")&"<br>"
Mailbody = Mailbody&"联系电话："&request("Tel")&"<br>"
Mailbody = Mailbody&"QQ或邮箱："&request("QQ")&"<br>"
Mailbody = Mailbody&"提交时间："&now()&"<br>"
Mailbody = Mailbody&"信息来源："&request.servervariables("http_referer")&"<br>"
Mailbody = Mailbody&"<strong>此邮件为系统发送，请勿直接回复，请按客人所留信息联系客人！</strong>"
Aspemail E_ReceiveMail,Topic,Mailbody在线订单常用发送邮件代码：
' 发送邮件
Topic = "您有新的订单，请注意查收！"
Mailbody = "<html><body><strong>订单信息：</strong><br>"
Mailbody = Mailbody&"预订线路：<a href=http://"&Request.ServerVariables("SERVER_NAME")&"/Tour/Show.asp?ItemID="&ItemID&" target=_blank style='color:#00F;'>"&ShowRs("Item1")&"</a><br>"
Mailbody = Mailbody&"出发日期："&TravelTime&"<br>"
Mailbody = Mailbody&"出行人数：成人："&Adult&" 儿童："&Child&"<br>"
Mailbody = Mailbody&"总 价：成人:"&ShowRs("Item5")&" × "&Adult&" + 儿童:"&ShowRs("Item6")&" × "&Child&" = "&TotalPrice&" 元<br>"
Mailbody = Mailbody&"联 系 人："&LinkMan&"<br>"
Mailbody = Mailbody&"电话/手机："&Tel&"<br>"
Mailbody = Mailbody&"备 注："&Content&"<br>"
Mailbody = Mailbody&"提交时间："&now()&"<br>"
Mailbody = Mailbody&"信息来源："&request.servervariables("http_referer")&"<br>"
Mailbody = Mailbody&"<strong>此邮件为系统发送，请勿直接回复，请按客人所留信息联系客人！</strong>"&"</body></html>"
Aspemail E_ReceiveMail,Topic,Mailbody