Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Использование CDO (отправка почты) в приложении VB.Net

33K
09 декабря 2015 года
Donotlie
26 / / 31.03.2014
Доброго времени суток. Возникла такая проблема: решил использовать "CDO для Windows 2000 библиотеки Microsoft" для оправки почты из приложения, но возникает нелепая ошибка - "В файле конфигурации не не найдено требуемое имя SMTP-сервера". Но в коде я указал smtp - сервер. В чём может быть проблема?
Заранее спасибо

P.S.
Добавьте ссылку на Microsoft CDO для библиотеки Windows 2000. Чтобы сделать это, выполните следующие действия.
В меню Проект выберите команду Добавить ссылку.
На вкладке COM выберите CDO для Windows 2000 библиотеки Microsoftи нажмите кнопку выбрать.
В диалоговом окне Добавление ссылки нажмите кнопку OK для принятия выбранных параметров. Если появится запрос на создание оберток для выбранных библиотек, нажмите кнопку Да.

Совсем забыл сказать, что знаю как отправить письмо при помощи System.Net.Mail, но там нельзя использовать прокси, а вот CDO это позволяет, что мне и нужно!
Код:
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Dim oMsg As New CDO.Message()
        Dim iConfg As New CDO.Configuration()
        Dim oFields As ADODB.Fields
        Dim oField As ADODB.Field

        oFields = iConfg.Fields

        oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpsserver")
        oField.Value = "smtp.mail.ru"
        oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
        oField.Value = 465
        oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
        oField.Value = 2
        oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
        oField.Value = True
        oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
        oField.Value = 1
        oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusername")
        oField.Value = "***@mail.ru"  '  вставляем логин
       oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendpassword")
        oField.Value = "***"  ' вставляем пароль
       oFields.Update()

        oMsg.Configuration = iConfg

        '// Set common properties for Message
       oMsg.Subject = "Test SMTP"
        oMsg.From = "***@mail.ru"
        oMsg.To = "***@mail.ru"

        oMsg.Send()
    End Sub
End Class
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог