怎样用Delphi程序发邮件

使用 delphi 来实现发邮件功能，通常使用 IdSmtp 控件，以下是参考代码：

procedure TForm1.Button1Click(Sender: TObject)

begin

  SMTP.Host:='smtp.163.com'         //邮件服务器地址

  smtp.Username:='用户名@163.com'    //用户名

  smtp.Password:='密码'

  smtp.Port:=25                      //邮件服务器端口

  smtp.Connect()

  

  MgeSend.Recipients.EMailAddresses:= 'zhm001x@qq.com' //收件人地址

  MgeSend.From.Text :='zhm001x@163.com'                

  MgeSend.Subject :='test'                             //邮件主题

  MgeSend.Body.Text:='发邮件测试'                      //邮件内容

  SMTP.Authenticate

  Smtp.Send(mgeSend)

end

发送主要用两个控件：TIdMessage，TIdSMTP

定义：

MailMessage: TIdMessage

Mail: TIdSMTP

实现举例：

procedure TForm1.Button1Click(Sender: TObject)

begin

if Mail.Connected then Mail.Disconnect

Mail.Username := ''//发件人用户名

Mail.Password := ''// 发件人密码

Mail.Host := ''//SMTP地址 这个地址要设置正确

Mail.Port := 25//端口

Mail.AuthenticationType := atLogin

MailMessage.Subject := 'test标题'//标题

MailMessage.Body.Text := 'test内容'//内容

MailMessage.From.Name := ''//发件人姓名

MailMessage.From.Address := ''//发件人地址

MailMessage.ReplyTo.EMailAddresses := '' //发件人地址

MailMessage.Priority := TIdMessagePriority(1)//身份验证类型

TIdAttachment.Create(MailMessage.MessageParts, 'C:\Documents and Settings\Administrator\桌面\mail.txt')//附件地址

MailMessage.Recipients.EMailAddresses := ''// 收件人地址

MailMessage.From.Address := '' //发件人地址

try

Mail.Connect

Mail.Authenticate

Mail.Send(MailMessage)

finally

Mail.Disconnect

end

end

有不明白可以问我

当你想给老师、同学、朋友发送电子邮件，或你收到别人的邮件后要回复时，就涉及到撰写和发送邮件。假设你一个同不的地址为student@263.net.cn，你要给他发送电子邮件。

通常的步骤为：

第一步：打开诺尔赛特软件。

第二步：单击"工具栏"上"新邮件"图标。出现下面的窗口。

撰写新邮件

第三步：填写收件人地址、抄送人地址及邮件主题。（收件人地址是不可缺省的）

填写收件人地址、抄送人地址及邮件主题

第四步：撰写邮件内容。例如撰写了如下内容：

撰写邮件内容

如果事先用别的软件已经撰写好附件，可以单击"工具栏"上的"附加"按钮，弹出如下窗口：

附加附件

选中附加的文件后，单击"附件"按钮，将附件附加到邮件中。

附加附件后的新邮件

第五步：单击"工具栏"上的"发送"按钮，发送邮件

---