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>');
html.Body.Add('<head>');
html.Body.Add('<meta http-equiv="Content-Type" content="textml; charset=big5">');
html.Body.Add('<meta name="GENERATOR" content="Microsoft FrontPage 4.0">');
html.Body.Add('<meta name="ProgId" content="FrontPage.Editor.Document">');
html.Body.Add('<title>Nest MAC Traceability Report</title>');
html.Body.Add('<body>');
html.Body.Add('<table>');
html.Body.Add('<tr>Date : </tr>');
html.Body.Add('<tr>'); html.Body.Add('<table bordercolorlight="black" width="50%" border="3" bordercolor="black" cellspacing="0" >');
html.Body.Add('<tr bgcolor="#31C4F5" align="Center">');
html.Body.Add('<td width="500">Image</td>');
html.Body.Add('<td width="500">Releasing date</td>');
html.Body.Add('<td width="700">Total released Qty</td>');
html.Body.Add('<td width="1000">Cumulative Consumed Qty</td>');
html.Body.Add('<td width="500">Leftover Qty</td>');
html.Body.Add('<td width="700">Cumulative scrap Qty</td>');
html.Body.Add('</tr>');
html.Body.Add('<tr>');
html.Body.Add('</tr>');
html.Body.Add('</table>');
html.Body.Add('</tr>');
html.Body.Add('</table>');
html.Body.Add('</body>');
html.Body.Add('<ml>'); 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带附件邮件的更多相关文章

  1. ORACLE发送带附件邮件的二三事之一

    在oracle使用过程中,我们可以通过pl/sql生成数据文件,也可以通过spool on spool off生成,但某些环境下,我们需要通过存储过程处理数据,数据处理完,需要自动生成数据文件,手工导 ...

  2. 利用springframework+javax.mail发邮件(普通邮件、带附件邮件、HTML格式邮件)

    Spring提供了发送电子邮件的支持,可以发送普通邮件.带附件邮件.HTML格式邮件,甚至还可以使用Velocity模板定制化邮件内容. 一.引入相关的库 1 2 3 4 5 6 7 8 9 10 1 ...

  3. python学习笔记(SMTP邮件发送:带附件)

    博主有段时间没有更新博客了 先整理一个之前整理过的SMTP邮件发送,这次是带附件的功能 #!/usr/bin/env python # -*- coding: utf_8 -*- from email ...

  4. spring boot 邮件发送(带附件)

    首先开启QQ邮箱的POP.SMTP服务器,获取授权码. 设置-->账户-->POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务 pom.xml需要加载三个ja ...

  5. JavaMail发送邮件、带附件邮件(完整版)

    工程目录如下: 1.准备javaMail需要的两个Jar包:mail.jar.activation.jar,然后add to build path 2.QQ邮箱开启SMTP服务,开启后,它会给你一串授 ...

  6. 01_JavaMail_04_带附件邮件的发送

    [工程截图] [代码实例] package com.Higgin.mail.demo; import java.io.File; import java.util.Properties; import ...

  7. 基于Java Mail 进行发送(带附件和压缩附件)的邮件

    刚进公司的training, 下面是要求: Self-study of Java Mail library:  http://www.oracle.com/technetwork/java/javam ...

  8. 利用spring-mail模块发送带附件邮件dome

    本例为maven项目,直接撸代码吧. pom.xml <project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi ...

  9. Spring发送带附件邮件

    下面是一个例子使用Spring通过Gmail SMTP服务器来发送电子邮件附件.为了包含附件的电子邮件,你必须使用 Spring的JavaMailSender及MimeMessage 来代替 Mail ...

随机推荐

  1. js split str.split(&quot; &quot;); split使用方法 在某处截字符串

    <script language="javascript">    str="2,2,3,5,6,6"; //这是一字符串var strs= new ...

  2. Bootstrap-分页插件Paginator

    Bootstrap Paginator是一款基于Bootstrap的js分页插件,功能很丰富,个人觉得这款插件已经无可挑剔了.它提供了一系列的参数用来支持用户的定制,提供了公共的方法可随时获得插件状态 ...

  3. matlab两种不同模式的并行运算

    1.distributed job      distributed job是一种比較简单的并行任务.假定用户须要完毕一组作业.各个计算作业之间是独立的.并且相互之间不须要进行数据通信.这意味着各个作 ...

  4. careercup-数学与概率 7.7

    7.7 有些数的素因子只有3.5.7,请设计一个算法,找出其中第k个数. 解法: 首先,我们可以将满足条件的前几个数列出来,以此寻找解题思路. 一种简单的思路就是对于已经列出的数,我们依次去乘以3,5 ...

  5. java注解研究

    注解作用 常见的作用有以下几种: 生成文档.这是最常见的,也是java 最早提供的注解.常用的有@see @param @return @author等. 跟踪代码依赖性,实现替代配置文件功能.比较常 ...

  6. 从数组中随机取n条不重复的数据

    工作中经常遇到有关数组的一些操作 1. 从数据中随机取n条不重复的数据 (PS:下面的S.each是KISSY.each方法,大家可以改为for循环) /* 1 从数组arr中随机取n条不重复的数据 ...

  7. php测试oracle链接是否成功

    $conn = oci_connect('eoffice', 'hdujiedian', '//192.168.100.21/hziee'); if (!$conn) { $e = oci_error ...

  8. java中split以"."分割的问题

    今天开发中使用字符串分割函数split(),发现:输出的并不是想要的结果 或者直接报错都有可能 查询后才发现,需要转译 原来在java中函数split(".")必须是是split( ...

  9. Retrofit研究1

    以下为来自Github的retrofit的介绍.话说,翻译还真蛋疼,就这个花了快3个小时. Retrofit 一个在Android和Java上类型安全的HTTP客户端 介绍 Retrofit可以把你的 ...

  10. Android测试分析3

    一个基本的测试用例-- 如果是在eclipse中开发,那么需要在AndroidManifest.xml中加入如下两段代码:    <uses-library android:name=" ...