不想用winsock控件，怎么用api写这个代码？

Question

没弄过邮件的，对于telnet和http弄过一点，感觉开始都是一样的，socket, connect两个api,i/o重定向，read/write套接字等，不同的是他们走的端口不一样，
telent 23
http 80
ftp 21
pop3 110
smtp 25
局域网 139

Answer 1

另外对于收发邮件和附件应该了解uuincode编码协议和smtp协议。

Answer 2

留个Email有socket api的代码给你，刚才在csdn发的，现在还没有发出来
是一个socket api做的发送email组件(VB)，比较初级水平的呵呵~如果我不关机的话，http://net2sky.7i24.com也可以下载到（有源代码）
GDYMail 组件说明：1、需要VB6运行库才可以运行
2、使用：可以在Windows程序中使用，带示例，也可以在ASP程序中使用，方法和在Windows程序中使用方法一样
3、属性说明：创建 GDYMail.Mail后可以使用Public MailTo As String '接收方地址，多接收者用“,”分割（半角,）
Public MailFrom As String '发送方地址
Public ToName As String '接收方名字
Public FromName As String '发送方名字
Public MailSubject As String '邮件标题
Public txtMailBody As String '文本格式邮件内容
Public htmlMailBody As String 'html格式邮件内容
Public SMTPserver As String 'SMTP服务器地址
Public SMTPUser As String 'SMTP服务器登陆用户名
Public SMTPPass As String 'SMTP服务器验证密码
Public Charset As String '邮件使用的字符集
4、函数说明：
Public Function AddAttach(fileName As String)'添加附件，"c:\log.exe" 等绝对路径
Public Function dMailSend() As String'快递（直接发送到接收方邮件服务器），在MailTo属性使用多接收者会造成发送失败
'发送成功返回 - "发送成功"
'发送失败返回 - "失败原因"Public Function MailSend(EMSTP As Boolean) As String'通过指定SMTP服务器发送邮件,EMSTP指定SMTP服务器是否需要身份验证
'返回同 dMailSend
5、事件说明
StatusChange(strEven As String) '当发送状态改变时激发