Страница: 1 |
Страница: 1 |
Вопрос: VB 6.0 smtp + win API. Раньше работало, сейчас нет
Добавлено: 22.12.09 21:32
Автор вопроса: psinetron | ICQ: 218945948
Здравствуйте проблема встала намертво - уже пол дня не могу решить.
Итак - имеется код:
oCDOMsg.To = "psinetron@mail.ru"
oCDOMsg.Subject = "тема"
oCDOMsg.Textbody = "текст"
oCDOMsg.Configuration.Fields.Item(cdoSendUsingMethod) = 2
oCDOMsg.Configuration.Fields.Item(cdoSMTPConnectionTimeout) = 10
oCDOMsg.Configuration.Fields.Item(cdoSMTPAuthenticate) = 1
oCDOMsg.Configuration.Fields.Item(cdoSendPassword) = верный пароль
oCDOMsg.Configuration.Fields.Item(cdoSendUserName) = "psinetron@mail.ru"
oCDOMsg.Configuration.Fields.Item(cdoSMTPServer) = "smtp.mail.ru"
oCDOMsg.Configuration.Fields.Item(cdoSMTPServerPort) = 25
oCDOMsg.Configuration.Fields.Update
oCDOMsg.send
В общем проблема в том что на Mail@mail.ru письмо не приходит. У меня стоит виста. Раньше этот метод работал на ура. Или лыжи не едут или я идиот. в общем нужна помощь - как в VB 6.0 отправить почту не прибегая ко всяким контролам. Помогите, ато уже пробивает пот и выступают слезы
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
Саня
ICQ: 553816426
Вопросов: 10
Ответов: 99
Профиль | | #1
Добавлено: 22.12.09 23:44
Ты ведь на psinetron@mail.ru отправляешь.
Номер ответа: 2
Автор ответа:
Саня
ICQ: 553816426
Вопросов: 10
Ответов: 99
Профиль | | #2
Добавлено: 22.12.09 23:48
Попробуй так
и обязательно ссылку на Microsoft CDO Win... 2000..
Номер ответа: 3
Автор ответа:
Саня
ICQ: 553816426
Вопросов: 10
Ответов: 99
Профиль | | #3
Добавлено: 22.12.09 23:49
В XP работает отлично
Номер ответа: 4
Автор ответа:
psinetron
ICQ: 218945948
Вопросов: 34
Ответов: 28
Профиль | | #4
Добавлено: 23.12.09 07:34
все верно. небольшая ошибка вышла.
А в ХР тоже работало. я и говорю, что раньше работало а сейчас. нет. может в висте чего-то не так.
Спасибо, твой код работает! странно...