Delphi让你发送Flash电子邮件 --谁能帮我调试成功里面的例子,立即发分

lsx_delphi 2003-11-19 12:47:57

这篇文章地址:
http://www.pconline.com.cn/pcedu/empolder/gj/delphi/10205/58403.html

我照做出后发送过去,outlook收到的是文本邮件,不是mime邮件
另外我看得几篇文章,作出来的发送内嵌图片/flash 的邮件(即图片不是作为附件,而是直接显示在邮件中),都未能成功,都是变成了文本邮件,好郁闷啊!

谁来帮忙看看啦

...全文

27 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

lsx_delphi 2003-11-24

打赏
举报

回复

up

lsx_delphi 2003-11-23

打赏
举报

回复

up

lsx_delphi 2003-11-21

打赏
举报

回复

当然不是，outlook发内嵌图片邮件给自己收，没有问题的

lsx_delphi 2003-11-20

打赏
举报

回复

帖子限制啊，解决了另外加300，ok?

hkbarton 2003-11-20

打赏
举报

回复

可能不是程序的原因，而是outlook设置的原因

paliang 2003-11-19

打赏
举报

回复

:)
分太少了点吧

*********************测试方法************************ 　　本程序在Delphi5.0+Win98 第二版/Win2000+Foxmail 3.11 /OE 5.5/IE 5.5中测试成功。一、发送　　在Delphi 5中打开工程，并将工程编译成.EXE可执行文件，然后，运行Project.exe，在对话框中输入收信人、发信人、主题、正文内容，并输入SMTP服务器，这里是"smtp.263.net"，端口号使用默认的25，选中"SMTP服务器需要认证"，并根据发信人输入用户名、密码。单击"打开文件"按钮，选择要发送的 Flash动画.SWF文件，如图中所示，已经选择了"F:\SwfEmail\ Cfan.swf"文件。确认无误后，单击"发送"按钮，即可，发送成功后，会出现发信成功的提示信息。二、接收　　发送成功后，使用Foxmail、OutLook等可以处理HTML格式邮件的电子邮件软件接收，并按照HTML格式的邮件查看，即可看到邮件中的Flash动画效果！或者，对于263、163、China.com等（注意：sina、sohu不支持），可以直接在Web界面查看邮件。

无论Outlook XP还是最新的Foxmail 4.0，都只能在HTML格式的电子邮件中嵌入JPG、GIF格式图片，而音色俱佳的Flash动画却只能作为电子邮件附件发送给好友，你可曾感到遗憾？　　经过一番实验探索，我使用Delphi终于实现了将Flash动画（.SWF格式）嵌入到电子邮件正文中发送的功能，Foxmail、Outlook均可以按照HTML格式的邮件查看，而且263、163等免费电子

{******Unit1.pas源代码内容如下******} unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Psock, NMsmtp; type TForm1 = class

　一、首先搜索相关网站：百度搜索。　　点击箭头所指的【重设密码】　　二、输入你的apple id账号　　三、然后选择【电子邮件验证】，点击【下一步】　　四、显示电子邮件已发出，如果没有收到邮件可以在垃圾箱里找找，实在没有找到，重新发一遍，基本上发送是不会延迟太久的，邮箱没有收到，应该就是没有发送成功，重新发一遍试试　　五、然后进入邮箱，点击【立即重设】　　六、就可以重新设置密码了 ...

如果希望添加HTML格式的内容，可以使用MIMEText的第一个参数设置为HTML。首先，我们需要导入必要的模块。在这个例子中，我们假设要发送一个名为"attachment.txt"的文本文件。然后，我们可以创建一个MIMEMultipart对象，它将作为我们要发送的电子邮件的容器。接下来，我们需要设置发送方和接收方的电子邮件地址，以及SMTP服务器的信息。运行脚本后，您将在控制台上看到成功或失败的消息，指示电子邮件是否成功发送。然后，您可以运行这个脚本，它将发送一个带有附件的电子邮件。

网络通信/分布式开发

1,592

社区成员

32,990

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章