在做mes系统时，利用D7 IdMessage&IdSMTP发送邮件,从盒子上学习了不少的东西，自己整理了一下，想share给新手，学习参考!

最新推荐文章于 2020-11-20 10:03:59 发布

kye_jufei

最新推荐文章于 2020-11-20 10:03:59 发布

阅读量3k

点赞数

文章标签： integer delete forms interface login windows

本文链接：https://blog.csdn.net/kye_jufei/article/details/2151808

版权

本文介绍了在开发MES系统过程中，如何利用D7的IdMessage和IdSMTP组件来发送邮件。通过一个详细的步骤演示了设置SMTP服务器属性、验证用户信息、添加附件及发送邮件的过程，适合初学者参考学习。

摘要由CSDN通过智能技术生成

在做mes系统时，利用D7 IdMessage&IdSMTP发送邮件，由于电脑中病毒，程序出异常，后调试ok,实现效果，初次接触D7时，从盒子上学习了不少的东西，自己整理了一下，想share给新手，学习参考 !

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, IdBaseComponent, IdMessage, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
TSMTPForm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    btnSend: TButton;
    AttachAdd: TButton;
    GroupBox6: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    HostName: TEdit;
    HostPort: TEdit;
    EditFrom: TEdit;
    EditTo: TEdit;
    EditUser: TEdit;
    EditSubject: TEdit;
    MemoMesg: TMemo;
    AttachmentList: TListBox;
    MemoInfo: TMemo;
    EditPass: TMaskEdit;
    MailMessage: TIdMessage;
    IdSMTP: TIdSMTP;
    AddAttachDlg: TOpenDialog;
    Label9: TLabel;
    EditCC: TEdit;