如何使用 CDOSYS 库通过使用 Visual Basic.net 中的 SMTP 端口发送一封电子邮件

文章翻译 文章翻译
文章编号: 313775 - 查看本文应用于的产品
警告: ADO 和 ADO MD 尚未经过完全测试在 Microsoft.net 框架的环境中。它们可能会造成间歇性的问题,尤其是在基于服务的应用程序或多线程应用程序中。只应作为临时的度量值使用本文中讨论的技术,ADO.NET 向迁移的过程。您已进行了完整的测试,以确保不存在兼容性问题后,只应使用这些技术。任何由在这种方式中使用 ADO 或 ADO MD 引起的问题是不受支持。有关详细的信息,请参阅下面 Microsoft 知识库中相应的文章:
840667 当在.net 框架应用程序中使用 ADO 和 ADO MD,您会收到意外的错误
展开全部 | 关闭全部

概要

本文介绍如何通过使用 Microsoft Visual Basic.net 中的简单邮件传输协议 (SMTP) 端口发送一封电子邮件使用协作数据对象 (CDO),为 Windows 2000 (CDOSYS) 库。

更多信息

通过使用 SMTP 端口发送一封电子邮件,请按照下列步骤操作:
  1. 启动 Microsoft Visual Studio.net。
  2. 文件 菜单上指向 新建,然后单击 项目
  3. Visual Basic 项目类型 列表中单击 控制台应用程序

    默认状态下,创建 Module1.vb 文件。
  4. 添加到 Microsoft CDO 的 Windows 2000 库的引用。这样做,请按照下列步骤操作:
    1. 项目 菜单上单击 添加引用
    2. 单击 COM 选项卡、 查找 Microsoft CDO 的 Windows 2000 库,然后单击 选择
    3. 添加引用 对话框中单击 确定
    4. 如果系统提示您所选的库生成包装,单击
  5. 重复步骤 4,添加对 Microsoft ActiveX 数据对象 2.5 库的引用。
  6. 在代码窗口中用下列替换代码:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field
     
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields
    
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
    
           ' TODO: Replace with the port that you want to use . It must be the same
           ' port that the SMTP server is using.
           oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25
    
            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "<SMTP Server>"
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "from@example.com"
            oMsg.To = "to@example.com"
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  7. 在该的代码中搜索 TODO,然后修改为您的环境的代码。
  8. 按 F5 生成并运行程序。
  9. 请确保该电子邮件发送和接收的。

属性

文章编号: 313775 - 最后修改: 2007年11月29日 - 修订: 3.2
这篇文章中的信息适用于:
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft Collaboration Data Objects 2.0
  • Microsoft Visual Basic .NET 2003 标准版
  • Microsoft Visual .NET 2002 标准版
关键字:?
kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 313775
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com