大连网站制作客服
主营业务
  • 网站制作
  • 网站维护
  • 网站推广
  • 域名空间
联系电话
联系人:尹先生
QQ:1050706570
E-mail:biz@noonenet.cn
地址:大连市甘井子区哲林北园29号
·首页 >> 网站技术 >> asp gmail邮箱发送邮件

asp gmail邮箱发送邮件

  更新时间:2011-1-18 13:44:51    编辑:阿帆

一般邮箱发送邮件发送端口都是默认为25,但gmail邮箱比较特别,默认端口是465,而且如果代码中使用gmail邮箱发送,还需做一些设置,看如下介绍:

首先我们在gmail邮箱中做下设置,登录gmail邮箱后

单击右上角设置标签-->转发和pop/imap-->启用imap访问。

OK,接下来再找一个可以设置端口的发送组件,jmail组件我没找到解决方案,我们来用CDO.Message吧,看如下函数,直接套用就行了。

以下是代码:

Sub SendMail(MailSubject,MailContent,ReviceMail)
 
  StrName = "http:"&"//schemas.microsoft.com/cdo/configuration/"
  Set Email = server.CreateObject("CDO.Message")
  Email.From = "noonenet.cn@gmail.com"
  Email.To = ReviceMail
  Email.BodyPart.Charset = "gb2312"
  Email.Subject = MailSubject
  Email.HtmlBody = MailContent

  with Email.Configuration.Fields

   .Item(StrName & "sendusing") = 2
   .Item(StrName & "smtpserver") = "smtp.gmail.com"
   .Item(StrName & "smtpserverport") = 465
   .Item(StrName & "smtpauthenticate") = 1
   .Item(StrName & "smtpusessl") = 1
   .Item(StrName & "sendusername") = "你的gmail帐户"
   .Item(StrName & "sendpassword") = "gmail帐户密码"
   .Update
  
  End With

  Email.send
  
 End Sub

参数说明:
MailSubject -- 邮件主题  MailContent -- 邮件内容  ReviceMail -- 邮件接收地址

这样就可以在网页里使用gmail邮箱发送邮件了。

 

原载: No.1网络工作室 http://www.noonenet.cn/
版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。


Tags:asp gmail发送邮件
同类文章:
· asp 图片防盗链实现
· asp实现站内搜索 多个数据表
· 解决ie8锚点链接不起作用
· 可控制滚动方向的连续滚动图片,默认向左滚动
· js代码 - 全选、取消全选
返回新闻列表
top
本站关键字:大连网站制作 - 大连网站建设 - 大连网页制作
CopyRight © 2009-2012 No.1网络工作室 All Rights Reserved  sitemap
地址:大连市甘井子区哲林北园29号 电话:13889684613 E-mail:biz@noonenet.cn QQ:1050706570
logo