Свежие темы форума
○ [Vn5socks.net] Service Seller Socks Good	в 08:43
○ Ключи к Norton/Symantec Антивирус №3 (Продолжение)	в 08:33
○ Install-shop.ru - Магазин аккаунтов + партнерка 10%! Instagr	в 23:43
○ Poster Pro 2.0.25 - программа для рассылок и парсинга ВК	в 23:42
○ Программа для продвижения в instagram	в 23:33
○ Бесплатные товары с Pandao!	в 13:36
○ заработок от 1000 руб. в сутки	в 13:30
○ Реальный способ пассивного заработка	в 13:27
○ Надо составить курсовую работу	в 12:57
○ Генератор прямых ссылок	в 02:52

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

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

Как сделать псевдоним или отчество Вконтакте?

В данной статья мы Вам расскажем о том, как сделать псевдоним или отчество вконтакте. Все мы помним, что в 201

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

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

[Почтовая халява] Бесплатные обложка для паспорта ...

Aviasales раздаёт на халяву вещи, которые можно взять бесплатно на Ebay! Обложка для паспорта или очки от солн

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

Отправить е-майл 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