Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Мыло Добавлено: 13.02.10 09:39  

Автор вопроса:  ηikolaŠ~rus | ICQ: 604058327 
Здравице!
у меня программа тестер.,мне надо чтобы по окончании значение переменной(ответа теста)пересылалось мне по мылу????

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Alex



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

Ответить

Номер ответа: 2
Автор ответа:
 Alex



Вопросов: 7
Ответов: 73
  Профиль | | #2 Добавлено: 16.02.10 18:11
Что бы было более-менее гладко, можеШ добавить параметры к этой процедуре, типа от кого, кому, смтп сервер и т.д.

Ответить

Номер ответа: 3
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #3 Добавлено: 16.02.10 20:00
Алекс а можно по подробней чтоб например мне на мыло приходило письмо привет!

Ответить

Страница: 1 |

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



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