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.这个一般国内空间都支持的....随便黑几个空间放上去就行了....呵呵.

  • 相关阅读:
    webService 的使用
    前端框架——树形结构Ztree的使用
    vue使用问题总结(长期更新)
    yum安装配置MySQL数据库
    kworkerds挖矿木马
    zabbix 中文乱码
    GIT 仓库的搭建
    ELK 收集交换机日志(以华为交换机为例)
    Zabbix 邮箱告警(Python脚本)
    Tomcat8性能优化
  • 原文地址:https://www.cnblogs.com/jimeper/p/309883.html
Copyright © 2011-2022 走看看