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

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

Бесплатная Steam игра Grimoire: Manastorm от Bundl...

Получаем бесплатную игру Steam Grimoire: Manastorm. Способ получения новой Steam игры на халяву, читаем!

Как скачать и установить Pokemon GO?

Совсем недавно появилась новая игра Pokémon GO, которая сразу же полюбилась игрокам со всего мира. В игровых ч

Как получить опыт и покемонов в Pokemon go не выхо...

Сегодня я расскажу как сидя за компом пофармить в Pokemon go. Получаем опыт и покемонов в Pokemon go не выходя

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

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

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

Форум о халяве - FREE-PASS.Ru » Популярное на форуме » Флудилка [О разном] » Отправить е-майл VB.NET

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