replymail.asp

蓝芒3.0A最新所有功能完整破解版

    <INPUT NAME="EasyMail_TimerSend" TYPE="hidden" maxlength="10">
  </p>
  <table width="95%" border="0" bgColor="#93bee2" style="BORDER-LEFT: #93bee2 4px solid; BORDER-RIGHT: #93bee2 4px solid" align="center" cellspacing="0">
    <tr>
      <td colspan="2" height="30" align="right">
          <input type="button" value=" Send " onclick="javascript:showSending()" class=Bsbttn>&nbsp;
          <input type="button" value="Save Draft" onclick="javascript:showSave()" class=Bsbttn>&nbsp;
          <input type="button" value="Send Scheduled" onclick="javascript:timerSending()" class=Bsbttn>&nbsp;
<%
if trim(request("backurl")) = "" then
%>
          <input type="button" value="Cancel" onclick="javascript:parent.location.href='viewmailbox.asp?<%=getGRSN() %>'" class=Bsbttn>&nbsp;&nbsp;
<%
else
%>
          <input type="button" value="Cancel" onclick="javascript:parent.location.href='<%=trim(request("backurl")) %>'" class=Bsbttn>&nbsp;&nbsp;
<%
end if
%>
      </td>
    </tr>
    <tr>
      <td colspan="2" height="25" align="center">
	<hr size="1" Color="#336699">If multiple email addresses are entered, please separate with ","<hr size="1" Color="#336699">
      </td>
    </tr>
    <tr>
      <td colspan="2">
<table cellspacing=0 cellpadding=2>
  <tbody>
  <tr>
    <td noWrap align=right><b><a
                  href="javascript:selectAdd('To')"><font class=s>To</font></a> :&nbsp;</b></td>
    <td width="100%">
<input name="EasyMail_To" type="text" size="58" onfocus="setIt('EasyMail_To')" class='textbox' value="<%
if ei.ReplyTo = "" then
	response.write ei.FromMail
else
	response.write ei.ReplyTo
end if
        %>"></td>
    <td valign=top
                rowspan=5>
      <table cellpadding=cellspacing=0 width=180>
        <tbody>
        <tr bgcolor=#104a7b>
          <td noWrap align=middle colspan=2 height=20><font
                        class=s color=#ffce00><b>Quick Address List</b></font></td>
        </tr>
<%
allnum = ads.SpeedCount
i = 0

do while i < allnum
	ads.GetSpeedInfoByIndex i, nickname, spemail
%>
        <tr>
          <td width=13><img style="CURSOR: hand"
                        onClick="addit('<%=spemail %>');" height=15
                        src="images/insert.gif" width=16 border=0></td>
          <td noWrap align=left><span style="CURSOR: hand"
                        onClick="addit('<%=spemail %>');"><font class=sbd
                        color=#000099><%=server.htmlencode(nickname) %></font></span>
          </td>
        </tr>
<%
	nickname = NULL
	spemail = NULL

	i = i + 1
loop
%>
        <tr>
          <td noWrap colspan=2 align="center">
            <input class=sbttn onClick="JavaScript:EditSpeedAff();" type=button value=" Edit List ">
          </td>
        </tr>
        </tbody>
      </table>
    </td>
  </tr>
  <tr>
    <td noWrap align=right><b><a
                  href="javascript:selectAdd('Cc')"><font class=s>Cc</font></a> :&nbsp;</b></td>
    <td>
