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. C++ ComboBox基础

    关键点 实现过程 //添加 //添加字符串 m_cbo1.AddString("AAA"); m_cbo1.AddString("BBB"); m_cbo1.A ...

  2. 【转】oracle创建表空间

    原文:http://www.cnblogs.com/netsql/articles/1745978.html 注意点: 1.如果在PL/SQL 等工具里打开的话,直接修改下面的代码中[斜体加粗部分]执 ...

  3. Hdu 2473（并查集删除操作） Junk-Mail Filter

    有木有非常吊 加强 加强版   啊  ,看了都不敢做了   .后来先做了食物链这个我还是看过的.但还是A不掉,没明确神魔意思 .总而言之.大牛的博客是个好东西.我就那么看了一下,还是不懂怎莫办啊,哎, ...

  4. C# - 系统类 - String类

    String类 ns:System String类封装了一系列不能被改变的Unicode字符序列 字符属于引用类型 但它又具有值类型的行为 固定不变意味着 一旦在托管堆中分配了一块内存来存储字符 字符 ...

  5. Linux新手入门：通过chmod改变文件权限--转

    前面介绍过在Linux中如何查看文件的属性,在Linux文件权限详解中我们介绍了Linux文件的三种身份和四种权限,三种身份分别为: u:文件的拥有者 g:文件所属的群组 o:其他用户 对于每个身份, ...

  6. Lambda表达式（C语言-gcc编译器）

    前言 先来啰嗦几句,身边的朋友,同事都喜欢在博客上记录自己在学习计算机编程技术路程上的一些问题和心得.就我个人而言,这是个好习惯,特别是在计算机编程领域,技术方向种类繁多,永无止境.所以,我也开始我人 ...

  7. Linux查看磁盘块大小

    首先,使用df命令查看所在磁盘 df -hT 显示: Filesystem Type Size Used Avail Use% Mounted on /dev/vda1 ext4 15G .1G 12 ...

  8. 企业级应用架构(三)三层架构之数据访问层的改进以及测试DOM的发布

    在上一篇我们在宏观概要上对DAL层进行了封装与抽象.我们的目的主要有两个:第一,解除BLL层对DAL层的依赖,这一点我们通过定义接口做到了:第二,使我们的DAL层能够支持一切数据访问技术,如Ado.n ...

  9. python中关于正则表达式三

    2015年8月14日 11:10 7.2正则表达式操作 正则表达式使用反斜杠字符'\'来暗示一些特殊的形式或者允许特殊的字符使用但是没有调用它们特殊的意思.在字符串常量中的相同目标的字符的python ...

  10. ASC码 .

    有些时候需要用到一些字符的ASC码,到网上查找太麻烦,现在记录下来. 第128-255号为扩展字符(不常用) Dec Hx Oct Char   Dec Hx Oct Char Dec Hx Oct ...