delphi 发送html邮件,delphi发送html带附件邮件
var
html: TIdText;
begin
if not SMTP.Connected then
SMTP.Disconnect();
try
SMTP.Connect;
try
if SMTP.Authenticate then //验证
begin
EMessage.Recipients.EMailAddresses := FUser;
EMessage.ClearBody;//清空正文
html:= TIdText.Create(EMessage.MessageParts);
EMessage.Subject:='Nest MAC Traceability Report';
html.ContentType := 'text/html;charset=gb2312';
html.ContentTransfer := '7bit';
EMessage.ContentType := 'multipart/alternative';
html.Body.Add('Dear Sir:');
html.Body.Add('');
html.Body.Add('Mac address Status');
html.Body.Add('');
html.Body.Add('
');
html.Body.Add('');
html.Body.Add('');
html.Body.Add('');
html.Body.Add('
Nest MAC Traceability Report');
html.Body.Add('
');
html.Body.Add('
html.Body.Add('
Date : ');
html.Body.Add('
');
html.Body.Add('
html.Body.Add('
');
html.Body.Add('
Image');
html.Body.Add('
Releasing date');
html.Body.Add('
Total released Qty');
html.Body.Add('
Cumulative Consumed Qty');
html.Body.Add('
Leftover Qty');
html.Body.Add('
Cumulative scrap Qty');
html.Body.Add('
');
html.Body.Add('
');
html.Body.Add('
');
html.Body.Add('
');
html.Body.Add('
');
html.Body.Add('
');
html.Body.Add('');
html.Body.Add('');
EMessage.From.Address := SMTP.Username;//发送人
EMessage.From.Name := '彭工';
if FileExists(FAttacFile) then
begin
AttachmentFile := TIdAttachmentFile.Create(EMessage.MessageParts, FAttacFile);
AttachmentFile.ContentType := 'text/plain';
end;
SMTP.Send(EMessage);
end;
finally
FreeAndNil(html);
FreeAndNil(EMessage);
if Assigned(AttachmentFile) then
FreeAndNil(AttachmentFile);
SMTP.Disconnect();
end;
except ON E: Exception do
raise Exception.Create(E.Message);
end;
end;
delphi 发送html邮件,delphi发送html带附件邮件相关推荐
- Python 发送邮件 和 发送带附件邮件
摘要: 平时运行一些脚本,需要把结果发送到邮箱,可以用python来处理,如下: 1,有邮件服务器: #!/bin/env python # -*- encoding: utf-8 -*- ...
- python邮件发送csv附件_Python2.7 smtplib发送带附件邮件报错STARTTLS解决方法
最近在SIOMP系统中添加一项功能时,即自动发送带附件邮件到指定邮箱时,发现在发送时报错:错误信息:STARTTLS extension not supported by server.很是奇怪,但发 ...
- python3发送邮件_Python3使用SMTP发送带附件邮件
一.设置开启SMTP服务并获取授权码 可以参考第一篇文章,这里不再赘述:[一]https://www.jb51.net/article/142220.htm 二.使用Python3 发送带附件的邮件 ...
- 采用SpringBoot发送简单、抄送、密送、带附件邮件
前言:JavaMail发送邮件的形式多种多样,有简单.抄送.密送.带附件邮件等. 1. 业务需求 实现邮件的简单.抄送.密送和带附件发送四种方式. 2. 实现步骤 在这里,我使用QQ邮箱作为测 ...
- SpringBoot简单/带附件邮件发送
话不多说,直接上代码吧. 1.引入依赖 <!-- https://mvnrepository.com/artifact/org.springframework.boot/spring-boot- ...
- 使用springboot发送带附件邮件(465端口加密邮件)
一.开启SMTP服务 二.编码 1.加依赖(pom.xml) <dependency><groupId>org.springframework.boot</groupId ...
- python中带附件发送电子邮件_python发送带附件邮件
Python SMTP发送邮件 SMTP(Simple Mail Transfer Protocol)即简单邮件传输协议,它是一组用于由源地址到目的地址传送邮件的规则,由它来控制信件的中转方式. py ...
- 用vbs往服务器发送文件,[转] Windows 下命令行/VBS脚本,发送带附件邮件.
利用VBScript发送邮件,以前从网上找的代码,不知原来的出处了.也不知作者是何人-.. 挺有用的脚本,我就一直在使用这个脚本来发邮件,还可以带附件.放在这里做个备份,免得到时又找不到了. 目前我就 ...
- .net发送带附件邮件
开发工具:vs2008 .net发送邮件相对比较简单.如下几步: 一.配置web.config 要注意邮件服务器的权限设置,是否有此账号,对服务器IP是否有限制等,用户名和密码可以设置在这里,程序中就 ...
- JavaWeb--邮件发送(web注册邮件,纯文本邮件,带图片邮件,带附件邮件)
邮件服务器与传输协议 发送邮件:SMTP协议 通常把处理用户smtp请求(邮件发送请求)的服务器称之为SMTP服务器(邮件发送服务器). 接收邮件:POP3协议 通常把处理用户pop3请求(邮件接收请 ...
最新文章
- icem密度盒怎么设置_icem一些总结精编版
- Java那些事之多线程
- VBScript教程-第一章. 脚本的定义和术语
- 如何分析apache日志[access_log(访问日志)和error_log(错误日志)]
- android图库文件夹乱,防止文件夹包含在Android图库中 | MOS86
- 浮点数不能全等比较吗php,汇编语言FCOM指令:比较浮点数值
- 熬夜整理出30张可视化大屏模板,不敲一个代码就能直接套用
- THUSC2016 游记
- IOS开发之----四舍五入问题
- 几个关于设计的小问题
- php写幻灯片,原生JS写的幻灯片
- js高级程序设计note
- nCode:DesignLife案例教程六
- 道阻且长,行则将至,行而不辍,未来可期
- 计算机组成原理超详解
- python实现四种出行路线规划(公交、步行、驾车、骑行)
- WP采集插件免费wordpress采集挂机插件
- iOS9下App Store新应用提审攻略
- 关于策略优化的一些简单想法
- MFC ActiveX 打包 CAB
热门文章
- linux意想不到题4
- Makefile 的 遗漏分隔符错误信息
- [每日一题] 11gOCP 1z0-052 :2013-09-1 RMAN-- repair failure........................................A20...
- jQuery 实现一个简单的信息反馈或者信息收集的页面
- Powershell 最大值堆栈实现
- nutch2.1分布式抓取
- android 4.2 noclassdeffounderror,NoClassDefFoundError:android.support.v7.internal
- python识别节假日_Python3自动签到 定时任务 判断节假日的实例
- 简述oracle的主要数据库对象,Oracle数据库数据对象分析
- php上传文件损坏,PHP 上传文件故障排除