📄 forwardmail.asp
字号:
</SCRIPT>
<BODY LANGUAGE=javascript onload="return window_onload()">
<br>
<FORM ACTION="sendmail.asp?<%=getGRSN() %>" METHOD=POST NAME="f1" target="_parent">
<p>
<INPUT NAME="EasyMail_CharSet" TYPE="hidden" Value="<%=userweb.CharSet %>">
<INPUT NAME="useRichEditer" TYPE="hidden" Value="<%
if useRichEditer = true then
Response.Write "true"
else
Response.Write "false"
end if
%>">
<INPUT NAME="AddFromAttFileString" TYPE="hidden">
<INPUT NAME="MailName" TYPE="hidden" Value="<%=MailName %>">
<INPUT NAME="sname" TYPE="hidden" Value="<%=sname %>">
<INPUT NAME="sfname" TYPE="hidden" value="<%=sfname %>">
<INPUT NAME="SendMode" TYPE="hidden" Value="send">
<INPUT NAME="EasyMail_From" TYPE="hidden" value="<%= Session("wem")%>" maxlength="64">
<INPUT NAME="EasyMail_OrAtt" TYPE="hidden">
<INPUT NAME="EasyMail_OrMailName" TYPE="hidden" value="<%= filename%>">
<INPUT NAME="EasyMail_R_F_MailName" TYPE="hidden" value="<%= filename%>">
<INPUT NAME="EasyMail_TimerSend" TYPE="hidden" maxlength="10">
<INPUT NAME="IsReSend" TYPE="hidden">
</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>
<input type="button" value="Save Draft" onclick="javascript:showSave()" class=Bsbttn>
<input type="button" value="Send Scheduled" onclick="javascript:timerSending()" class=Bsbttn>
<%
if trim(request("backurl")) = "" then
%>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='viewmailbox.asp?<%=getGRSN() %>'" class=Bsbttn>
<%
else
%>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='<%=trim(request("backurl")) %>'" class=Bsbttn>
<%
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> : </b></td>
<td width="100%">
<input name="EasyMail_To" type="text" size="58" onfocus="setIt('EasyMail_To')" class='textbox' value="<%=ei.ReTo %>"></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> : </b></td>
<td>
<input name="EasyMail_Cc" type="text" size="58" onfocus="setIt('EasyMail_Cc')" class='textbox' value="<%=ei.ReCc %>"></td>
</tr>
<tr>
<td noWrap align=right><b><a
href="javascript:selectAdd('Bcc')"><font class=s>Bcc</font></a> : </b></td>
<td>
<input name="EasyMail_Bcc" type="text" size="58" onfocus="setIt('EasyMail_Bcc')" class='textbox' value="<%=ei.ReBcc %>"></td>
</tr>
<tr>
<td noWrap align=right><b><font class=s color=#104a7b>Reply</font> : </b></td>
<td>
<input name="EasyMail_BackAddress" type="text" size="58" class='textbox' value="<%
if ei.IsSaveMail = false then
response.write userweb.ReMail
else
response.write ei.ReReplyTo
end if
%>"></td>
</tr>
<tr>
<td noWrap align=right><b><font class=s color=#104a7b><label
for=subject>Subject</label></font> : </b></td>
<td>
<input name="EasyMail_Subject" type="text" size="58" class='textbox' value="<%=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'><%
t = ei.Text
response.write t
%></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 : </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 : </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>Importance : </b>
</td>
<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
<select name="EasyMail_Priority" class=drpdwn>
<option value="Normal"<% if ei.RePriority = 0 then response.write " selected"%>>Normal</option>
<option value="Low"<% if ei.RePriority = 1 then response.write " selected"%>>Low</option>
<option value="High"<% if ei.RePriority = 2 then response.write " selected"%>>High</option>
</select>
</td>
</tr>
<tr>
<td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
<b>Attachments in original : </b>
</td>
<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
<select name="OrAtt" class=drpdwn>
<%
if ei.IsHtmlMail = true then
i = 1
else
i = 0
end if
allnum = ei.AttachmentCount
do while i < allnum
Response.Write "<option value='" & i & "'>" & ei.GetAttachmentName(i) & "</option>"
i = i + 1
loop
%>
</select>
<input type="button" value="Delete" onclick="javascript:delOAtt()" class=sbttn>
</td>
</tr>
<tr>
<td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
<b>Copy to sent folder : </b>
</td>
<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
<input type="checkbox" name="EasyMail_SendBackup"<%
if ei.IsSaveMail = false then
if userweb.enableBackupMail = true then response.write " checked"
else
if ei.ReSendBackup = true then response.write " checked"
end if
%>>
Copy message to sent folder</td>
</tr>
<tr>
<td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
<b>Request read notification : </b>
</td>
<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
<input type="checkbox" name="EasyMail_ReadBack"<% if ei.ReReadBack = true then response.write " checked"%>>
(Applicable to internal users)</td>
</tr>
<tr>
<td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
<b>Scheduled time : </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> 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> 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> 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 : </b>
</td>
<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
<input type="checkbox" name="EasyMail_SystemMail"<% if ei.ReSystemMail = true then response.write " checked"%>>
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>
<input type="button" value="Save Draft" onclick="javascript:showSave()" class=Bsbttn>
<input type="button" value="Send Scheduled" onclick="javascript:timerSending()" class=Bsbttn>
<%
if trim(request("backurl")) = "" then
%>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='viewmailbox.asp?<%=getGRSN() %>'" class=Bsbttn>
<%
else
%>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='<%=trim(request("backurl")) %>'" class=Bsbttn>
<%
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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -