ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Использование CDO (отправка почты) в приложении VB.Net
4 сообщений из 4, страница 1 из 1
Использование CDO (отправка почты) в приложении VB.Net
    #39125434
DomO_0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DomO_0
Гость
Доброго времени суток. Возникла такая проблема: решил использовать "CDO для Windows 2000 библиотеки Microsoft" для оправки почты из приложения, но возникает нелепая ошибка - "В файле конфигурации не не найдено требуемое имя SMTP-сервера" . Но в коде я указал smtp - сервер. В чём может быть проблема?
Заранее спасибо

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

Совсем забыл сказать, что знаю как отправить письмо при помощи System.Net.Mail, но там нельзя использовать прокси, а вот CDO это позволяет, что мне и нужно!

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
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
...
Рейтинг: 0 / 0
11.12.2015, 00:53
| Ответить | Цитировать | Написать  
Использование CDO (отправка почты) в приложении VB.Net
    #39125500
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Гугл спрашивать пробовал? По первым же ссылкам примеры в основном на VB
DomO_0Совсем забыл сказать, что знаю как отправить письмо при помощи System.Net.Mail, но там нельзя использовать прокси, а вот CDO это позволяет, что мне и нужно!
Сказки какие-то рассказываешь. Протокол SMTP не проксируется. Похоже просто что-то ты недопонял в System.Net.Mail
...
Рейтинг: 0 / 0
11.12.2015, 08:27
| Ответить | Цитировать | Написать  
Использование CDO (отправка почты) в приложении VB.Net
    #39125794
DomO_0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DomO_0
Гость
Dima T Гугл спрашивать пробовал? По первым же ссылкам примеры в основном на VB
DomO_0Совсем забыл сказать, что знаю как отправить письмо при помощи System.Net.Mail, но там нельзя использовать прокси, а вот CDO это позволяет, что мне и нужно!
Сказки какие-то рассказываешь. Протокол SMTP не проксируется. Похоже просто что-то ты недопонял в System.Net.Mail

А что по твоему тогда это?:
https://msdn.microsoft.com/en-us/library/ms873068(v=exchg.65).aspx
https://msdn.microsoft.com/en-us/library/ms873066(v=exchg.65).aspx

Код: vbnet
1.
2.
3.
4.
5.
'// Set Proxy properties			
        'oField = oFields("http://schemas.microsoft.com/cdo/configuration/urlproxyserver")
        'oField.Value = "itgproxy"
        ' oField = oFields("http://schemas.microsoft.com/cdo/configuration/proxyserverport")
        ' oField.Value = 80



А вот System.Net.Mail всю перелазил и ничего не нашёл. Если ты что то знаешь, то скажи пожалуйста.

По поводу гугла: сам попробуй или сравни!
...
Рейтинг: 0 / 0
11.12.2015, 13:12
| Ответить | Цитировать | Написать  
Использование CDO (отправка почты) в приложении VB.Net
    #39125849
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
 
У меня работает по SMTP
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
lcPass = ...
lcLogin = ...
lcServer = ...
lcTo = ...

loMsg = NewObject("CDO.Message")
loMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 && SMTP Port
loMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 && Send it using port
loMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = lcServer && host of smtp server
loMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 && Authenticate
loMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = lcLogin && Username
loMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = lcPass  && Password
loMsg.Configuration.Fields.Update()

loMsg.From = lcLogin
loMsg.Subject = "Test SMTP"
loMsg.To = lcTo
loMsg.Send()


Пример брал с инета.

Для начала добейся чтоб без прокси заработало. ХЗ чего там по ссылкам написано, я думаю не поможет.
...
Рейтинг: 0 / 0
11.12.2015, 14:04
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Использование CDO (отправка почты) в приложении VB.Net
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=WinterGraveyard&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 11ms
get settings:
 10ms
get forum list:
 14ms
get settings:
 9ms
get forum list:
 12ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 1627ms
total:  1813ms
созд. / загр.: 1813ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]