Как отправлять сообщения электронной почты при помощи CDOSYS и локальный каталог SMTP с помощью Visual Basic.NET

Переводы статьи Переводы статьи
Код статьи: 313773 - Vizualiza?i produsele pentru care se aplic? acest articol.
Внимание! ADO и ADO MD не были проверены полностью в корпорации Майкрософт.NET Framework среды. Они может вызвать спорадические проблемы, особенно в приложениях, основанных на службах или в многопоточных приложениях. Методы, описанные в данной статье должен использоваться только в качестве временной меры во время миграции для ADO.NET. Эти методы следует использовать только после завершения полной проверки, убедитесь, что нет никаких проблем с совместимостью. Любые проблемы, которые вызываются с помощью ADO или ADO MD таким образом не поддерживаются. Для получения дополнительных сведений обратитесь к следующей статье Microsoft Knowledge Base:
840667 При использовании ADO и ADO MD в получении непредвиденных ошибок.NET Framework приложения
Развернуть все | Свернуть все

Аннотация

В данной статье описывается, как использовать объекты совместной работы (CDO) для библиотеки Microsoft Windows 2000 и локальный каталог SMTP для отправки сообщения электронной почты HTML с помощью Microsoft Visual Basic.NET. В этом примере необходимо запустить на сервере с служба SMTP для отправки сообщений электронной почты.

Дополнительная информация

  1. Запустите Microsoft Visual Studio.NET.
  2. На Файл Выберите пункт Новый, а затем нажмите кнопку Проект.
  3. В группе Типы проектов, нажмите кнопку Проекты Visual Basic.
  4. В группе Шаблоны, нажмите кнопку Консольное приложение, а затем нажмите кнопку ОК.

    По умолчанию будет создан модуль Module1.vb.
  5. Добавьте ссылку на Microsoft CDO для библиотеки Windows 2000. Чтобы сделать это, выполните следующие действия.
    1. На Проект меню, нажмите кнопку Добавить ссылку.
    2. На COM Щелкните CDO Microsoft 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 - Последний отзыв: 7 июня 2011 г. - Revision: 4.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Ключевые слова: 
kbmsg kbcode kbxml kbhowtomaster kbmt KB313773 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:313773

Отправить отзыв

 

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