📄 sampleapp_code.htm
字号:
<ol start="8">
<li class="text">在声明部分中声明 MailMessage 变量。<BR>
<BR>
<span style="font-family:Courier New;font-size:10.0pt;color:blue;">private</span><span style="font-family:Courier New;font-size:10.0pt;"> MailMessage message; </span></li>
</ol>
<ol start="9">
<li class="text"><strong class="text"><span style="font-family:Arial;font-size:11.0pt;"> </span></strong>在构造函数 (frmSendMail()) 中进行初始化，如下所示： <BR>
<BR>
<span class="text style22">message = <span style="color:blue;">new</span> MailMessage(); </span> </li>
</ol>
<ol start="10">
<li class="text">将以下代码添加到“附件”按钮的 click 事件中。 </li>
</ol>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;color:blue;">private</span><span style="font-family:Courier New;font-size:11.0pt;"><span style="color:blue;"> void</span> txtAttach_Click(<span style="color:blue;">object</span> sender, System.EventArgs e) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;">{ </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//显示对话框，选择 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//要附加到电子邮件中的文件。</span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//选中后，会将选定的文件 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//显示在列表框中 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">if</span>(ofdAttach.ShowDialog()==DialogResult.OK) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> { </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">string</span> [] files=<span style="color:blue;">new</span><span style="color:blue;"> string</span>[ofdAttach.FileNames.Length]; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;color:blue;">for</span><span style="font-family:Courier New;font-size:11.0pt;">(<span style="color:blue;">int</span> index=0;index<ofdAttach.FileNames.Length;index++) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> { </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> lstFiles.Items.Add(ofdAttach.FileNames[index].ToString()); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> } </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> }</span><span style="font-family:Arial;"></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;">} </span></p>
<ol start="11">
<li class="text"> 将以下代码添加到“删除”按钮的 click 事件中。</li>
</ol>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;color:blue;">private </span><span style="font-family:Courier New;font-size:11.0pt;"><span style="color:blue;">void</span> btnRemove_Click(<span style="color:blue;">object</span> sender, System.EventArgs e) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;">{ </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//从列表中移除选定的附件 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> lstFiles.Items.RemoveAt(lstFiles.SelectedIndex); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;">} </span></p>
<ol start="12"><li class="text">
<p>将以下代码添加到“发送”按钮的 click 事件中。</p>
</li>
</ol>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;color:blue;">private</span><span style="font-family:Courier New;font-size:11.0pt;"><span style="color:blue;"> void</span> btnSend_Click(<span style="color:blue;">object</span> sender, System.EventArgs e) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;">{ </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//检查是否已指定 SMTP 服务器的 IP 地址。</span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//如果已指定，则撰写电子邮件 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//否则显示相应的消息 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">if</span> (txtIP.Text.Length >0) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> { </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//指定要用于发送电子邮件的 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//SMTP 服务器 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> SmtpMail.SmtpServer =txtIP.Text ; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//撰写电子邮件 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.From =txtFrom.Text ; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.To =txtTo.Text ; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.Cc =txtCc.Text ; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.Bcc =txtBcc.Text ; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.Subject =txtSubject.Text ; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.Body=txtBody.Text; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//如果存在附件，则将其添加到电子邮件中 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.Attachments.Clear(); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">for</span>(<span style="color:blue;">int</span> index=0;index<lstFiles.Items.Count;index++) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> { </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> MailAttachment mAttach=<span style="color:blue;">new</span> MailAttachment(lstFiles.Items[index].ToString()); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> message.Attachments.Add(mAttach); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> } </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">try </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> { </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//发送已撰写的电子邮件 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> SmtpMail.Send(message); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//重置窗体 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> txtFrom.Text=""; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> txtTo.Text=""; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> txtCc.Text=""; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> txtBcc.Text=""; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> txtSubject.Text=""; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> txtBody.Text=""; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> lstFiles.Items.Clear(); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> } </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">catch</span> (HttpException InvFromAddr) </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> { </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//如果“发件人”地址无效， </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//则显示相应的消息 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> MessageBox.Show("输入有效“发件人”电子邮件地址"); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">return</span>; </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> } </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:green;">//直观显示电子邮件已发送 </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> MessageBox.Show("邮件已发送"); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> } </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> <span style="color:blue;">else </span></span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> { </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> MessageBox.Show("请输入 SMTP 服务器 IP 地址"); </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;"> } </span></p>
<p class="MsoNormal"><span style="font-family:Courier New;font-size:11.0pt;">} </span></p></td>
</tr>
</table>
<BR>
<table width="94%" border="0" align="center" cellpadding="4" cellspacing="0" bgcolor="#E2E2E2">
<tr>
<td height="40" align="center" valign="top"><div align="left" class="text">
<ol start="13">
<li>保存、生成并执行该应用程序。请确保在执行该应用程序之前运行 IIS。</li>
</ol>
</div></td>
</tr>
</table>
<p align="center"> </p>
<p align="center"> </p>
<div align=right>
<table border=0 cellpadding=0 cellspacing=0 width=520>
<tbody>
<tr>
<td height=20 width=45><a href="index.htm"><img src="Images/home.gif" width="90" height="25" border="0"></a>
<div></div></td>
<td height=20 width=400><div align=right><a href="sampleapp_sendmail.htm"><img
src="Images/pre.gif" width=67 height=21 border="0"></a></div></td>
<td width=7><div align=center></div></td>
<td width=68><div align=right></div></td>
</tr>
</tbody>
</table>
</div>
</div>
</center></td>
</tr>
</tbody>
</table>
<!-- InstanceEndEditable --></TD>
</TR>
<TR>
<TD align=left colSpan=3 height=97 vAlign=top>
<DIV align=center></DIV>
<DIV align=center></DIV>
<DIV align=center>
<OBJECT align=right classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0
height=97 width=169>
<PARAM NAME="movie" VALUE="Images/accp.swf"><PARAM NAME="quality" VALUE="high"><PARAM NAME="wmode" VALUE="transparent">
<embed
src="Images/accp.swf" width="169" height="97" align="right"
quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash"
wmode="transparent"></embed></OBJECT></DIV></TD></TR></TBODY></TABLE></DIV></BODY><!-- InstanceEnd -->
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -