2024年3月9日发(作者：)

delphi邮件群发器源代码

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

dxSkinsCore, dxSkinsDefaultPainters, cxContainer, cxEdit, cxLabel,

cxTextEdit, Menus, cxMemo, cxCheckBox, cxGroupBox, cxListBox,

IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,

IdBaseComponent, IdMessage, ComCtrls, StdCtrls, cxButtons, ExtCtrls,IniFiles;

type

TForm1 = class(TForm)

ListBox1: TcxListBox;

cxgrpbx1: TcxGroupBox;

cxgrpbx2: TcxGroupBox;

me_content: TcxMemo;

PopupMenu1: TPopupMenu;

le_title: TcxTextEdit;

cxlbl1: TcxLabel;

cxLabel1: TcxLabel;

le_smtp: TcxTextEdit;

le_user: TcxTextEdit;

le_pass: TcxTextEdit;

le_port: TcxTextEdit;