请问谁有用纯API函数发送邮件的源程序啊~~~~~~

Question

请问谁有用纯API函数发送邮件的源程序啊？
有的话请发给我一份，分不够可以再给！
Email:[email protected]

Answer 1

procedure sendmail(ip:pchar;port:integer);
var
s:tsocket;
server:tsockaddr;
wsa:twsadata;
recvbuffer,sendbuffer:array[0..255] of char;
begin
wsastartup($0101,wsa);
s:=socket(af_inet,sock_stream,0);
if s<>invalid_socket then
 begin
 server.sin_port:=htons(port);
 server.sin_family:=af_inet;
 server.sin_addr.addr:=inet_addr(ip);
 connect(s,server,sizeof(server),0);
 recv(s,recvbuffer,0);
 strpcopy(sendbuffer,'HELO'#13#10);
 send(s,sendbuffer,6);
 //.......相同的道理发送MAIL FROM: YOUR_MAIL_ADDRESS;DATA;QUIT等命令。
 end;
closesocket(s);
wsacleanup;
end;

Answer 2

中国铁道出版社有一本书《delphi应用实例》里面以一个组件是用纯API函数发送邮件的

Answer 3

建议先看看<<WINDOWS程序设计>>,北京大学出版社