Использование библиотеки CDOSYS для отправки сообщения электронной почты, используя порт SMTP в Visual Basic .NET

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

Аннотация

В данной статье описывается, как использовать объекты совместной работы (CDO) для Windows 2000 (CDOSYS) библиотеки, чтобы отправить сообщение электронной почты, используя порт Simple Mail Transfer Protocol (SMTP) в Microsoft Visual Basic .NET.

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

Чтобы отправить сообщение электронной почты через порт SMTP, выполните следующие действия.
  1. Запустите Microsoft Visual Studio .NET..
  2. в менюФайл:Выберите пункт менюСОЗДАТЬ.и выберите командуProject.
  3. В диалоговом окнеТипы проектов Visual BasicВыберитеПриложение консоли.

    По умолчанию создается файл Module1.vb.
  4. Добавьте ссылку на CDO для Windows 2000 библиотеку Microsoft. Для этого выполните следующие действия::
    1. в менюProjectвыберите пунктДобавление ссылки.
    2. Перейдите на вкладкуCOMвкладки, найдитеКорпорация Майкрософт CDO для библиотеки Windows 2000и выберите командуSelect.
    3. В диалоговом окнеДобавление ссылкидиалоговое окно, нажмите кнопкуOk..
    4. Если запрос на создание оберток для выбранных библиотек, нажмите кнопкуДА..
  5. Повторите шаг 4 для добавления ссылки на 2,5 библиотеку объектов данных Microsoft ActiveX.
  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 - Последний отзыв: 23 ноября 2010 г. - Revision: 2.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Ключевые слова: 
kbhowto kbcode kbxml kbmsg kbmt KB313775 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:313775

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

 

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