SMTP и MIME

[Grey_Brother]

Я конечно прочитал про 120 постингов, но куда тогда мне это писать?

RFC-822 требует после HELO посылать MAIL FROM и RCPT TO,
и если RCPT не местный, отказывается принимать почту(на мейл.ру тестил).
Вопрос такой:
1. Как отправить почту чужому RCPT
2. Можно ли послать MIME после MAIL FROM, или после HELO

Или у меня просто руки кривые?

[Ramauf]

А как ты вообще посылаешь?
Допустим такой текст

From asdfas
To lkfje
Subject sdflasdj
MIME-Version 1.0
и так далее.

Как через VB отослать почту, пусть даже приведенный выше текст.
Просто я не знаю как работать с MIME в VB. И вообще. Через стандартную EXE программу что-ли, или через браузер?
Расскажи алгоритм, моет пример какой-нибудь. Спасибо заранее!

[Sebas]

1. Зависит есть у тебя правла на релей или нет
2. Насколько я понимаю, в DATA

[Ramauf]

Подкиньте пожалуйста элементарный пример.

[Alexanbar]

Примеры на vbip.com в самых различных вариациях.
Используется контрол Winsock.

Я делаю так:
Вначале подключаемся к серверу

Код: Выделить всё

Winsock1.Connect SMTPserver, SMTPport
'ждём ответ
Winsock1.SendData "EHLO " & "sasha" & vbCrLf
'ждём ответ
'если требуется авторизация, посылаем User и Password в Base64:
Winsock1.SendData "AUTH LOGIN" & vbCrLf ' это самое простое
'ждём ответ
Winsock1.SendData AsciiToBase64(User) & vbCrLf
'ждём ответ
Winsock1.SendData AsciiToBase64(Password)  & vbCrLf
'ждём ответ


Собственно отсылка идёт примерно так:

Код: Выделить всё

Winsock1.SendData "MAIL FROM:" & "xxx@mail.ru" & vbCrLf
'после того, как сервер это принял (можно посылать несколько таких строк с разными отправителями):
Winsock1.SendData "RCPT TO:" & "yyy@mail.ru" & vbCrLf
(После посылки каждой строки ждём ответ от сервера)
Winsock1.SendData "DATA" & vbCrLf
' далее отсылаем само письмо, включая служебные поля.
......
Winsock1.SendData "." & vbCrLf


[Ramauf]

А прикрепленные файлы возможно таким образом отсылать?

[Alexanbar]

Можно, только для этого нужно создать определённую структуру письма.

Во-первых, указать в поле Content-Type значение multipart/mixed.
Далее, указать границу для отдельных частей письма:

Content-Type: multipart/mixed; boundary="-----NextPart--qazWsxeDcrfV--"

Далее, прикреплённый файл закодировать по алгоритму Base-64.