如何通过使用 Visual Basic.net 中使用 CDOSYS 和 $ 本地 SMTP 目录发送电子邮件

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

概要

本文介绍如何通过使用 Microsoft Visual Basic.net 发送 HTML 电子邮件使用协作数据对象 (CDO),对于 Microsoft Windows 2000 库和 $ 本地 SMTP 目录。 您必须具有运行要发送的电子邮件的 SMTP 服务的服务器上运行此示例。

更多信息

  1. 启动 Microsoft Visual Studio.net。
  2. 文件 菜单上指向 新建,然后单击 项目
  3. 项目类型 框中,单击 Visual Basic 项目
  4. 模板 框中,单击 控制台应用程序,然后单击 确定

    默认状态下,创建 Module1.vb。
  5. 添加对 Windows 2000 库的 Microsoft CDO 的引用。若要这样做,请按照下列步骤操作:
    1. 项目 菜单上单击 添加引用
    2. COM 选项卡上单击 Microsoft CDO 的 Windows 2000 库,然后单击 选择
    3. 添加引用 对话框中单击 确定 以接受您的选择。如果您收到提示您选择的库生成包装,单击
  6. 按照步骤 5a 通过 5 c 添加到 Microsoft ActiveX 数据对象 2.5 库的引用。
  7. 在代码窗口中使用的所有代码都替换:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            oMsg.From = "from@microsoft.com"
            oMsg.To = "to@microsoft.com"
            oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"
    
            Dim sHtml As String
            sHtml = "<HTML>" & _
             "<HEAD>" & _
             "<TITLE>Simple CDOSYS Message</TITLE>" & _
             "</HEAD>" & _
             "<BODY><P>" & _
             "<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _
             "</BODY>" & _
             "</HTML>"
    
            oMsg.HTMLBody = sHtml
    
            ' Set configuration.
            Dim iConfg As CDO.Configuration = New CDO.Configuration()
    
            Dim oFields As ADODB.Fields
            oFields = iConfg.Fields
    
            Dim oField As ADODB.Field
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = 1   ' Sets the configuration to use the local SMTP server.
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  8. 在该的代码中搜索"TODO",然后修改为您的环境的代码。
  9. 按 F5 生成并运行程序。
  10. 验证已发送和接收电子邮件。

属性

文章编号: 313773 - 最后修改: 2007年11月29日 - 修订: 3.2
这篇文章中的信息适用于:
  • Microsoft Visual Basic .NET 2003 标准版
  • Microsoft Visual .NET 2002 标准版
  • Microsoft Collaboration Data Objects 2.0
关键字:?
kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 313773
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