Отправить email при помоши vb

@GreenPanda · Регистрация: 29.08.2010

Студворк — интернет-сервис помощи студентам

у меня стоит visual basic 2010 express как мне зделать так чтобы при вводе в текстовое окно и нажатия определоной кнопки отпровлялся email на определёный адрес ?

@Rubanov · 29.08.2010, 23:26

Можо попробовать отправлять через Winsock при помощи SMTP. Надо создать клиент, который будет подключатся к какому нибудь SMTP серверу.
P. S. может можно как-то проще.

@GreenPanda · 29.08.2010, 23:29 **[ТС]**

Сообщение от Rubanov

Можо попробовать отправлять через Winsock при помощи SMTP. Надо создать клиент, который будет подключатся к какому нибудь SMTP серверу.
P. S. может можно как-то проще.

а поточнее можно пожалуйста ю я посто не програмист и не силно там что либо понимаю

@Rubanov · 30.08.2010, 14:38

Сейчас код накатаю

Добавлено через 29 минут
Про Winsock и SMTP сам как-нибудь почитаешь, я использую такую схему: через Winsock делается POST запрос на сервер с данными для письма, оттуда он отправляется php-функией mail. Можешь пользоваться моим сервером rubik.pp.ua. Winsock добавляется так: Проект - Компоненты, ставишь галочку напротив Microsoft Winsock Control. Дальше используешь код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim strBoundary As String
Dim strRequest As String
Dim strTo As String
Dim strSubject As String
Dim strMessage As String
Dim strHeaders As String
Dim I As Byte
Option Explicit
Private Sub Command1_Click()
 strTo = "example@example.com" 'Адрес получателя
 strSubject = "Subject" 'Тема письма
 strMessage = "Message" 'Тело письма
 strHeaders = "Content-Type: text/plain; Charset=windows-1251" & vbCrLf & _
 "From: 'Sender'<example@example.net>" 'Заголовки (кодировка, адрес отправителя и т. п.)
 strBoundary = ""
 Randomize
 For I = 1 To 20
  strBoundary = strBoundary & Chr(Int(Rnd * 26) + 65)
 Next I
 strRequest = "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='to'" & vbCrLf & vbCrLf & _
 strTo & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='subject'" & vbCrLf & vbCrLf & _
 strSubject & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='message'" & vbCrLf & vbCrLf & _
 strMessage & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='headers'" & vbCrLf & vbCrLf & _
 strHeaders & vbCrLf & _
 "--" & strBoundary & "--"
 strRequest = "POST /mail.php HTTP/1.1" & vbCrLf & _
 "Host: rubik.pp.ua" & vbCrLf & _
 "Content-Type: multipart/form-data; boundary=" & strBoundary & vbCrLf & _
 "Content-Length: " & Len(strRequest) & vbCrLf & vbCrLf & strRequest
 Winsock1.Close
 Winsock1.RemoteHost = "rubik.pp.ua"
 Winsock1.RemotePort = 80
 Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
 Winsock1.SendData strRequest
End Sub

@CJ_Sashok · 30.08.2010, 14:59

Сообщение от Rubanov

Можешь пользоваться моим сервером rubik.pp.ua.

А как можно создать свой сервер??

Не по теме:

Заранее спасибо))

@Rubanov · 30.08.2010, 16:06

Сообщение от CJ_Sashok

А как можно создать свой сервер??

Зарегистрироваться на хостинге с поддержкой php и возможностью отправки писем (например ho.ua), создать файл mail.php и записать в него:

PHP
1
<? mail($_POST['to'],$_POST['subject'],$_POST['message'],$_POST['headers']); ?>

А вообще не помешает изучить php.
P. S. письма через мой сервер доходят?

@GreenPanda · 30.08.2010, 17:10 **[ТС]**

Сообщение от Rubanov

Сейчас код накатаю

