坚 坚持信念 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-05 #1 不需要验证?求发送EMAIL代码,不是群发,而是发送单个人的,要求可以发送附件,源代码,急,没分了。
坚 坚持信念 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-05 #2 不需要验证?求发送EMAIL代码,不是群发,而是发送单个人的,要求可以发送附件,源代码,急,没分了。
W wwei656 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-05 #3 控件: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;
控件: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;
一 一生中最爱 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-05 #4 我写个了例子,需要的话,联系我 dxmylove@yahoo.com.cn,qq:171833017,http://www.websamba.com/dxmylove
孩 孩子他爸 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-05 #5 請看 http://www.denguo.com/mx.asp?id=135
坚 坚持信念 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-08 #6 可不可以做到 smtp1.userid:=edit2.text; smtp1.password:=edit1.text; 不需要验证?