{
关键字=idsmtp发送邮件的例子
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 15:28:18
数字签名=C66C85B33525E72205F045B3492B88EF
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdMessageClient, IdSMTPBase, IdSMTP;
procedure TForm1.Button2Click(Sender: TObject);
begin
{idsmtp发送邮件的例子}
if trim(edit5.Text) = ‘’ then exit;
button2.Enabled := false;
IdSMTP1.Host := ‘smtp.163.com’;
IdSMTP1.Username := ‘rulioo@163.com’;
IdSMTP1.Password := ‘xxxxHGZTO’;
IdSMTP1.Port := 25;
IdSMTP1.Connect();
IdMessage1.From.Text := ‘rulioo@163.com’;
idmessage1.From.Name := ‘发件人名称’;
IdMessage1.Recipients.EMailAddresses :=‘rulioo@qq.com’;
IdMessage1.Subject := edit5.Text;
IdMessage1.Body.Text := memo1.Text;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
idsmtp1.Disconnect;
button2.Enabled := true;
end;