盒子论坛 v2.1

代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
  message1.From.Address:='wealsh@21cn.com';
  message1.Recipients.EMailAddresses:='wealsh@21cn.com';
  message1.Subject:='wealsh';
  message1.Body.Text:='wealsh';

  smtp1.Host:='smtp.21cn.com';
  smtp1.Port:=25;
  smtp1.UserId:='wealsh';
  smtp1.Password:='123456';

  try
  smtp1.Connect;
  smtp1.Send(message1);
  showmessage('ok');
  except
  end

end;

end.

此帖子包含附件:

大小:28.5K

----------------------------------------------
-

作者：

wealsh (工作狂人)	★☆☆☆☆	-
	盒子活跃会员

2004/8/2 16:49:36

1楼：

up
----------------------------------------------
-

作者：

gemouzhi2 (gemouzhi2)	★☆☆☆☆	-
	盒子活跃会员

2004/8/2 17:04:59

2楼：

不要用21CN的
----------------------------------------------
-

信息

登陆以后才能回复