作者：江德华
无论Outlook XP还是最新的Foxmail 4.0，都只能在HTML格式的电子邮件中嵌入JPG、GIF格式
图片，而音色俱佳的Flash动画却只能作为电子邮件附件发送给好友，你可曾感到遗憾？
经过一番实验探索，我使用Delphi终于实现了将Flash动画（.SWF格式）嵌入到电子邮件正文中发送的功能，Foxmail、Outlook均可以按照HTML格式的邮件查看，而且263、163等免费电子邮件还支持Web界面直接浏览。可惜的是，Sina、Sohu免费电子邮件的Web界面则不支持，只能将Flash动画作为附件提供。
一、
程序原理
下面对本程序相关的重要理论知识做些解释，帮助大家理解本
程序的原理。更多的内容，限于文章篇幅，请参见相关的参考书、帮助文件。
1.TNMSMTP控件
电子邮件发送过程都必须遵循SMTP协议。客户端和服务器通过该协议进行通信，由客户端发送出电子邮件，SMTP服务器通过网络上其他SMTP服务器，最终将邮件传递到收信人的邮件服务器。本程序作为电子邮件客户端
程序，最基本的功能是要实现电子邮件发送，为了简化编程，使用了Delphi 5自带的TNMSMTP控件，该控件封装了对SMTP编程。由于该控件继承自TPowersock，因而必要时可以直接调用底层的Socket过程，又不失灵活性。
例如，虽然TNMSMTP不直接支持“SMTP服务器认证功能”（请参考《电脑爱好者》2001年16期《制作支持“服务器认证”的VB电子邮件程序》，包括下文“BASE64编码”），但是，可以利用TNMSMTP的Connect事件和继承自TPowersock的Transaction方法，实现SMTP服务器认证。其原理在于，Connect事件发生在TNMSMTP与服务器连接成功之时，此时，使用Transaction方法发出SMTP服务器认证所规定的“AUTH LOGIN”命令，并输入经过BASE64编码后的用户名和密码，可以实现认证。因此，本
程序实现了SMTP服务器认证。
另外，TNMSMTP的SendStart事件在邮件发送开始时触发，在该事件中，可以通过修改TNMSMTP的FinalHeader属性值，实现修改电子邮件的邮件头信息。在本
程序中需要修改邮件头的Content-Type属性，使接收嵌入Flash动画电子邮件的客户端软件（如Foxmail）能正确处理邮件内容。
2.MIME协议
目前，几乎所有的邮件服务器和客户端软件都支持“多用途Internet邮件扩展”协议Multipurpose Internet Mail Extensions (MIME)。该协议的最新版由RFC2045（Internet消息体格式）、RFC2046（媒体类型）、RFC2047（无ASCII文本消息头扩展）、RFC2048（
注册过程）、RFC2049（一致性标准和例子）等共同规定。该协议遵循了RFC822中规定的电子邮件内容只能包括简单的ASCII文本字符（如字母、数字、标点符号等），定义了在电子邮件中包括经过编码的二进制文件的方法，编码后的内容将只包括文本字符。目前，实现对二进制文件编码的规范有很多，BASE64编码规范也是其中之一。本
程序使用TMemoryStream对象，实现了通用的BASE64编码函数EncodeBASE64，能够对SWF文件进行编码。
通过MIME协议，电子邮件中不但可以添加附件，还可以添加HTML格式内容，包括图片、声音、动画等。Outlook、Foxmail 4.0等软件都可以编辑HTML格式的邮件，但是并不支持直接嵌入Flash动画。事实上，正确利用MIME协议，可以在HTML格式的邮件中嵌入Flash动画，并在邮件正文中显示出来，其原理和在HTML格式邮件中显示
图片、播放声音是一样的。在HTML格式邮件中嵌入Flash动画与向网页中添加动画所需要的代码是一样的，同样使用< OBJECT >、< EMBED >标记，感兴趣的朋友可以查看一个包含Flash动画的网页源代码，对比本
程序。
在本程序中，设置邮件MIME消息头的Content-Type属性为multipart/related; boundary="---SwfEmail by JDH"，表示该邮件包括多
