DELPHI发送邮件源代码下载

weixin_39821260 2020-06-22 01:00:18

DELPHI发送邮件源代码，DELPHI发送邮件源代码，DELPHI发送邮件源代码
相关下载链接：//download.csdn.net/download/jwztech01/10554660?utm_source=bbsseo

...全文

10 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

Delphi 的Indy开发，包含演示程序源代码 1.支持SSL发送邮件； 2.支持32位和64位程序； 3.支持纯文本邮件和 HTML 格式邮件； 4.支持同步发送邮件和异步（线程）发送邮件 5.支持发送结果回调； 6.只需要调用一个函数，使用简单； var SMTPServer : string; Account : string; Password : string; Subject : string; Content : string; Attachment : string; Recipients : string; BccLsit : string; ContentType : TContentType; //异步发送函数 Send_Email(SMTPServer,Account,Password,Subject,Content,Attachment,Recipients,BccLsit,True, OnSendCompleted); //异步发送函数 Send_Email(SMTPSer

一个简单的Delphi7.0 邮件发送示例含源码文件，将窗口中的邮件主题、收件人、邮件标题、邮件地址等信息填写完毕后，单击按钮即可发送邮件，基于SMTP发邮件的例子。部分代码段先睹为快：　　Clear; 　　Subject := Edit2.Text;//邮件主题　　From.Text := Edit4.Text;//发件人　　Recipients.EMailAddresses := Edit3.Text;//收件人　　Body.Assign(Memo1.Lines);//邮件内容　　if Edit7.Text = '' then//添加附件　　 TIdAttachment.Create(IdMessage1.MessageParts,Edit7.Text); 　　IdSMTP1.AuthenticationType := atLogin;//进行身份检验　　IdSMTP1.Username := Edit5.Text;//用户名　　IdSMTP1.Password := Edit6.Text;//密码　　try 　　 IdSMTP1.Connect();//连接　　 IdSMTP1.Send(IdMessage1);//发送　　 IdSMTP1.Disconnect;//断开　　 Application.MessageBox('邮件发送成功!', '提示', MB_OK MB_ICONINFORMATION); 　　except 　　 Application.MessageBox('邮件发送失败!', '提示', MB_OK MB_ICONINFORMATION); 　　end;

Delphi收发邮件例子代码，可以收发附件。

DELPHI发送邮件源代码，DELPHI发送邮件源代码，DELPHI发送邮件源代码

用delphi写的一个收发邮件小程序，带源代码。

下载资源悬赏专区

13,656

社区成员

12,673,480

社区内容

发帖

与我相关

我的任务

其他技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章