Добавлено через 29 минут
Про Winsock и SMTP сам как-нибудь почитаешь, я использую такую схему: через Winsock делается POST запрос на сервер с данными для письма, оттуда он отправляется php-функией mail. Можешь пользоваться моим сервером rubik.pp.ua. Winsock добавляется так: Проект - Компоненты, ставишь галочку напротив Microsoft Winsock Control. Дальше используешь код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim strBoundary As String
Dim strRequest As String
Dim strTo As String
Dim strSubject As String
Dim strMessage As String
Dim strHeaders As String
Dim I As Byte
Option Explicit
Private Sub Command1_Click()
 strTo = "example@example.com" 'Адрес получателя
 strSubject = "Subject" 'Тема письма
 strMessage = "Message" 'Тело письма
 strHeaders = "Content-Type: text/plain; Charset=windows-1251" & vbCrLf & _
 "From: 'Sender'<example@example.net>" 'Заголовки (кодировка, адрес отправителя и т. п.)
 strBoundary = ""
 Randomize
 For I = 1 To 20
  strBoundary = strBoundary & Chr(Int(Rnd * 26) + 65)
 Next I
 strRequest = "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='to'" & vbCrLf & vbCrLf & _
 strTo & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='subject'" & vbCrLf & vbCrLf & _
 strSubject & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='message'" & vbCrLf & vbCrLf & _
 strMessage & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='headers'" & vbCrLf & vbCrLf & _
 strHeaders & vbCrLf & _
 "--" & strBoundary & "--"
 strRequest = "POST /mail.php HTTP/1.1" & vbCrLf & _
 "Host: rubik.pp.ua" & vbCrLf & _
 "Content-Type: multipart/form-data; boundary=" & strBoundary & vbCrLf & _
 "Content-Length: " & Len(strRequest) & vbCrLf & vbCrLf & strRequest
 Winsock1.Close
 Winsock1.RemoteHost = "rubik.pp.ua"
 Winsock1.RemotePort = 80
 Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
 Winsock1.SendData strRequest
End Sub

или я полный тормоз или не знаю но у меня в меню где проект написано нету такого раздела как компоненты может потомучто немецкая версия и я негде не нашел Microsoft Winsock Control

а нелзя ли Microsoft Winsock Control как нибудь кодом активировать?

но всеравно спс за ответ

@Rubanov · 30.08.2010, 18:27

Сообщение от mischka

или я полный тормоз или не знаю но у меня в меню где проект написано нету такого раздела как компоненты может потомучто немецкая версия и я негде не нашел Microsoft Winsock Control

а нелзя ли Microsoft Winsock Control как нибудь кодом активировать?

но всеравно спс за ответ

У меня Visual Basic 6.0, поэтому может интерфейсы у нас как-то отличаются. А какие у тебя вообще есть пункты в меню Проект? У меня Компоненты вызываются также комбинацией Ctrl+T.

@CJ_Sashok · 30.08.2010, 19:03

Сообщение от Rubanov

P. S. письма через мой сервер доходят?

Да )))))))

@GreenPanda · 30.08.2010, 21:43 **[ТС]**

Сообщение от Rubanov

У меня Visual Basic 6.0, поэтому может интерфейсы у нас как-то отличаются. А какие у тебя вообще есть пункты в меню Проект? У меня Компоненты вызываются также комбинацией Ctrl+T.

у меня версия 2010 экспресс и при нажатие ctrl+t у меня ничего не проесходит может потомушто версия экспресс ??

@Rubanov · 30.08.2010, 22:18

у меня версия 2010 экспресс и при нажатие ctrl+t у меня ничего не проесходит может потомушто версия экспресс ??

Могу завтра написать и откомпилировать программу с интерфейсом командной строки, которая будет отправлять письма. Писать?

@GreenPanda · 30.08.2010, 22:28 **[ТС]**

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Imports System.Net.Mail
 
Public Class Form1
 
 
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Start()
 
 
    End Sub
 
   
   
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("емайл отправителя", "пароль")
        SmtpServer.Port = 25
        SmtpServer.Host = "smtp.rambler.ru"
        SmtpServer.EnableSsl = False
        mail.To.Add("емайл отправителя")
        mail.From = New MailAddress("получятель")
        mail.Subject = "тема"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)
        Timer1.Stop()
    End Sub
End Class

подскажитье что я тут не правилно делаю ??

Добавлено через 2 минуты

Сообщение от Rubanov

Могу завтра написать и откомпилировать программу с интерфейсом командной строки, которая будет отправлять письма. Писать?

нспасибо конечно но я бы хотел зделать на свой вкус

@Rubanov · 30.08.2010, 23:26

Сообщение от mischka

mail.To.Add("емайл отправителя")
mail.From = New MailAddress("получАтель")

Может наоборот?
P. S. я не знаю этот объект.

@GreenPanda · 31.08.2010, 00:45 **[ТС]**

Сообщение от Rubanov

Может наоборот?
P. S. я не знаю этот объект.

ну да но add по англиски обозначает добавить

Добавлено через 17 минут
ура получилось ты был прав нвдо было наоборот зделать
но теперь ещё одна проблема
немогу зделать так чтобы посылалось при нажатие кнопки

Добавлено через 31 минуту
а ну с кнопкой ето я тормозил ни туда написал код xD

@GreenPanda · 31.08.2010, 01:14 **[ТС]**

Rubanov, еще один небольшой вопрос как поменят иконку ну стандартную кде там просто окошечко нарисовано на типа как у винрара что бы были например тоже книжечки

@Rubanov · 31.08.2010, 13:38

Сообщение от mischka

Rubanov, еще один небольшой вопрос как поменят иконку ну стандартную кде там просто окошечко нарисовано на типа как у винрара что бы были например тоже книжечки

Для этого надо создать иконку в формате .ico или .cur и установить её в свойстве icon формы. Затем при компиляции в опциях выбрать её.

@CJ_Sashok · 31.08.2010, 14:22

Сообщение от Rubanov

Для этого надо создать иконку в формате .ico или .cur и установить её в свойстве icon формы. Затем при компиляции в опциях выбрать её.

не в Express по другому.
установив в свойстве Icon формы у тя будет Icon формы а не файла.
Надо зайти Проект ->Свойства:"имя проекта" -> Приложение , ну а дальше разберёшся.

@GreenPanda · 31.08.2010, 23:09 **[ТС]**

Вот здесь точто я создал если вам интересно ^^

@GreenPanda · 31.08.2010, 23:27 **[ТС]**

PS. тестировал толко с рамблер

@ilimdar · 15.09.2010, 23:31

Сообщение от Rubanov

"From: 'Sender'<example@example.net>"

а как можно сделать что бы он брал майл с текстового поля? все другое сделал

strTo = Text1.Text 'Адрес получателя
strSubject = Text2.Text 'Тема письма
strMessage = Text3.Text 'Тело письма

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@GreenPanda 178 / 29 / 3 Регистрация: 29.08.2010 Сообщений: 228

	Отправить email при помоши vb 29.08.2010, 23:05. Показов 4075. Ответов 21 Метки нет (Все метки) у меня стоит visual basic 2010 express как мне зделать так чтобы при вводе в текстовое окно и нажатия определоной кнопки отпровлялся email на определёный адрес ? 0

@Rubanov 5 / 5 / 2 Регистрация: 29.08.2010 Сообщений: 51
	29.08.2010, 23:26
	Можо попробовать отправлять через Winsock при помощи SMTP. Надо создать клиент, который будет подключатся к какому нибудь SMTP серверу. P. S. может можно как-то проще. 0

@GreenPanda 178 / 29 / 3 Регистрация: 29.08.2010 Сообщений: 228
	31.08.2010, 01:14 [ТС]
	Rubanov, еще один небольшой вопрос как поменят иконку ну стандартную кде там просто окошечко нарисовано на типа как у винрара что бы были например тоже книжечки Изображения 0

@GreenPanda 178 / 29 / 3 Регистрация: 29.08.2010 Сообщений: 228
	31.08.2010, 23:27 [ТС]
	PS. тестировал толко с рамблер 0