Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: VB 6.0 smtp + win API. Раньше работало, сейчас нет Добавлено: 22.12.09 21:32  

Автор вопроса:  psinetron | ICQ: 218945948 
Здравствуйте проблема встала намертво - уже пол дня не могу решить.
Итак - имеется код:
oCDOMsg.From = "psinetron@mail.ru"
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
В общем проблема в том что на Mail@mail.ru письмо не приходит.

Ты ведь на psinetron@mail.ru отправляешь. :-)

Ответить

Номер ответа: 2
Автор ответа:
 Саня



ICQ: 553816426 

Вопросов: 10
Ответов: 99
 Профиль | | #2 Добавлено: 22.12.09 23:48
Попробуй так
  1. Const cdoSendUsingPort = 2
  2. Const cdoBasic = 1
  3.  
  4. Public Sub SendMessage()
  5.     Dim cdoMsg As CDO.Message
  6.     Dim cdoConf As CDO.Configuration
  7.     Set cdoConf = CreateObject("CDO.Configuration")
  8.     Set cdoFields = cdoConf.Fields
  9.     With cdoFields
  10.         .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
  11.         .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.list.ru"
  12.         .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  13.         .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
  14.         '.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Если сервер требует аторизации.
  15.         .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
  16.         .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "pedchenko"
  17.         .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Правельный пароль"
  18.         .Update
  19.     End With
  20.     Set cdoMsg = CreateObject("CDO.Message")
  21.     With cdoMsg
  22.         Set .Configuration = cdoConf
  23.         cdoMsg.From = "Pedchenko@list.ru"
  24.         cdoMsg.To = "pedchenko@list.ru"
  25.         cdoMsg.Subject = "Test"
  26.         cdoMsg.TextBody = "Test Message."
  27.         cdoMsg.Send
  28.     End With
  29.     MsgBox "Письмо отправлено!"
  30.     Set cdoMsg = Nothing
  31.     Set cdoConf = Nothing
  32.     Set cdoFields = Nothing
  33. End Sub
  34.  
  35. Private Sub Command1_Click()
  36. SendMessage
  37. End Sub

и обязательно ссылку на 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
Ты ведь на psinetron@mail.ru отправляешь. :-)

все верно. небольшая ошибка вышла.
А в ХР тоже работало. я и говорю, что раньше работало а сейчас. нет. может в висте чего-то не так.
Спасибо, твой код работает! странно...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам