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

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

DomO_0
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 10.12.2015 (Чт) 0:07

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

Сообщение DomO_0 » 10.12.2015 (Чт) 0:12

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

P.S. (c msdn):
Добавьте ссылку на 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

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 11.12.2015 (Пт) 15:29

Эм.. Только меня настораживает упоминание Windows 2000?


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

    TopList