SMTP требует пароль!!!

[qwertyhp]

При попытке пересылки письма через Mail.ru (SMTP.mail.ru) начали приходить сообщения об ошибке - Mail.ru требует пароль!!! Раньше не требовал. В POP3 отправка пароля прописана, а вот что делать в случае SMTP? Кто ЗНАЕТ - пожалуйста, помогите кодом с комментариями! Спасибо!

[Хакер]

Раньше не требовал.

Во времена СССР.

а вот что делать в случае SMTP?

Есть два выхода: можно авторизироваться, можно обламываться. Выбирай.

[qwertyhp]

Да нет, всего лишь год назад. А письма надо слать из написанного(и ранее работавшего!) VB-проекта. А можно кусочек рабочего кодика? А то я уже измучился!

[Хакер]

Нельзя. Думать надо своей головой.

[awl100Alex]

qwertyhp
Ты читал вот это? - http://www.mail.ru/pages/help/261.html
По всей видимости все это в целях борьбы со спамом.

А решение такое (проще всего через модель CDO)...

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

Private Sub Form_Load()
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration") 'Конфигурация CDO...
   With cdoConfig.Fields 'Вносим изменения в поля...
     .Item(sch & "sendusing") = 2 'Устанавливаем протокол SMTP
     .Item(sch & "smtpserver") = "SMTP.mail.ru" 'имя SMTP-Сервера или IP адрес
     'Согласно новым правилам указываем, что сервер SMTP требует авторизации...
     .Item(sch & "smtpauthenticate") = 1
     'Авторизируемся...
     .Item(sch & "sendusername") = "ТвойЛогин" 'Логин
     .Item(sch & "sendpassword") = "ПарольЯщика" 'Пароль
     .Update 'Сохраняем измененную конфигурацию
   End With

   Set cdoMessage = CreateObject("CDO.Message") 'Модель CDO...
   With cdoMessage
      Set .Configuration = cdoConfig
      .From = "alex@mail.ru"    'От кого... здесь указываем свой ящик в качестве отправителя!!!
      .To = "alex@mail.ru" 'Кому
      .BodyPart.Charset = "windows-1251" 'Устанавливаем кириллицу для текста сообщения
      .Subject = "Отправка почты" 'Тема сообщения
      .TextBody = "Сообщение по SMTP из объектной модели CDO.Message" 'Сообщение
      '.AddAttachment "D:\1.txt" 'Добавляем вложение
      .Send 'Отправка
   End With
 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
End Sub

Но так же можно поробовать просто изменить SMTP-Сервер на какой-нибудь другой не такой требовательный...
http://www.vanta.ru/hosting/smtp.php

[awl100Alex]

Кстати, ты еще можешь активировать на своем компе IIS службу SMTP и указать ее в качестве сервера.

[qwertyhp]

To awl100Alex. СПАСИБО огромное, код работает, всё шлёт, с аттачем, - УРА!!! Но теперь другой вопрос - я написал и POP3-программу, и появились вопросы: 1. Как получать с сервера только ЗАГОЛОВКИ писем, и уже потом выборочно их закачивать (пока прога старается слить всё содержимое п/я) ; 2. Как декодировать вложения (например, *.xls), которые пересылаются в кодировке BASE 64? В Сети ничего рабочего просто не нашёл. Спасибо!

[alibek]

В Сети ничего рабочего просто не нашёл. Спасибо!

Врешь.
А врунов тут не любят.

[qwertyhp]

To alibek: хамов тоже

[awl100Alex]

...я написал и POP3-программу, и появились вопросы...

Давай посмотрим правде в глаза: никакую POP3-программу ты не писал, иначе бы и вопросов не было. Правильно?!..
Вобщем, тут тебе придется поработать уже самому.
Вот тебе проект... который я где-то скачал в нете (не помню где, да это и не важно), который использует POP3 через Winsock, поскольку CDO в этих целях уже не годится.

Для начала правильно заполни поля POP_SERVER и запусти проект. Если ошибок нет, то winsock сразу же получит ответ в ws_DataArrival от сервера, и через нее же начнет нудно общаться с сервером по поводу получения списка почтовых файлов, их размер, количество, номера по порядку и т.д. Потом дело дойдет к получению содержимого почты по номеру в листинге и один за другим будет их читать. Так вот, я поставил msgbox в процедуре Just_Write_To_File и таким образом получил возможность перехватывать, и читать содержимое... до того, как оно попадет в процедуру сохранения на диске Close_And_Save_File. Вот здесь ты получишь выбор что сохранить, а что пропустить мимо.
В поле From: указывается отправитель письма, а в поле Subject: - тема... правда можно заметить, что она кодируется, как и текст письма, и в начале между двумя знаками вопроса указывается кодировка. Короче говоря, нужно парсить тебе эти данные и декодировать Subject, чтобы получить те самые заголовки.

Как декодировать вложения (например, *.xls), которые пересылаются в кодировке BASE 64?

Мне кажется, так же как и с текстом... только Base64Table другая, более расширенная. Хотя могу ошибаться.
Почитай здесь, может прояснится...
http://base.vingrad.ru/view/1969-Realizatsiya-algoritma-BASE64-na-VB