开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 资源交易 › ASP源码 › ASP CDO发送邮件
返回列表 发新帖
查看: 52|回复: 3

[其他分类] ASP CDO发送邮件

[复制链接]
天下第一 发表于 2024-11-13 19:31:12 | 显示全部楼层 |阅读模式
ASP CDO发送邮件
  1.         Public Sub CDOMail(SmtpServer,FromMail,FromMailPass,ToMail,Title,Content)
  2.                 Dim NameSpace,Email
  3.                 Set Email = Server.CreateObject("CDO.Message")
  4.                 NameSpace = "https://schemas.microsoft.com/cdo/configuration/"
  5.                 With Email.Configuration.Fields
  6.                         .Item(NameSpace & "sendusing") = 2
  7.                         .Item(NameSpace & "smtpserver")= SmtpServer
  8.                         .Item(NameSpace & "smtpserverport") = 465
  9.                         .Item(NameSpace & "smtpusessl") = True
  10.                         .Item(NameSpace & "smtpconnectiontimeout") = 10
  11.                         .Item(NameSpace & "smtpauthenticate") = 1
  12.                         .Item(NameSpace & "sendusername") = FromMail
  13.                         .Item(NameSpace & "sendpassword") = FromMailPass
  14.                         .Update
  15.                 End With
  16.                 Email.From = FromMail
  17.                 Email.To = ToMail
  18.                 Email.Subject = Title
  19.                 Email.HtmlBody = Content
  20.                 Email.Send()
  21.                 Set Email = Nothing
  22.         End Sub
复制代码
ASP币如何冲？请看这里
回复

使用道具 举报

一往情僧 发表于 2024-11-14 08:03:40 | 显示全部楼层
我用的是其他方法。。。
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

 楼主| 天下第一 发表于 2024-11-14 09:24:28 | 显示全部楼层
一往情僧 发表于 2024-11-14 08:03
我用的是其他方法。。。

jmail？
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号