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. Linux内核：关于中断你须要知道的

    1.中断处理程序与其它内核函数真正的差别在于,中断处理程序是被内核调用来对应中断的,而它们执行于中断上下文(原子上下文)中,在该上下文中执行的代码不可堵塞. 中断就是由硬件打断操作系统. 2.异常与中 ...

  2. 实现类似shared_ptr的引用计数

    13.27 定义使用引用计数版本的HasPtr #include<iostream> #include<string> #include<new> using na ...

  3. C#泛型比较大小

    using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.T ...

  4. IE6下Png透明最佳解决方案(推荐) Unit PNG Fix

    引自:http://www.yeeyan.org/articles/view/98510/67784 网络上解决IE6下Png透明解决方案有很多,例如 IE PNG Fix from TwinHeli ...

  5. css3绘制中国结

    <!doctype html> <html> <head> <title></title> <meta charset='utf-8' ...

  6. asp.net 开发问题：Web 服务器上的请求筛选被配置为拒绝该请求，因为内容长度超过配置的值。

    "Web 服务器上的请求筛选被配置为拒绝该请求,因为内容长度超过配置的值." 这个问题在开发需要上传文件的时候可能会遇到,今天遇到这个问题,百度过也有挺多的修改方法. 方法1: 修 ...

  7. springmvc中url-pattern的大坑

    <servlet> <servlet-name>springmvc</servlet-name> <servlet-class>org.springfr ...

  8. html + ashx 实现Ajax省市联动

    基本思路:1.了解数据库中省和市的表结构及关联主键 2.创建html页面及select标签 3.通过ajax向ashx(一般处理程序)发送后台请求完成联动效果 表结构: 这里,开始创建一个命为demo ...

  9. iOS 多张图片保存到相册问题（add multiple images to photo album）

    不知道朋友们有木有做过多图保存到系统的相册这个需求,我在用`UIImageWriteToSavedPhotosAlbum`保存图片时候,在代理回调方`didFinishSavingWithError` ...

  10. c#泛型方法重载

    这里存在普通的方法Foo和泛型方法Foo,如果直接调用: 则会自动优先匹配对应的非泛型方法.输出如下: 但需要注意的是,这一匹配过程是在编译过程进行的,所以如果是通过其它泛型间接调用.则只会调用对应的 ...