不需要验证?求发送EMAIL代码,不是群发,而是发送单个人的,要求可以发送附件,源代码,急,没分了。 ( 积分: 10 )

  • 主题发起人 主题发起人 坚持信念
  • 开始时间 开始时间

坚持信念

Unregistered / Unconfirmed
GUEST, unregistred user!
不需要验证?求发送EMAIL代码,不是群发,而是发送单个人的,要求可以发送附件,源代码,急,没分了。
 
不需要验证?求发送EMAIL代码,不是群发,而是发送单个人的,要求可以发送附件,源代码,急,没分了。
 
控件:idsmtp idmessage 两个按钮,七个标签控件 opendialog EDIT控件共6个,分别代表账户使用的密码、使用用者账号、服务的网址、邮件主题、发信者的地址、收信者的地址;MEMO1控件一个.邮件正文。
2。发送邮件代码buttonclick
begin
smtp1.authenticationtype:=atlogin;
smtp1.userid:=edit2.text;
smtp1.password:=edit1.text;
smtp1.host:=edti3.text;
smtp1.port:=25;
try
smtp1.connect;
except
showmessage('连接SMTP服务器失败‘);
exit;
end;
try
with idmsg do
begin
body.clear;
body.assign(memo1.lines);
from.address:=edit5.text;
recipients.emailaddresses:=edit6.text;
subject:=edit4.text
end;
smtp1.send(idmsg);
finally
showmessage('发送成功‘);
smtp1.disconnect;
end;
end;
//发送附件:
button2click
memo1.lines.add(opendialog1.filename);
end;
 
我写个了例子,需要的话,联系我
dxmylove@yahoo.com.cn,qq:171833017,http://www.websamba.com/dxmylove
 
請看
http://www.denguo.com/mx.asp?id=135
 
可不可以做到

smtp1.userid:=edit2.text;
smtp1.password:=edit1.text;


不需要验证?
 
这个随便找本书都有的.
没必要在这里问.
 
接受答案了.
 
后退
顶部