如何用nmsmtp发邮件????(100分)

  • 主题发起人 主题发起人 kals
  • 开始时间 开始时间
以下代码作参考:
procedure TFMmail.Button1Click(Sender: TObject);
begin
NMSMTP1.PostMessage.FromName:='姓名';//在邮件中显示的发件人姓名
NMSMTP1.UserID:='邮件帐号';//如信箱地址为none@163.net,则填入none
NMSMTP1.PostMessage.FromAddress:='发件地址';
NMSMTP1.PostMessage.ReplyTo:='回复地址';
NMSMTP1.Host:='pop3服务器地址';//如163填入:pop.163.net
NMSMTP1.PostMessage.ToAddress.Text:='对方邮箱地址';
NMSMTP1.PostMessage.Subject:='主题';
NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items);//附件文件列表
NMSMTP1.PostMessage.LocalProgram:='xxx';//发邮件的应用程序名
NMSMTP1.PostMessage.Body.Assign(memo1.Lines);//信件内容
if not NMSMTP1.Connected then
NMSMTP1.Connect;
if NMSMTP1.Connected then
begin
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
end;

容错自已去写。
 
delphi下面有例子, 看一看不就行了(pop3, smtp)
 
eyes4:
NMSMTP1.Host:='pop3服务器地址';//如163填入:pop.163.net

这里发邮件应该是填‘smtp服务器地址’吧?!
 
请问,
如何自己实现smtp服务器的功能,
即不借用163等的smtp服务器,
谢谢了!
 
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.PostMessage.FromAddress := 'your email address';
NMSMTP1.PostMessage.FromName := 'your name';
NMSMTP1.PostMessage.Subject := 'your subject';
NMSMTP1.PostMessage.ToAddress.Add('To email address');
NMSMTP1.PostMessage.Attachments.AddStrings('your attach file');
NMSMTP1.PostMessage.Body.Assign('your email');
NMSMTP1.SendMail;
end;
 
to wys205
你的答案不是和eyes4差不多吗?
到底如何自己实现smtp服务器呢?
知道吗?
谢谢了!

to eyes4
你知道如何实现吗?
 
>>如何自己实现smtp服务器的功能
如果自己去实现一个smtp服务器的功能,恐怕太难了吧,这恐怕不是一两人年能完成的。
如果能有控件实现最好,不过我还没听说过类试控件。SMTP客户端的控件倒是有许多。
 
to wys205
很多smtp服务器都要身份认证,
听说indy的控件可以解决这个问题,
你知道具体怎么使用indy的控件实现吗?
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=293357
不过我没试过
 
多人接受答案了。
 
好象通过不了验证这一关啊,有哪位肯指点一二的啊?
 
后退
顶部