 |
| Главная |
| Программы |
| Статьи |
| Разное |
| Форум |
| Контакты |
Отправка электронной почты
В последнее время мне часто задают вопрос - ну как же написать программу, отправляющую электронную почту? Ну вот тут я что-то набросал. Это не есть полностью работоспособный код, так кое-что для затравки. Хдесь я опишу основной принцип и последовательность команд.
Будем считать, что адрес отправителя хранится в переменной FromUser, адрес получателя в переменной ToUser, тема сообщения - Subject, сообщение - Message. Из переменной FromUser извлекаем переменную FromHost (InStr и Right - относительно @).
Событие начала сеанса.
| CODE NOW! |
winsock.Close 'Закрываем на всякий случай возможно открытые сеансы winsock.RemoteHost = FromHost 'Сообщаем, откуда происходит отправление winsock.Connect 'Соединяем Private Sub winsock_Connect() 'При соединении возникает такое событие Data = "RSET" & vbCrLf & "HELO " & winsock.LocalIP & vbCrLf 'Сообщаем наш IP winsock.SendData Data Data = "MAIL FROM: " & FromUser & vbCrLf 'Сообщаем от кого сообщение winsock.SendData Data Data = "RCPT TO: " & ToUser & vbCrLf 'Сообщаем кому сообщение winsock.SendData Data Data = "DATA" & vbCrLf 'Посылаем команду DATA winsock.SendData Data 'Посылаем тему сообщению Data = "Subject: " & txtSubject.Text & vbCrLf & vbCrLf & Message & vbCrLf winsock.SendData Data Data = "." & vbCrLf 'Заканчиваем сообщение winsock.SendData Data Data = "QUIT" & vbCrLf 'Завершаем сеанс winsock.SendData Data End Sub 'Для отладки просматриваем то, что приходит с сервера Private Sub winsock_DataArrival(ByVal bytesTotal As Long) winsock.GetData Data, vbString Debug.Print "[Получено]: " & Data End Sub Private Sub winsock_Error(Number As Integer, Description As String, Scode As Long, Source As String, HelpFile As String, HelpContext As Long, CancelDisplay As Boolean) MsgBox Description, vbOKOnly + vbCritical, "Ошибка!" End Sub |
Опять же - это не полностью рабочая программа, а только зарисовка. Делайте сами. (Если кто-нибудь что-то сделает - пишите мне на gaidar@vbstreets.ru, помогу).
| отсутствуют |
| :: Последние обновления :: |
| 04.09.2011 Долгожданный релиз VB Decompiler. Масса улучшений декомпиляции Native Code. Значительно расширенна и обновлена справочная система на русском и английском языках. |
| 20.12.2010 DotFix Software поздравляет наших клиентов и посетителей сайта с наступающим Новым Годом и рождеством! Желаем приятно провести праздники и успехов в новом году! |
| 28.11.2010 Выпущена новая версия защиты DotFix NiceProtect. Основные изменения коснулись обфускатора Delphi программ. Теперь имеется полная поддержка Tab и Page контролов на формах, что обеспечивает максимальную совместимость обфускации с Delphi XE программами. |
| 21.10.2010 Обновлен декомпилятор Visual Basic программ до версии 8.1. Декомпиляция P-Code программ становится все более идеальной, также проделана большая работа по улучшению анализа Native Code и .NET приложений. |
| 16.09.2009 Полностью обновлен движок сайта! Теперь все ссылки имеют читаемый понятный вид, разного рода глюки на страницах убраны. И теперь сайт полноценно работает на второй версии нашего движка. |
Движок сайта: DotFix Engine v0.2 Администрация сайта: |