Свежие темы форума
○ [Vn5socks.net] Service Seller Socks Good	в 06:45
○ Генератор паролей по маске	в 00:02
○ Ключи к Norton/Symantec Антивирус №3 (Продолжение)	в 23:59
○ Как вы попали на Free-Pass.Ru?	в 07:27
○ Как возник ваш ник? [истории возникновения ваших ников]	в 07:26
○ Тема для киноманов! (Обсуждение фильмов, сериалов и др.)	в 07:26
○ Продажа аккаунтов - соц сети, почтовые, фрихостинг	в 18:59
○ Генератор прямых ссылок	в 20:29
○ Раздача аккаунтов,ключей,cookies,JavaScript на ФО	в 10:38
○ Раздача аккаунтов от лучших Онлайн казино.	в 20:33

Популярные темы форума
○ Ключи к Norton/Symantec Антивирус	9999
○ Ключи к Norton/Symantec Антивирус №2 (Продолжение)	9734
○ [Dichvusocks.us] Service Seller Socks Good	7010
○ [Vn5socks.net] Service Seller Socks Good	6838
○ Ключи к Norton/Symantec Антивирус №3 (Продолжение)	2435
○ Ключи для Windows 8.1	1901
○ CS:GO сайты с халявой (UPD 52 сайтa)	1833
○ Раздача игровых ключей на gleam.io Free(,бесплатно )	1205
○ Раздача аккаунтов,ключей,cookies,JavaScript на ФО	1186
○ Промо-акции: различные полезные программы	1050

Интересные статьи и лайфхаки

Как не получить бан за мат в чате World of Tanks?

Как не получить бан за мат в чате World of Tanks? - в последнее время, над этим вопросом бьются множество игро

Как быстро и бесплатно вывести деньги со Steam?

Доброе время суток, уважаемый посетитель. В данной статье я тебе расскажу о том, как вывести деньги со steam.

Как поменять почту в World of Tanks [2016]

Как поменять почту в World of Tanks в 2016-ом году? Смена почты в WoT уже давно была невозможной, так как Warg

Сейчас вы просматриваете тему

Отправить е-майл VB.NET

Страница 1 из 1
1

SawCMS1042

Автор темы

Дата: Понедельник, 06.01.2014, 17:19 | Сообщение # 1

1 уровень

Сообщений: 3

Репутация: 0

Подарки: 0

Замечания: 0%

Пользователи

Здраствуйте ребят, в этом посте хочу показать вам как отправить е-майл используя VB.NET.

Нам нужно: IDE Visual Studio (2008-2010-2012-2013)
Базовое знание VB.NET'а
Свободная память ОЗУ мозгов
Прамые руки.

Начинаем: создаём проект.

Теперь в наш Form надо вставить Button. (можно ставить всё что угодно на удовольствие)
Два раза кликаем по форму, и выше Public Class Form1 пишем

Imports System.Net.Mail

Вернулись к форму [дезайн]
Ставим этому буттону текст Отправить.

Получается такое:
http://i.imgur.com/uksLIkO.png

Два раза кликаем по буттону.
Ставим данный код:

'--------------------------код от SawCMS---------------------------
'--специально для free-pass.ru - халява, раздачи и многое другое!--
'------------------------------удачи!------------------------------
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()

'Тут ставим логин и пароль на наш е-майл. Так же пожно поставить два TextBox чтобы туда пользовател ставил свои данные.
smtpServer.Credentials = New Net.NetworkCredential("мыло@мыло.tk", "парольмыла123")

'Пишем порт сервера SMTP. Для GMAIL 587. Полный список: http://bit.ly/JXQjhi
smtpServer.Port = 587

'адрес smtp хоста
smtpServer.Host = "smtp.gmail.com"

'вкючяем SSL (http://ru.wikipedia.org/wiki/SSL)
smtpServer.EnableSsl = True

'создаём новое письмо
mail = New MailMessage()

'пишем от кого е-майл (пишем адрес е.почты)
mail.From = New MailAddress("мыло@мыло.tk")

'пишем кому отправить е-майл
mail.To.Add("мойдругнуб@мыло.tk")

'тут пишем тему
mail.Subject = "тема"

'пишем текст письма текстом либо через textbox
mail.Body = ("Лялялял друг ты нуб когда нарки привезёшь?")

smtpServer.Send(mail)

Всё, у нас софт который отправляет мыло.
Довольны? Гоняйте плюсы wink