zoukankan      html  css  js  c++  java
  • Delphi与ASP结合发邮件

    program ASPSendMail;

    uses Urlmon;

    begin

    UrlDownloadToFile(nil, Pchar('http://www.*****.com/good.asp?data=利用服务器发送邮件'), 0, 0, nil);

    end.

    以下是 good.asp 全部代码↓

    <%

    Dim senddata
    senddata=Request("data")
    if senddata="" then senddata=Time()

    call SendEmail("sebooks@163.com","邮件主题",senddata,"sebooks@163.com")

    Sub SendEmail(ToEmail,Subject,Content,FromEmail)
      Set jmail = Server.CreateObject("JMAIL.Message")
      jmail.silent = true
      Jmail.logging = true
      jmail.Charset = "GB2312"
      jmail.ContentType = "text/html"
      jmail.AddRecipient ToEmail
      jmail.From = FromEmail
      jmail.Subject = Subject
      jmail.Body = Content
      'jmail.Prority = 1     '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值

      jmail.MailServerUserName = "sebooks"   '登录邮件服务器所需的用户名
      jmail.MailServerPassword = "嘿嘿,我的密码可不能说"   '登录邮件服务器所需的密码
      jmail.Send("SMTP.163.com")   '执行邮件发送(通过邮件服务器地址)

      jmail.Close()   '关闭对象
      Set jmail=nothing
    End Sub

    %>

    把上面内容存成asp文件放到虚拟空间就行了.当然,前提是服务器有jmail.这个一般国内空间都支持的....随便黑几个空间放上去就行了....呵呵.

  • 相关阅读:
    css 标签 清除浮动
    css 标签 垂直居中
    getResource().getPath()返回的路径空格变成了 %20
    css3颜色渐变
    网页动画结束判断事件
    手机端js事件支持(event)
    手机端js实现滑块推动
    手机端js模拟长按事件(代码仿照jQuery)
    基于SOA架构---ServiceProxy定义
    对SSL加密通信安全的理解
  • 原文地址:https://www.cnblogs.com/jimeper/p/309883.html
Copyright © 2011-2022 走看看