sendmaillist.asp

IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING

<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../img_shopxp/css.css" rel="stylesheet" type="text/css">
<!-- #include file="xp.asp "-->
<%if session("shopxpadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='shopxplogin.asp';</script>"
response.End
else
if session("dyyj")=0 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<!-- #include file="../conn_xp/shopxp.asp "-->
<!-- #include file="../Mail.asp" -->
<%


if request("action") = "send" then

	tomail = Trim(Request.Form("tomail"))
	
		mailsubject = Trim(Request.Form("mailsubject"))
	mailbodys = Trim(Request.Form("mailbody"))
	MailType = Request.Form("MailType")
	  Dim strSubject,strToEmail,strMailAdress,strSender,strContent,strFromer,strFromEmail,strUserName,strPassWord
 strSubject     = mailsubject   '标题
 
 strSender      = "yzr"                          ' 收件人姓名
 strContent     = mailbodys     ' 邮件内容
 strFromEmail   = mailsend                    ' 发件信箱
 strFromer      = mailname                    ' 发件人姓名
 strUserName    = mailusername                            ' 发件邮件帐号
 strPassWord    = mailuserpass 

	if tomail<>"" then
	myarr=split(tomail,",")
	for j=0 to ubound(myarr) 
	strToEmail=myarr(j)
if DEF_BBS_EmailMode=1 then
Call SendAction2 (strSubject,strMailaddress,strToEmail,strSender,strContent,strFromEmail,strFromer,strUserName,strPassWord)
 end if
if DEF_BBS_EmailMode=2 then
  Call SendAction (strSubject,strMailaddress,strToEmail,strSender,strContent,strFromEmail,strFromer,strUserName,strPassWord)
end if
if DEF_BBS_EmailMode=3 then
   SendCDOMail strSubject,strToEmail,strContent,strFromEmail
  end if
		NEXT
	else
		
		sql="select email from shopxp_email"
		set rs=conn.execute(sql)
		Response.Write("正在邮件群发.................." )
		while not rs.eof 
	strToEmail=rs("email")
if DEF_BBS_EmailMode=1 then
Call SendAction2 (strSubject,strMailaddress,strToEmail,strSender,strContent,strFromEmail,strFromer,strUserName,strPassWord)
 end if
if DEF_BBS_EmailMode=2 then
  Call SendAction (strSubject,strMailaddress,strToEmail,strSender,strContent,strFromEmail,strFromer,strUserName,strPassWord)
end if
if DEF_BBS_EmailMode=3 then
   SendCDOMail strSubject,strToEmail,strContent,strFromEmail
  end if

		RS.MoveNext 
		wend 
		
	end if
	Response.Write "<script>alert(""发送成功"");location.href=""SendMailList.asp"";</script>"
	Response.End
end if
%>
<table width="94%" height="33" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><link rel="stylesheet" href="webedit.css" type="text/css">
<div align="center"><font color="#FF0000">注意:点击“发送”后，请耐心等待，不要刷新! </font></div>
<form name="sendmail" action="?action=send" method="post" >
        
        
  <table border="0" cellspacing="1" cellpadding="4" width="80%" align="center" bgcolor="#797161">
    <tr bgcolor="#F1F3F5"> 
      <td height="5" colspan="2" align="center">发 送 邮 件</td>
    </tr>
    <tr bgcolor="#f6f6f6"> 
      <td height="25" width="20%" bgcolor="#f6f6f6">收信人地址：</td>
      <td height="25" width="80%"> 
        <input type="text" name="tomail">
        (多个邮箱地址之间用，分隔)<br>
        <br>
        （如果为空，从数据库取地址群发！） </td>
    </tr>
    <tr bgcolor="#f6f6f6"> 
      <td height="25" width="20%" bgcolor="#f6f6f6">信件标题：</td>
      <td height="25" width="80%"> 
        <input type="text" name="mailsubject" size="50">
        <input type="hidden" name="mailsubject1" value="<%=mailsubject%>">
        <br>
        <br>
        （如果为空，则显示“<font color="red"><%=mailsubject%></font>”！） </td>
    </tr>
    <tr bgcolor="#f6f6f6"> 
      <td height="25" width="20%" bgcolor="#f6f6f6">信件内容：</td>
      <td height="25" width="80%"> 
        <textarea name="mailbody" cols="50" rows="8"><%=mailbody%></textarea>
        <br>
        <br>
      </td>
    </tr>
    <tr bgcolor="#f6f6f6"> 
      <td height="10" colspan="2" align="center"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="submit" name="Submit" value="发送">
        <input type="reset" name="Submit" value="取消">
      </td>
    </tr>
  </table>
      </form>