2008-7-8 7:34:05 喝小酒的网摘
 
利用aspmail发送带smtp验证的邮件
aspmail是什么就不用我说了吧,如果不清楚,去这儿下一个,基本功能全部免费的,呵呵,地址:http://www.aspemail.com/
下面直接把源码附上:
  Set   Mail   =   CreateObject("Persits.MailSender")    
  Mail.host   =   "smtp.163.com"    
  Mail.From   =   "pzhuyy@163.com" ' 发信人地址  
  Mail.FromName   =   "YY12"            ‘发信人名字
  Mail.AddAddress   "demo@const.net.cn"     '收信人地址
  Mail.Subject   =     "重要"       ‘邮件主题
  Mail.username   =   "pzhuyy"     ’发信人登录我
  Mail.password   =   "******"        '星号代表是我的密码,你可别在这儿用*号哈。
  Mail.Charset   =   "gb2312"       ‘html邮件编码
     
  Mail.Body   =   "Hello World!"  
  Mail.send
  Set Mail = Nothing
[Blog.Const.Net.Cn]