账号通
    

账号  

密码  

64419

查看

117

回复
主题:09年了 送大家一份礼物 [收藏主题] 本贴被认定为精华 转到:  
tonk 当前离线

68

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:1024 分
登录次数:55 次
注册时间:2008/1/19
最后登录:2009/3/18
tonk 发表于:2009/1/1 20:13:00   | 只看该作者 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

大家都是科汛注册发送信箱信息

还有向好友推荐文章需要发送到信箱中

 

 

这里需要用到JMAIL.Message组件

但是我相信有部分朋友空间不支持JMAIL.Message组件

 

那么我们就需要用别的方法实现了

 

本人小站 http://xctv.net

 

找到

 

 


  Dim JMail
    Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
   jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j
   jmail.Charset = "GB2312" '邮件的文字编码为国标
   jmail.ContentType = "text/html" '邮件的格式为HTML格式
   jmail.AddRecipient Email '邮件收件人的地址
   jmail.From = Fromer '发件人的E-MAIL地址
   jmail.FromName = Sender
     If LoginName <> "" And LoginPass <> "" Then
    JMail.MailServerUserName = LoginName '您的邮件服务器登录名
    JMail.MailServerPassword = LoginPass '登录密码
     End If

   jmail.Subject = Subject '邮件的标题
   JMail.Body = Content
   JMail.Priority = 1'邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
   jmail.Send(MailAddress) '执行邮件发送(通过邮件服务器地址)
   jmail.Close() '关闭对象
  Set JMail = Nothing
  If Err Then
   SendMail = Err.Description
   Err.Clear
  Else
   SendMail = "OK"
  End If


  这一段  稍微修改一下就可以了

 

 

以下内容只有回复后才可以浏览,请先登录!

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
海博 当前离线

223

主题

0

广播

0

粉丝
添加关注
级别:二年级

用户积分:939 分
登录次数:87 次
注册时间:2009/11/10
最后登录:2012/3/6
海博 发表于:2010/3/18 14:11:00   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
youngae520 当前离线

83

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:954 分
登录次数:134 次
注册时间:2009/4/24
最后登录:2011/12/28
youngae520 发表于:2010/3/17 16:08:00   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
超音速 当前离线

162

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1339 分
登录次数:212 次
注册时间:2009/8/10
最后登录:2021/3/22
超音速 发表于:2009/10/18 22:16:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
会飞的鱼 当前离线

37

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:869 分
登录次数:76 次
注册时间:2007/8/6
最后登录:2013/4/12
会飞的鱼 发表于:2009/10/10 8:51:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
ssbadboy 当前离线

255

主题

0

广播

0

粉丝
添加关注
级别:二年级

用户积分:2195 分
登录次数:132 次
注册时间:2008/5/30
最后登录:2011/4/3
ssbadboy 发表于:2009/8/2 13:09:00   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
sky123888 当前离线

23

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:323 分
登录次数:5 次
注册时间:2009/6/27
最后登录:2009/7/14
sky123888 发表于:2009/7/13 0:39:00   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zzp1982 当前离线

216

主题

3

广播

0

粉丝
添加关注
级别:二年级

用户积分:1657 分
登录次数:171 次
注册时间:2007/11/4
最后登录:2018/5/21
zzp1982 发表于:2009/7/12 9:11:00   | 只看该作者 查看该作者主题 8楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
a2584482 当前离线

433

主题

1

广播

0

粉丝
添加关注
级别:四年级

用户积分:3971 分
登录次数:231 次
注册时间:2009/7/1
最后登录:2018/7/14
a2584482 发表于:2009/7/10 11:11:00   | 只看该作者 查看该作者主题 9楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
it 当前离线

618

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:2874 分
登录次数:26 次
注册时间:2009/7/7
最后登录:2012/5/2
it 发表于:2009/7/9 11:36:00   | 只看该作者 查看该作者主题 10楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.20313秒 powered by KesionCMS 9.0