📄 ba13.htm
字号:
<HTML>
<HEAD>
<TITLE>利用Delphi编程发送E－mail </TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="235">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="5">
<div align="center"> <strong><b>利用Delphi编程发送E－mail
</b></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="247">
<div align="left">
<p align="center"> (上海 钱可栋)</p>
<p> 接发E－mail是许多“网虫”必修的功课，E－mail工具软件也很多，国外<br>
的有Microsoft的Outlook Express、The Bat等，国内则有FoxMail这样的精品。<br>
其实，利用可视化编程工具Delphi4.0也能够制作出自己的E－mail软件。<br>
Delphi4.0有关E－mail的组件有两个：NmPOP3和NmSTMP，它们都位于Internet<br>
选项卡上，其中，NmPOP3组件封装并实现POP3协议，用来从Internet POP3服务<br>
器上读取电子邮件；NmSTMP封装并实现STMP协议，可用来向Internet的STMP服<br>
务器发送电子邮件。限于篇幅，我们不能两者都介绍，这里只用NmSTMP编写一<br>
个发送E－mail的程序，至于NmPOP3，以后有机会再谈，或者在看完本文后你有<br>
兴趣，也可以借助于Delphi的帮助文档尝试用NmPOP3编程。<br>
我们先来看一下程序运行界面。图1是程序主窗体，上面有一个字符串网格<br>
（StringGrid）和三个按钮，它们的容器是仅有一个标签的PageControl。单击<br>
“Clear”钮清除网格内容，单击“Send”钮发送E－mail，单击“New Mail”<br>
钮弹出图2所示的对话框，此对话框用来设置STMP服务器名称、发件人地址、收<br>
件人地址、发件人名称和邮件主题，其中前三项必须填写，“Select File”按<br>
钮用来打开Open对话框，以便选取要发送的附件。<br>
NmSTMP的属性和方法不多，关键的属性是Host（STMP服务器名称）和PostMessage<br>
（包含邮件信息），正确设置了Host属性和PostMessage属性后，就可以用Connect<br>
方法（连接服务器）和SendMail方法发送E－mail了。<br>
编写代码之前先要改变StringGrid1的一些缺省属性：ColCount属性为6，<br>
FixedCols属性为0，RowCount属性为2，另外，将PageControl1的Align属性置<br>
为alClient。<br>
以下是Unit1（主窗体）代码清单：<br>
unit Unit1;<br>
interface<br>
uses<br>
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, <br>
Dialogs, Grids, ComCtrls, StdCtrls, Psock, NMsmtp;<br>
type<br>
TForm1 = class(TForm)<br>
PageControl1: TPageControl;<br>
TabSheet1: TTabSheet;<br>
StatusBar1: TStatusBar;<br>
StringGrid1: TStringGrid;<br>
Button1: TButton;<br>
Button2: TButton;<br>
Button3: TButton;<br>
NMSMTP1: TNMSMTP;<br>
procedure FormCreate(Sender: TObject);<br>
procedure Button1Click(Sender: TObject);<br>
procedure Button2Click(Sender: TObject);<br>
procedure Button3Click(Sender: TObject);<br>
procedure NMSMTP1Failure(Sender: TObject);<br>
procedure NMSMTP1SendStart(Sender: TObject);<br>
procedure NMSMTP1Success(Sender: TObject);<br>
private<br>
{ Private declarations }<br>
public<br>
{ Public declarations }<br>
end;<br>
var<br>
Form1: TForm1;<br>
implementation<br>
uses Unit2;<br>
{＄R ＊.DFM}<br>
procedure TForm1.FormCreate(Sender: TObject);<br>
begin<br>
PageControl1.Pages[0].Caption:=‘Send Mail’;<br>
self.Caption:=‘My Mailer’;<br>
self.BorderIcons:=[biSystemMenu,biMinimize];<br>
self.BorderStyle:=bsSingle;<br>
Application.Icon:=self.Icon; <br>
Application.Title:=self.Caption; <br>
with StringGrid1 do<br>
begin<br>
Cells[0,0]:=‘Host’;<br>
Cells[1,0]:=‘To Address’;<br>
Cells[2,0]:=‘From Address’;<br>
Cells[3,0]:=‘Your Name’;<br>
Cells[4,0]:=‘Subject’;<br>
Cells[5,0]:=‘File’;<br>
end;<br>
Button2.Enabled:=False;<br>
Button3.Enabled:=False;<br>
end;<br>
procedure TForm1.Button1Click(Sender: TObject);<br>
begin<br>
Form2.Show;<br>
end;<br>
procedure TForm1.Button2Click(Sender: TObject);<br>
var<br>
i:Integer;<br>
begin<br>
for i:=1 to StringGrid1.RowCount－2 do<br>
with Nmsmtp1 do<br>
begin<br>
Host:=StringGrid1.Cells[0,i];<br>
PostMessage.ToAddress.Add(StringGrid1.Cells[1,i]);<br>
PostMessage.FromAddress:=StringGrid1.Cells[2,i];<br>
PostMessage.FromName:=StringGrid1.Cells[3,i];<br>
PostMessage.Subject:=StringGrid1.Cells[4,i];<br>
PostMessage.Attachments.Add(StringGrid1.Cells[5,i]);<br>
Connect;<br>
Sendmail;<br>
DisConnect;<br>
end;<br>
Button2.Enabled:=False;<br>
Button3.Click;<br>
end;<br>
procedure TForm1.Button3Click(Sender: TObject);<br>
var<br>
i:Integer;<br>
begin<br>
with StringGrid1 do<br>
begin<br>
for i:=1 to RowCount－2 do<br>
begin<br>
Cells[0,i]:=‘’;<br>
Cells[1,i]:=‘’;<br>
Cells[2,i]:=‘’;<br>
Cells[3,i]:=‘’;<br>
Cells[4,i]:=‘’;<br>
Cells[5,i]:=‘’;<br>
end;<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -