delphi代理邮件服务器代码

来源：互联网发布：美国网络实名制编辑：程序博客网时间：2024/04/27 09:08

procedure TwriteMail.Button1Click(Sender: TObject);
begin

          //IdSMTP1.ReadChar();

   try
     IdSMTP1.Host :=self.send_fu.Text;//'smtp.sina.com'
     IdSMTP1.AuthenticationType := atLogin; //保证登录模式为Login
     IdSMTP1.Username :=self.send_name.Text; //'hei108@sina.com';
     IdSMTP1.Password :=self.send_pwd.Text; //'ABUV6D8'
     //filename := 'E:/邮件发送程序/2003-12-22_253_04.jpg';    //需要添加的附件文件
     //TIdAttachment.Create(IdMessage1.MessageParts,filename);   //添加附件

    IdMessage1.From.Address :=IdSMTP1.Username; //'hei108@sina.com'
     IdMessage1.Recipients.EMailAddresses:=self.resive_name.Text;//'hei108@sina.com'

    // tmpEMailItem := IdMessage1.Recipients.Add;   //添加一个地址列表

     self.resive_name.Text :=IdSMTP1.Username;//self.resive_name.Text; //写一个收件人

    // idMessage1.BccList.Add.Text := 'caoyan_528@yahoo.com.cn';   //书写多个目标地址，实现群发

     //idMessage1.BccList.Add.Text := 'caoyan_528@163.com';   //书写多个目标地址，实现群发

     IdMessage1.Subject:=self.zhuti.Text;//主题例如：'第一个邮件客户端'
     IdMessage1.Body.Text :=self.Memo1.Text;    //此处为邮件正文
     IdMessage1.CharSet := 'utf-8';   //保证附件正文汉字的正常显示
     IdMessage1.Body.Assign(Memo1.Lines);
     if IdSMTP1.AuthSchemesSupported.IndexOf('LOGIN')>-1 then
     begin
       IdSMTP1.AuthenticationType := atLogin; //连接前要保存为Login   上面己设，此处不必要
       IdSMTP1.Authenticate;
     end;

     IdSMTP1.Connect();   //连接SMTP服务器
     IdSMTP1.Authenticate;
     IdSMTP1.Send(IdMessage1);   //向服务器发送邮箱

     showmessage('已发送到' );

    {elf.ADOQuery1.SQL.Clear;
      self.ADOQuery1.SQL.Add('insert into Mail_send(S_content,S_NAME,S_PWD,S_R_NAME,S_ZHUTI,S_S_SEVSER,S_R_SEVSER,S_time)values('''+self.Memo1.Text+''','''+self.send_name.Text+''','''+self.send_pwd.Text+''','''+self.resive_name.Text+''','''+self.zhuti.Text+''','''+self.send_fu.Text+''','''+self.resive_fu.Text+''','''+datetostr(self.DateTimePicker1.Date)+''')');
        self.ADOQuery1.ExecSQL;
        self.ADOQuery1.SQL.Clear;
        self.ADOQuery1.SQL.Add('select * from Mail_send');
        self.ADOQuery1.Open;
      }

       IdSMTP1.Disconnect;
      //except
      //showmessage('发送邮件到失败！');
      //IdSMTP1.Disconnect;
     // exit;

   finally
     IdSMTP1.Disconnect;   //断开与服务器的连接
//end;
   end;
end;