最简单的就是使用CDONTS.NewMail 组件

  Set MailObject = Server.CreateObject("CDONTS.NewMail")
  MailObject.From = "发信邮箱"
  MailObject.To = "收信邮箱"
  MailObject.Cc = "抄送邮箱"
  MailObject.Bcc = "密送邮箱"
  MailObject.Subject = "邮件主题"
  MailObject.Body = "邮件内容"
  MailObject.MailFormat = 0 '邮件的格式，0是MIME格式，1是文本消息
  MailObject.BodyFormat = 0 '邮件的正文的格式，0表示HTML格式，1表示普通文本
  MailObject.Importance = 1 '邮件的重要性，0是表示低重要性，1表示正常，2表示高重要
  MailObject.AttachFile "附件绝对路径","附件名称"
  MailObject.Send
  Set MailObject = Nothing

 

还有就是jmail这个要安装的组件才能用.

 jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
            jmail.logging = true   '启用邮件日志
            jmail.Charset = "GB2312"     '邮件的文字编码为国标
            jmail.ContentType = "text/html"    '邮件的格式为HTML格式
            jmail.AddRecipient acceptemail     '邮件收件人的地址
            jmail.From =sendmail   '发件人的E-MAIL地址
            jmail.FromName =sendname '发件人姓名
            jmail.MailServerUserName =loginname     '登录邮件服务器所需的用户名
            jmail.MailServerPassword =loginpwd     '登录邮件服务器所需的密码
            jmail.Subject =sub_ject    '邮件的标题
            jmail.Body =body       '邮件的内容
            jmail.Priority =1      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
            jmail.Send(stmpmail)   '执行邮件发送（通过邮件服务器地址）