Отправить 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 'Тело письма

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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

	Отправить email при помоши vb 29.08.2010, 23:05. Показов 3984. Ответов 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