请问delphi里面不用控件,如何发邮件??(50分)

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

sxlyq

Unregistered / Unconfirmed
GUEST, unregistred user!
如提!!
 
用这两行代码:<br>var<br>&nbsp; str_mail:string;<br>begin<br>&nbsp; str_mail:='mailto:xxxxx@xxx.xxx';<br>&nbsp; ShellExecute(GetDesktopWindow(),'Open',PChar(str_mail), nil, nil, SW_SHOWNORMAL);<br>end;
 
并没有发出去呀?
 
呵呵,就是把控件的代码拷到工程里,稍改一改。<br>
 
不用控件完全可以<br>1、使用WINSOCK<br>2、参考RFC文档中有关邮件发送协议的那部分(有的国内已经翻译了)<br>3、根据协议对WINSOCK读写<br><br>你要是不懂的话还是用控件吧,呵呵<br><br>
 
是的,用WINSOCK要熟悉SMTP(简单邮件传输协议)<br>我2年前用VB做过,只是代码遗失了。<br>如果要SMTP协议,到这里来:http://www.longen.com/s-z/details~z/smtp.htm<br><br>
 
后退
顶部