邮件的发送程序(280分)

我想用Delphi编写个小程序

功能：发送邮件
数据项：要发送的邮件地址
邮件内容
自己的邮件地址

delphi自带的demo就已经满足你的要求了

Delphi的安装目录/Demo/Indy/MailClient

自己看看例子，这个应该不难!

用Delphi编程发送E－mail
接发E－mail是许多“网虫”必修的功课，E－mail工具软件也很多，国外的有Microsoft的Outlook Express、The Bat等，国内则有FoxMail这样的精品。

其实，利用可视化编程工具Delphi4.0也能够制作出自己的E－mail软件。

Delphi4.0有关E－mail的组件有两个：NmPOP3和NmSTMP，它们都位于Internet 选项卡上，其中，NmPOP3组件封装并实现POP3协议，用来从Internet POP3服务 器上读取电子邮件；NmSTMP封装并实现STMP协议，可用来向Internet的STMP服务器发送电子邮件。限于篇幅，我们不能两者都介绍，这里只用NmSTMP编写一个发送E－mail的程序，至于NmPOP3，以后有机会再谈，或者在看完本文后你有兴趣，也可以借助于Delphi的帮助文档尝试用NmPOP3编程。

我们先来看一下程序运行界面。图1是程序主窗体，上面有一个字符串网格（StringGrid）和三个按钮，它们的容器是仅有一个标签的PageControl。单击“Clear”钮清除网格内容，单击“Send”钮发送E－mail，单击“New Mail”钮弹出图2所示的对话框，此对话框用来设置STMP服务器名称、发件人地址、收件人地址、发件人名称和邮件主题，其中前三项必须填写，“Select File”按钮用来打开Open对话框，以便选取要发送的附件。

NmSTMP的属性和方法不多，关键的属性是Host（STMP服务器名称）和PostMessage（包含邮件信息），正确设置了Host属性和PostMessage属性后，就可以用Connect方法（连接服务器）和SendMail方法发送E－mail了。

编写代码之前先要改变StringGrid1的一些缺省属性：ColCount属性为6,FixedCols属性为0，RowCount属性为2，另外，将PageControl1的Align属性置为alClient。

以下是Unit1（主窗体）代码清单：

unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms,Dialogs,
Grids, ComCtrls, StdCtrls, Psock, NMsmtp;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
StatusBar1: TStatusBar;
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
NMSMTP1: TNMSMTP;

procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure NMSMTP1Failure(Sender: TObject);
procedure NMSMTP1SendStart(Sender: TObject);
procedure NMSMTP1Success(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
PageControl1.Pages[0].Caption:=‘Send Mail’;
self.Caption:=‘My Mailer’;
self.BorderIcons:=[biSystemMenu,biMinimize];
self.BorderStyle:=bsSingle;
Application.Icon:=self.Icon;
Application.Title:=self.Caption;
with StringGrid1 do
begin
Cells[0,0]:=‘Host’;
Cells[1,0]:=‘To Address’;
Cells[2,0]:=‘From Address’;
Cells[3,0]:=‘Your Name’;
Cells[4,0]:=‘Subject’;
Cells[5,0]:=‘File’;
end;
Button2.Enabled:=False;
Button3.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i:=1 to StringGrid1.RowCount－2 do
with Nmsmtp1 do
begin
Host:=StringGrid1.Cells[0,i];
PostMessage.ToAddress.Add(StringGrid1.Cells[1,i]);
PostMessage.FromAddress:=StringGrid1.Cells[2,i];
PostMessage.FromName:=StringGrid1.Cells[3,i];
PostMessage.Subject:=StringGrid1.Cells[4,i];
PostMessage.Attachments.Add(StringGrid1.Cells[5,i]);
Connect;
Sendmail;
DisConnect;
end;
Button2.Enabled:=False;
Button3.Click;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:Integer;
begin
with StringGrid1 do
begin
for i:=1 to RowCount－2 do
begin
Cells[0,i]:=‘’;
Cells[1,i]:=‘’;
Cells[2,i]:=‘’;
Cells[3,i]:=‘’;
Cells[4,i]:=‘’;
Cells[5,i]:=‘’;
end;
RowCount:=2;
end;
Button2.Enabled:=False;
Button3.Enabled:=False;
end;

procedure TForm1.NMSMTP1Failure(Sender: TObject);
begin
StatusBar1.SimpleText:=‘Mail send failure!’;
end;

procedure TForm1.NMSMTP1SendStart(Sender: TObject);
begin
StatusBar1.SimpleText:=‘Now Sending...’;
end;

procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
StatusBar1.SimpleText:=‘Send Success!’;
end;

end.

Button1是“NewMail”按钮，Button2是“Send”按钮，Button3是“Clear”按钮。

以下是Unit2代码清单：

unit Unit2;
interface
uses Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms,Dialogs, StdCtrls;
type
TForm2 = class(TForm)
OpenDialog1: TOpenDialog;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;

procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
self.Caption:=‘New Mail’;
self.BorderStyle:=bsDialog;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
Edit1.Text:=‘’;
Edit2.Text:=‘’;
Edit3.Text:=‘’;
Edit4.Text:=‘’;
Edit5.Text:=‘’;
Label1.Caption:=‘No File’;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Label1.Caption:=Opendialog1.Filename;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
i:Integer;
begin
if (Edit1.Text<>'') and (Edit2.Text<>'')
and (Edit5.Text<>'') and
(Label1.Caption<>'No File') then
begin
with Form1.StringGrid1 do
begin
RowCount:=RowCount＋1;
i:=RowCount－2;
Cells[0,i]:=Edit1.Text;
Cells[1,i]:=Edit2.Text;
Cells[2,i]:=Edit5.Text;
Cells[3,i]:=Edit3.Text;
Cells[4,i]:=Edit4.Text;
Cells[5,i]:=Label1.Caption;
end;

Form1.Button2.Enabled:=True;
Form1.Button3.Enabled:=True;
end;

self.Hide;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
self.Hide;
end;

end.

Edit1、Edit2、Edit3、Edit4、Edit5编辑框分别用于填写服务器名称、收件人地址、发件人名称、邮件主题和发件人地址。

现在一个E－mail发送程序就完成了。你可以试一试，自已给自已发几封邮件，用FoxMail之类的软件是否能收到信。顺便说一句，本文就是用这个自编程序发到编辑部的。

上述的还是不能解决问题

我想做一个这样的程序 邮件发送程序
一个十分简化的程序
只需填写内容：
A：对方邮件地址
B：标题
C：内容
自己的邮件地址忽略 或 可以随意乱填
其他 还需要什么属性吗

在劳各位想想

要认证的！

试试这个：
http://service.lonetear.com/delphi/dispdoc.asp?id=28

是否可以乱填，跟邮件服务器的身份验证级别有关。

除非你使用类似“特快专递”的发送方式，就不需要验证了，发件人相关的信息自然可以
不填或者乱填。

严重关注

多人接受答案了。