请问大虾，不用TNMSMTP控件，如何发送邮件？？？急急急。

[pdev]

[sundayboys]

是指调用系统默认的邮件发送软件发送，还是自己写一个，如果是后者，我关注。

[我不懂电脑]

后者可以用imapi接口编写，我也只知道这些。欢迎交流。

[rh]

有时间的话
自己去看看pop和smtp协议：）
不过实在麻烦
建议使用indy箜件

[pdev]

高手快出招，来点例程吧。别让我的40分烂这里。

[pdev]

高手何在？我要送分。
不用控件就不能发邮件了？

[BCB]

是的,有SMTP文本交互命令也行,这些文本命令甚至用 telnet都能发起来

[BCB]

http://longen.org/S-Z/details~z/Smtp.htm

[BCB]

http://go7.163.com/wzgshow/skill/skill.htm

[pdev]

今天研究一天毫无结果，请大虾帮忙呀！

[sharetop]

是呀，我也觉得打开Socket，发几个命令就可以了。

我只有一个用java写的现成的例子，参看一下吧。

try{

//打开邮件服务器port:25
Socket s = new Socket(smtpServer,25);

//用于socket读写数据
PrintWriter out = new PrintWriter(s.getOutputStream(),true);
BufferedReader in = new BufferedReader(new InputStreamReader(s.getInputStream()));

String res = null; //smtp服务器返回信息

out.println("HELO "+smtpServer);
res=in.readLine();
if( !res.startsWith("220") ) throw new MailException("MailException:"+res);

out.println("MAIL FROM: "+fromMail);
res = in.readLine();
if( !res.startsWith("250") ) throw new MailException("MailException:"+res);

out.println("RCPT TO: "+toMail);
res = in.readLine();
if( !res.startsWith("250") ) throw new MailException("MailException:"+res);

out.println("DATA");
res = in.readLine();
if( !res.startsWith("250") ) throw new MailException("MailException:"+res);

out.println("Subject:"+subject);
out.println("From:"+fromMail);
out.println("To:"+toMail);
out.println("Content-Type: text/html; charset=gb2312");
out.println(content);

out.println(".");
res = in.readLine();
if( !res.startsWith("354") ) throw new MailException("MailException:"+res);

out.println("QUIT");
s.close();
}
catch(UnknownHostException x) {
throw new MailException("MailException:"+x.getMessage());
}
catch(IOException x){
throw new MailException("MailException:"+x.getMessage());
}

[pdev]

谢谢，如果有C++ BUILDER的源程序就更好了。

[wjzhuang]

自己写邮件发送~~~~~~~~很难的，我不懂
关注！

[wangking]

自己用winsock写，就是那个CLIENTSOCK，如果仅仅是发邮件，很简单的几个命令而已。

[jojopoper]

你可以做一个连接到Outlook，就象点击右键时出现的发送到－》邮件接收者。。。一样啊

调用API

[vc_mira]

HINSTANCE ShellExecute(
HWND hwnd,
LPCTSTR lpVerb,
LPCTSTR lpFile,
LPCTSTR lpParameters,
LPCTSTR lpDirectory,
INT nShowCmd
);
用法：ShellExcute(NULL,"open","mailto:[e-mail]",NULL,NULL,SW_SHOW )