delphi IdSMTP发送邮件

本文整理自网络，侵删。

 IdSMTP1.Host:=CBServer.Text;
IdSMTP1.Port:=25;
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:=Trim(Edit1.Text);
IdSMTP1.Password:=Trim(Edit2.Text);
IdSMTP1.Connect();
IdMessage1.ContentType :='text/html';
IdMessage1.From.Text :=Trim(Edit1.Text)+'@'+Copy(CBServer.Text,6,Length(CBServer.Text));
IdMessage1.Recipients.EMailAddresses :=Trim(Edit3.Text);
IdMessage1.Subject :='文件';
IdMessage1.Priority:=mpHighest; //邮件的优先级--高级
for i:=0 to ListBox1.Items.Count - 1 do
begin
Tidattachment.Create(IdMessage1.MessageParts,ListBox1.Items.Strings[i]); //附件
IdMessage1.MessageParts.Add;
end;
IdSMTP1.Send(IdMessage1);  

相关阅读 >>

Delphi ini文件操作 tinifile、tmeminifile

Delphi定时器相关的简单例子

Delphi idhttpserver接收http get请求解码问题

Delphi 实现检测线程类tthread是否结束

Delphi 窗体置顶(总在最前面)

Delphi 软件welcome窗口代码

Delphi xe7开发的获取网页中字符串的编码是否是utf8

Delphi 弹出输入框的inputquery, inputquery 函数用法

Delphi读写utf-8、unicode格式文本文件

Delphi xe2 - 万一“获取程序自身大小的函数”改进版

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi IdSMTP发送邮件