<input name="EasyMail_Cc" type="text" size="58" onfocus="setIt('EasyMail_Cc')" class='textbox'<%
if trim(request("mode")) = "replyall" then
	if ei.Receiver <> "" and ei.cc <> "" then
		response.write " value=""" & ei.Receiver & "," & ei.cc & """"
	else
		response.write " value=""" & ei.Receiver & ei.cc & """"
	end if
end if
%>></td>
  </tr>
  <tr>
    <td noWrap align=right><b><a
                  href="javascript:selectAdd('Bcc')"><font class=s>Bcc</font></a> :&nbsp;</b></td>
    <td>
<input name="EasyMail_Bcc" type="text" size="58" onfocus="setIt('EasyMail_Bcc')" class='textbox'<%
	if trim(request("addresssend")) <> "" then
		response.write " value=""" & mbcc & """"
	end if
        %>></td>
  </tr>
  <tr>
    <td noWrap align=right><b><font class=s color=#104a7b>Reply</font> :&nbsp;</b></td>
    <td>
<input name="EasyMail_BackAddress" type="text" size="58" value="<%=userweb.ReMail %>" class='textbox'></td>
  </tr>
  <tr>
    <td noWrap align=right><b><font class=s color=#104a7b><label
                  for=subject>Subject</label></font> :&nbsp;</b></td>
    <td>
<input name="EasyMail_Subject" type="text" size="58" class='textbox' value="<%=Session("addsubject") & ei.subject %>">
	</td>
  </tr>
  </tbody>
</table>
      </td>
    </tr>
    <tr>
<%
if useRichEditer = false then
%>
      <td colspan="2">
        <div align="center">
          <textarea name="EasyMail_Text" cols="68" rows="12" style="width: 570" class='textbox'><%
if Session("addomail") = true then
	t = ei.Text

	if t <> "" then
		t = ">" & t
	end if

	t = replace(t, Chr(10), Chr(10) & ">")

	response.write t
end if
%></textarea>
		</div>
<%
else
%>
      <td colspan="2" height="350">
<IFRAME SRC="einedit.htm" id='richedit' style='visibility:visible; position: absolute; height=100%; width=100%'></IFRAME>
<%
end if
%>
      </td>
    </tr>
    <tr>
      <td width="35%" noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
	<b>Added through Net-Storage&nbsp;:&nbsp;</b>
      </td>
      <td width="65%" style="BORDER-BOTTOM: #769db5 1px solid">
		<select name="NetAtts" class=drpdwn>
		</select>
		<input type="button" value=" >> " onclick="javascript:delNetAtt()" class=sbttn>
		<input type="button" value=" << " onclick="javascript:addNetAtt()" class=sbttn>
		<select name="NetSaveAtts" class=drpdwn>
<%
dim nas
set nas = server.createobject("easymail.InfoList")
nas.LoadMailBox Session("wem"), "att"
allnum = nas.getMailsCount
i = 0

do while i < allnum
	nas.getMailInfoEx allnum - i - 1, idname, isread, priority, sendMail, sendName, subject, size, etime, mstate

	Response.Write "<option value='" & idname & "'>" & server.htmlencode(subject) & "</option>"

	idname = NULL
	isread = NULL
	priority = NULL
	sendMail = NULL
	sendName = NULL
	subject = NULL
	size = NULL
	etime = NULL
	mstate = NULL

	i = i + 1
loop

set nas = nothing
%>
		</select>
</td>
    </tr>
	<tr>
      <td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
	<b>Include signature&nbsp;:&nbsp;</b>
      </td>
      <td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
        <select name="EasyMail_SignNo" class=drpdwn>
<%
ds = userweb.defaultSign
if ds = -1 then
%>
          <option value="-1" selected>Do Not Use</option>
<%
else
%>
          <option value="-1">Do Not Use</option>
<%
end if


dim sm
set sm = server.createobject("easymail.SignManager")
sm.Load Session("wem")

allnum = sm.count
i = 0

do while i < allnum
	sm.get i, s_title, s_text

	if i <> ds then
		response.write "<option value='" & i & "'>" & server.htmlencode(s_title) & "</option>"
	else
		response.write "<option value='" & i & "' selected>" & server.htmlencode(s_title) & "</option>"
	end if

	s_title = NULL
	s_text = NULL

	i = i + 1
loop

set sm = nothing
%>
        </select>
        </td>
    </tr>
	<tr>
      <td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
	<b>Copy to sent folder&nbsp;:&nbsp;</b>
      </td>
      <td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
        <input type="checkbox" name="EasyMail_SendBackup" <% if userweb.enableBackupMail = true then response.write "checked"%>>
        Copy message to sent folder</td>
    </tr>
    <tr>
      <td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
        <b>Request read notification&nbsp;:&nbsp;</b>
      </td>
      <td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
        <input type="checkbox" name="EasyMail_ReadBack">
        (Applicable to internal users)</td>
    </tr>
    <tr>
      <td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
	<b>Importance&nbsp;:&nbsp;</b>
      </td>
      <td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
        <select name="EasyMail_Priority" class=drpdwn>
          <option value="Normal">Normal</option>
          <option value="Low">Low</option>
          <option value="High">High</option>
        </select>
        </td>
    </tr>
    <tr>
      <td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
	<b>Scheduled time&nbsp;:&nbsp;</b>
      </td>
		<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">Year:
<select name="t_year" class="drpdwn">
<%
	now_temp = Year(Now())

	i = now_temp
	do while i < now_temp + 10
		response.write "<option value='" & i & "'>" & i & "</option>"
		i = i + 1
	loop
%>
</select>&nbsp;&nbsp;Month:
<select name="t_month" class="drpdwn">
<%
	now_temp = Month(Now())
	i = 1
	do while i < 13
		if i <> now_temp then
			response.write "<option value='" & i & "'>" & i & "</option>"
		else
			response.write "<option value='" & i & "' selected>" & i & "</option>"
		end if
		i = i + 1
	loop
%>
</select>&nbsp;&nbsp;Day:
<select name="t_day" class="drpdwn">
<%
	now_temp = Day(Now())
	i = 1
	do while i < 32
		if i <> now_temp then
			response.write "<option value='" & i & "'>" & i & "</option>"
		else
			response.write "<option value='" & i & "' selected>" & i & "</option>"
		end if
		i = i + 1
	loop
%>
</select>&nbsp;&nbsp;Hour:
<select name="t_hour" class="drpdwn">
<%
	i = 0
	do while i < 24
		response.write "<option value='" & i & "'>" & i & "</option>"
		i = i + 1
	loop
%>
</select>
		</td>
    </tr>
<%
if isadmin() = true then
%>
    <tr>
      <td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
	<b>System mail&nbsp;:&nbsp;</b>
      </td>
      <td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
        <input type="checkbox" name="EasyMail_SystemMail">
	Mark as system mail</td>
    </tr>
<%
end if
%>
    <tr>
      <td colspan="2" height="35" align="right">
          <input type="button" value=" Send " onclick="javascript:showSending()" class=Bsbttn>&nbsp;
          <input type="button" value="Save Draft" onclick="javascript:showSave()" class=Bsbttn>&nbsp;
          <input type="button" value="Send Scheduled" onclick="javascript:timerSending()" class=Bsbttn>&nbsp;
<%
if trim(request("backurl")) = "" then
%>
          <input type="button" value="Cancel" onclick="javascript:parent.location.href='viewmailbox.asp?<%=getGRSN() %>'" class=Bsbttn>&nbsp;&nbsp;
<%
else
%>
          <input type="button" value="Cancel" onclick="javascript:parent.location.href='<%=trim(request("backurl")) %>'" class=Bsbttn>&nbsp;&nbsp;
<%
end if
%>
      </td>
    </tr>
  </table>
<div id="sending" style="filter:alpha(opacity=80); position:absolute; top:200; left:40; z-index:10; visibility:hidden"><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><td width=30%></td><TD bgcolor=#104A7B><TABLE WIDTH=100% height=70 BORDER=0 CELLSPACING=2 CELLPADDING=0><TR><td bgcolor=#eeeeee align=center>Sending mail, please wait...</td></tr></table></td><td width=30%></td></tr></table></div>
<div id="esave" style="filter:alpha(opacity=80); position:absolute; top:200; left:40; z-index:10; visibility:hidden"><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><td width=30%></td><TD bgcolor=#104A7B><TABLE WIDTH=100% height=70 BORDER=0 CELLSPACING=2 CELLPADDING=0><TR><td bgcolor=#eeeeee align=center>Saving mail, please wait...</td></tr></table></td><td width=30%></td></tr></table></div>
<div style="position:absolute; top:10; left:10; z-index:15; visibility:hidden">
<textarea name="RichEdit_Text" cols="0" rows="0"></textarea>
<textarea name="RichEdit_Html" cols="0" rows="0"></textarea>
<table>
<tr>
<td id="add0"></td>
<td id="add1"></td>
<td id="add2"></td>
<td id="add3"></td>
<td id="add4"></td>
<td id="add5"></td>
<td id="add6"></td>
<td id="add7"></td>
<td id="add8"></td>
<td id="add9"></td>
</tr>
<tr>
<td id="add10"></td>
<td id="add11"></td>
<td id="add12"></td>
<td id="add13"></td>
<td id="add14"></td>
<td id="add15"></td>
<td id="add16"></td>
<td id="add17"></td>
<td id="add18"></td>
<td id="add19"></td>
</tr>
<tr>
<td id="add20"></td>
<td id="add21"></td>
<td id="add22"></td>
<td id="add23"></td>
<td id="add24"></td>
<td id="add25"></td>
<td id="add26"></td>
<td id="add27"></td>
<td id="add28"></td>
<td id="add29"></td>
</tr>
</table>
</div>
<br>
</FORM>
<div style="position: absolute; left: 32; top: 25;">
<a href="help.asp#writemail" target="_blank"><img src="images/help.gif" border="0" alt="Help"></a></div>
</BODY>
</HTML>

<%
set ei = nothing
set userweb = nothing
set ads = nothing
%>