Select the product you need help with

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

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

840667

(http://support.microsoft.com/kb/840667/ )

当在.net 框架应用程序中使用 ADO 和 ADO MD，您会收到意外的错误

展开全部 | 关闭全部

概要

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

更多信息

通过使用 SMTP 端口发送一封电子邮件，请按照下列步骤操作：

启动 Microsoft Visual Studio.net。
在文件菜单上指向新建，然后单击项目。
在 Visual Basic 项目类型 列表中单击 控制台应用程序。

默认状态下，创建 Module1.vb 文件。
添加到 Microsoft CDO 的 Windows 2000 库的引用。这样做，请按照下列步骤操作：
1. 在项目菜单上单击 添加引用。
2. 单击 COM 选项卡、查找 Microsoft CDO 的 Windows 2000 库，然后单击选择。
3. 添加引用 对话框中单击确定。
4. 如果系统提示您所选的库生成包装，单击是。
重复步骤 4，添加对 Microsoft ActiveX 数据对象 2.5 库的引用。

在代码窗口中用下列替换代码：

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

在该的代码中搜索 TODO，然后修改为您的环境的代码。
按 F5 生成并运行程序。
请确保该电子邮件发送和接收的。

属性

文章编号: 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

(http://support.microsoft.com/kb/313775/en-us/ )

Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。