如何在DELPHI开发的ISAPI中发送一个电子邮件?(50分)

  • 主题发起人 主题发起人 songguolong
  • 开始时间 开始时间
S

songguolong

Unregistered / Unconfirmed
GUEST, unregistred user!
在用DELPHI开发的ISAPI或CGI程序中,如何发送一个电子邮件呢?
又如何往电子邮件里加附件呢?
 
delphi自己不是有现成的控件吗?
 
smtp,pop 控件
 
response.SendRedirect('mailto:???@???.com');
实际上就是将用户的请求重定向到'mailto:???@???.com'
在response.Content中加入'<a href="mailto:???@???.com">...</a>"'也是
可以的,只不过需要用户点击连接
 
可能我没说清楚。各位所说的方法我已试过:现成的控件根本加不到WEB模块去;
重定向的方法是要打开电子邮件,让用户发送邮件,而我这里是要在ISAPI中
发送邮件。
这里是不是要用MAPI,怎么呢?
 
不可能,现成的控件怎么会不能加到Web模块中去?我以前试过的,是可以的。
附件可能不行倒是真的。Web服务器怎么读你的硬盘上的东西,这一点我还不
懂。
 
是加不到 WEB module 中去嘛!
出现的是如下信息:“Controls cannot be added a web module”

这里是要在ISAPI或CGI程序中“悄悄”向用户发送邮件,邮件的内容是事先
准备好的几句话,并不需要读用户硬盘的内容!
 
你的delphi是多少?
我在d5上可以加啊。

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, Psock, NMsmtp;
type
TWebModule1 = class(TWebModule)
NMSMTP1: TNMSMTP;
private
{ Private declarations }
public
{ Public declarations }
end;

var
WebModule1: TWebModule1;

implementation

{$R *.DFM}

end.
 
噢!我用的D3。在D3中能做吗?
 
用 retcat 的不久行了吗??不一定要控件的
response.SendRedirect('mailto:???@???.com');
可以的,只不过需要用户点击连接
 
这里是要在ISAPI或CGI程序中“悄悄”向用户发送邮件,也就是在服务程序扩展中
向用户发送邮件,而不是由用户来发送邮件!!!
 
建议看看CGIExpert中的例子代码,我记得有一个WebMail的例子
鉴于CGIExpert都有源代码,仔细分析一下就应该可以了
 
升级你的delphi吧。呵呵。或者用sakmail试试,看它能不能加到你的
datamodule中。再不行,装cgiexpert,它可以用form作为容器,加载
smtp控件应该不会有问题的。
 
不行就用TCLIENTSOCKET,+RFC SMTP SEVICE。
HELO
MAIL TO
REPT FORM
DATA


不是很简单。
 
我也试过,不行,我用的是D4。
 
我的D4可以加SMTP进去的啊!!!
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, HTTPApp, Psock, NMsmtp;

type
TWebModule1 = class(TWebModule)
NMSMTP1: TNMSMTP;
private
{ Private declarations }
public
{ Public declarations }
end;

var
WebModule1: TWebModule1;

implementation

{$R *.DFM}

end.
 
肯定可以加进去,只要是没有界面的控件应该都可以.
 
建议使用CGIEXPERT,开发CGI会方便很多的
 
后退
顶部