Обработка почты в Vb6.0

  • Автор темы ArthurBagdasaryan
  • Дата начала
A

ArthurBagdasaryan

Гость
#1
Всем привет!

И так к сути дела, вот код формы, с помощью которой можно отправлять сообщения по e-mail, используя schemas.microsoft.com

Код:
Sub Command1_Click()
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
.To = Text1.Text 'адрес получателя
.From = Text2.Text 'адрес отправителя
.Subject = Text3.Text 'тема
.TextBody = Text4.Text 'текст сообщения
.AddAttachment "" 'приложить файл к письму
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2
.Item(v_Conf & "smtpserver") = "smtp.mail.ru"
.Item(v_Conf & "smtpauthenticate") = 1
.Item(v_Conf & "sendusername") = "bla-bla@mail.ru" 'e-mail
.Item(v_Conf & "sendpassword") = "24242" 'пароль
.Item(v_Conf & "smtpserverport") = 25
.Item(v_Conf & "smtpusessl") = False
.Item(v_Conf & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With
End Sub
При нажатии на кнопке происходит отправка сообщения ".TextBody" пользователю ".To", с указанием поля от кого ".From", темой ".Subject" и прикреплённым файлов ".AddAttachment". Остальные параметры думаю понятны.
Можно сделать и через сокеты, но этот способ мне кажется намного проще.

Проблема собственно заключается в том, что мне надо получить с ящика письма, обработать их, и сделать соответствующие действия. И как раз как выполнить первый шаг я не знаю как. Могу только предполагать.

Собственно мне нужен свой почтовый клиент, только с более конкретными функциями. Подскажите плз, уважаемые форумчане, как мне получить письма со всеми параметрами в прогу, чтобы потом можно было, используя их свойства и методы, выполнить нужные злодеяния. Ссылка на готовый исходник тоже приветствуется

За ранее всем спасибо.
 

Gamlet

Well-Known Member
08.01.2007
525
0
Зеленоград
#2
Если устроит, то есть консольные клиенты для почты. Конфиги записал в файл, вызвал, собрал почту из текстовиков. Я пробовал "popclient.exe"-самый адекватный.