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