1,184
社区成员
发帖
与我相关
我的任务
分享请问谁有用纯API函数发送邮件的源程序啊~~~~~~
请问谁有用纯API函数发送邮件的源程序啊？
有的话请发给我一份，分不够可以再给！
Email:liufan1016@163.net
有的话请发给我一份，分不够可以再给！
Email:liufan1016@163.net
...全文
请发表友善的回复…
发表回复
cuihl 2003-01-24
- 打赏
- 举报
还有RFC
Billy_Chen28 2003-01-18
- 打赏
- 举报
建议先看看<<WINDOWS程序设计>>,北京大学出版社
luo521 2003-01-18
- 打赏
- 举报
中国铁道出版社有一本书《delphi应用实例》里面以一个组件是用纯API函数发送邮件的
Billy_Chen28 2003-01-18
- 打赏
- 举报
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;
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;
