delphi工作笔记利用indy10发送邮件

//邮件发送

type
TEmailState = (esBegin,esSending,esEnd,esFaild);
EMailState = TEmailState;

TSendEmail= class
 private
    FHost:string;//主机
    FUserName:String;//用户名
    FEmail: TStringList;//收件人邮箱列表
    FEmailMsg: string; //邮件正文
    FSenderEmail: string;//发送人
    FSubject: string;//主题 
    FiPort: Integer;//端口
    FPassword: string;//密码
    FszPort: string;//
    SMTP:TIdSMTP;  //indy10 SMTP控件
    EMessage:TIdMessage;//
    EAttachment:TIDAttachment;//没用
    FAddons:TStringList;//附件列表(文件路径)
    FEState: EMailState;//邮件状态
    FEmailCount: integer;//发送数据
    FSendingCount: integer;//正在发送数量
    FisSendedCount: integer;//已发数量
    procedure SetEmail(const Value: TStringList);
    procedure SetEmailMsg(const Value: string);
    procedure SetSenderEmail(const Value: string);
    procedure SetSubject(const Value: string);
    procedure SetHost(const Value: String);
    procedure SetiPort(const Value: Integer);
    procedure SetPassword(const Value: string);
    procedure SetszPort(const Value: string);
    procedure SetUserName(const Value: String);
    procedure SetEState(const Value: EMailState);
    procedure SetEmailCount(const Value: integer);
    procedure SetisSendedCount(const Value: integer);
    procedure SetSendingCount(const Value: integer);  //邮件帐号列表
 protected
   function CheckEmail():Boolean;//取消
   function Login(AUserName,APassword,AHost:string;APort:Integer=25):Boolean; //登陆是否成功 取消
 public
 //地址列表,附件列表
 constructor Create(UserName,From,PassWord,Host,MasterID:String;EmailAddressList,AddonsPath:TStringList;Port:Integer=25);virtual;
 destructor Destroy;override;
 procedure FillEMessage;                           //填充消息
 function StartSendEmail():Boolean;                 //开始发送
 function LoadEmailState():string;
 //开始
 procedure OnStartSendEmail(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
  //发送中
 procedure OnSendingEmail(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
 // 发送完毕
 procedure OnEndEmail(ASender: TObject; AWorkMode: TWorkMode);
 property Email:TStringList read FEmail write SetEmail;
 property EmailMsg:string read FEmailMsg write SetEmailMsg;
 property SenderEmail:string read FSenderEmail write SetSenderEmail;
 property Subject:string read FSubject write SetSubject;//主题
 property Host:String read FHost write SetHost;
 property UserName:String read FUserName write SetUserName;
 Property Password:string read FPassword write SetPassword;
 property iPort:Integer read FiPort write SetiPort;
 property szPort:string read FszPort write SetszPort;
 property EState:EMailState read FEState write SetEState;
 property EmailCount:integer read FEmailCount write SetEmailCount;
 property SendingCount:integer read FSendingCount write SetSendingCount;
 property isSendedCount:integer read FisSendedCount write SetisSendedCount;

//构造函数
constructor TSendEmail.Create(UserName,From,PassWord,Host,MasterID:String;EmailAddressList,AddonsPath:TStringList;Port:Integer=25);
begin
    SMTP := TIdSMTP.Create();
    SMTP.HeloName :='Send';//indy bug防止被过滤
    SMTP.OnWorkBegin := self.OnStartSendEmail;
    SMTP.OnWork      := self.OnSendingEmail;
    SMTP.OnWorkEnd   := Self.OnEndEmail;
    //SMTP.UseEhlo := False;为True才能通过验证
    //self.MasterID := MasterID;

    EMessage := TIdMessage.Create;
    FAddons := TStringList.Create;
    Femail  := TStringList.Create;

    self.SenderEmail := From;
    self.FHost := Host;
    self.FUserName := UserName;
    Self.FPassword := Password;
    self.FAddons.AddStrings(AddonsPath);
    self.FEmail.AddStrings(EmailAddressList);
    self.FiPort := Port;
    self.FszPort:= IntToStr(Port);
end;

procedure TSendEmail.FillEMessage;
var
  I: Integer;
  test :string;
begin
  inherited;
  EMessage.ClearBody;//清空正文
  EMessage.CharSet := 'gb2312';//字体集gb2312;
  EMessage.Subject := FSubject;//主题
 // Emessage.ContentType :='text/html';
  EMessage.Body.Text := Self.FEmailMsg;//消息正文
  EMessage.From.Address :=FUserName;//发送人
  EMessage.From.Name    :=self.SenderEmail;
  EMessage.Recipients.EMailAddresses:=FEmail[0];//(FEmail);//收件人
  //群发 填充bccList可以群发
  for I := 1 to FEmail.Count - 1 do
  begin
     EMessage.BccList.Add.Address := FEmail[i];
  end;
  //添加附件
  //Emessage.ContentType :='multipart/mixed';
  for I := 0 to FAddons.Count - 1 do
  begin
    if FileExists(Faddons[i]) then
      TIdAttachmentFile.Create(EMessage.MessageParts,FAddons[i]);
  end;
end;

function TSendEmail.StartSendEmail:Boolean;
var
  I: Integer;
  SendEmail:String;
begin
   Result := False;

 {  if not CheckEmail then
     raise Exception.Create('服务器验证失败'); }
    //填充信息
 FillEMessage;
 SMTP.Host :=  self.Host;  //主机
 SMTP.Port :=  self.iPort; //端口
 //SASL验证
  SMTP.Username := self.UserName;
  SMTP.Password := self.Password;
  SMTP.AuthType := atDefault;//验证

 //开始发送邮件
  {SMTP.Username := FUserName;
  SMTP.Password := FPassword;
  SMTP.Host     := FHost;
  SMTP.Port     := FiPort; }
  if SMTP.Connected then
    SMTP.Disconnect();
  try
    SMTP.Connect;
  except
    raise Exception.Create('连接失败,请检查网络是否连接');
  end;
  try
    try
     if SMTP.Authenticate then //验证
     begin
      SMTP.Send(EMessage);
      Result := True;
     end;
    except
     raise Exception.Create('认证失败,请检查用户名或密码是否正确');
    end;
  finally
    SMTP.Disconnect();
  end;

end;

IdIMAP4好像有BUG 无法选择邮箱列表 Xe可以，得到每个mailbox的信息数量,中文乱码也解决了一些.d2007接收到经过base64解码,头痛.

 参考http://blog.sina.com.cn/s/blog_4dc0acd101008zxp.htmlSMTP协议分析