Delphi 邮件发送示例 含源码文件.rar

一个简单的Delphi7.0 邮件发送示例 含源码文件，将窗口中的邮件主题、收件人、邮件标题、邮件地址等信息填写完毕后，单击按钮即可发送邮件，基于SMTP发邮件的例子。部分代码段先睹为快： 　　Clear; 　　Subject := Edit2.Text;//邮件主题 　　From.Text := Edit4.Text;//发件人 　　Recipients.EMailAddresses := Edit3.Text;//收件人 　　Body.Assign(Memo1.Lines);//邮件内容 　　if Edit7.Text = '' then//添加附件 　　 TIdAttachment.Create(IdMessage1.MessageParts,Edit7.Text); 　　IdSMTP1.AuthenticationType := atLogin;//进行身份检验 　　IdSMTP1.Username := Edit5.Text;//用户名 　　IdSMTP1.Password := Edit6.Text;//密码 　　try 　　 IdSMTP1.Connect();//连接 　　 IdSMTP1.Send(IdMessage1);//发送 　　 IdSMTP1.Disconnect;//断开 　　 Application.MessageBox('邮件发送成功!', '提示', MB_OK MB_ICONINFORMATION); 　　except 　　 Application.MessageBox('邮件发送失败!', '提示', MB_OK MB_ICONINFORMATION); 　　end;