欢迎您来到中国万网客户服务中心!
客服导航
如果您在使用我们的产品中遇到问题,建议您首先在“常见问题”中查询解决方法;
如果没有找到该问题的解决方法,您可以在“问题搜索”中进行搜索;
如果搜索后没有找到满意答案,您可以“在线提问”,我们会在1个工作日内给您答复。
您现在的位置: 中国万网客服中心 >> 常见问题 >> 主机常见问题 >> 功能组件支持 >> 文章正文

asp.net发信组件。

作者:客服中心    文章来源:本站原创    点击数:    更新时间:2006-3-20

  • CDOSYS示例 


     <%
       '以下部分为系统配置,请勿更改
       Set objMail = Server.CreateObject("CDO.Message")
       Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
       objCDOSYSCon.Fields("
    http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       objCDOSYSCon.Fields("
    http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
       objCDOSYSCon.Fields("
    http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
       objCDOSYSCon.Fields("
    http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup"
       objCDOSYSCon.Fields.Update
       Set objMail.Configuration = objCDOSYSCon
       '系统配置结束
      
      
       '以下为用户自行更改部分,请由程序员进行修改
       objMail.From = "
    you@yourhouse.com"
       objMail.Subject = "CDOSYS Mail Message"
       objMail.To = "
    yourfriend@otherdomain.com"
       objMail.TextBody = "Hello World"
       objMail.Send
      
      
       Set objMail = Nothing
       Set objCDOSYSCon = Nothing
      
       %>


    <%
    '以下部分为系统配置,请勿更改

    dim objMail as object
    dim objCDOSYScon as object

    objMail = Server.CreateObject("CDO.Message")
    objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:Inetpub\mailroot\Pickup"
    objCDOSYSCon.Fields.Update
    objMail.Configuration = objCDOSYSCon
    '系统配置结束
    '以下为用户自行更改部分,请由程序员进行修改
    objMail.From = "test@www.yourdomain.com"
    objMail.Subject = "win2003发信组件测试"
    '把下面的email改成自己的
    objMail.To ="test@yourdomain.com"
    objMail.TextBody = "win2003测试发信组件正常"
    objMail.Send
    objMail = Nothing
    objCDOSYSCon = Nothing
    %>

    <%="发送成功, ok!!!"%>

    备注:

    版权声明:本示例程序仅仅授权中国万网 ASP.NET 虚拟主机用户使用。其他任何方式的使用需经中国万网书面授权。


  • 返回上一页
    中国万网旗下网站:中国万网 买麦网
    Copyright © 2007 中国万网 版权所有
    推荐使用1024×768分辨率浏览,并关闭窗口弹出阻止程序