Всем привет!
И так к сути дела, вот код формы, с помощью которой можно отправлять сообщения по e-mail, используя schemas.microsoft.com
При нажатии на кнопке происходит отправка сообщения ".TextBody" пользователю ".To", с указанием поля от кого ".From", темой ".Subject" и прикреплённым файлов ".AddAttachment". Остальные параметры думаю понятны.
Можно сделать и через сокеты, но этот способ мне кажется намного проще.
Проблема собственно заключается в том, что мне надо получить с ящика письма, обработать их, и сделать соответствующие действия. И как раз как выполнить первый шаг я не знаю как. Могу только предполагать.
Собственно мне нужен свой почтовый клиент, только с более конкретными функциями. Подскажите плз, уважаемые форумчане, как мне получить письма со всеми параметрами в прогу, чтобы потом можно было, используя их свойства и методы, выполнить нужные злодеяния. Ссылка на готовый исходник тоже приветствуется
За ранее всем спасибо.
И так к сути дела, вот код формы, с помощью которой можно отправлять сообщения по 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". Остальные параметры думаю понятны.
Можно сделать и через сокеты, но этот способ мне кажется намного проще.
Проблема собственно заключается в том, что мне надо получить с ящика письма, обработать их, и сделать соответствующие действия. И как раз как выполнить первый шаг я не знаю как. Могу только предполагать.
Собственно мне нужен свой почтовый клиент, только с более конкретными функциями. Подскажите плз, уважаемые форумчане, как мне получить письма со всеми параметрами в прогу, чтобы потом можно было, используя их свойства и методы, выполнить нужные злодеяния. Ссылка на готовый исходник тоже приветствуется
За ранее всем спасибо.