Отправка мыла

[Shiz]

Приятного вам времени суток!
Киньте функцию которая отсылает мыло что нибуть типа
function sendmail(smtpserver as string,login as string,password as string, mail as string, subj as string, mess as string)..............
Главное что бы работало на 100 %!
Можите послать (по ссылке) RTFMить!
Заранее благодарен!

[Ramzes]

Гайдар Магдануров

Отправка электронной почты

В последнее время мне часто задают вопрос - ну как же написать программу, отправляющую электронную почту? Ну вот тут я что-то набросал. Это не есть полностью работоспособный код, так кое-что для затравки. Хдесь я опишу основной принцип и последовательность команд.

Будем считать, что адрес отправителя хранится в переменной FromUser, адрес получателя в переменной ToUser, тема сообщения - Subject, сообщение - Message. Из переменной FromUser извлекаем переменную FromHost (InStr и Right - относительно @).

Событие начала сеанса.

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, помогу).

ща еще примеры поищу

[Ramzes]

Ну Все разбирайся!
Удачи тебе в нашем не легком деле

[Shiz]

Спасибо!!!!