Использование CDO (отправка почты) в приложении VB.Net
Заранее спасибо
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
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