ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы при отправке писем через CDO.Message
3 сообщений из 3, страница 1 из 1
Проблемы при отправке писем через CDO.Message
    #32278334
Evgeniy Mikhailov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evgeniy Mikhailov
Гость
Мне нужно из программы отправить письмо. Для этого использую CDO.Message :
Код модуля:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Sub SendMail()
  On Error Resume Next
  Dim out As Object
  Set out = CreateObject( "CDO.Message" )
  out.Textbody =  "Text of message" 
  out.From =  "From Server DataBase" 
  out.Subject =  "Копирование информации" 
  out.TextBodyPart.ContentMediaType = CdoTextPlain
  out.TextBodyPart.Charset =  "KOI8-R" 
  out.To =  "My_server@mtu-net.ru" 
  out.Send

End Sub

Код формы:
Код: plaintext
1.
2.
3.
4.
Private Sub Command1_Click()
  'Отправка по eMail протокола операций
  SendMail

End Sub


Пытаюсь запустить прогу на Win2K Server 3SP, она не работает. При этом никаких ошибок не выводится, просто не отправляется письмо... Хотя на моём рабочем компе программа работает нормально.

Подскажите, в чём может быть дело? Может на Win2K Server 3SP не стоят какие то библиотеки?
...
Рейтинг: 0 / 0
29.09.2003, 14:23:22
| Ответить | Цитировать | Написать  
Проблемы при отправке писем через CDO.Message
    #32429364
MVit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MVit
Гость
Еще бы вываливвал ошибки...
Убери "On Error Resume Next", тогда повалятся, и будет ясно почему
...
Рейтинг: 0 / 0
03.03.2004, 12:39:01
| Ответить | Цитировать | Написать  
Проблемы при отправке писем через CDO.Message
    #32429579
Alex_2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex_2003
Участник
Скорее всего дело в том, что Вы предварительно не установили конфигурацию. Необходимо сначала использовать класс CDO.Configuration, вот код из моего приложения:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Set objMessage = New CDO.Message
Set objConfig = New CDO.Configuration

With objConfig
    .Fields(cdoSendUsingMethod) = cdoSendUsingPort
    .Fields(cdoSMTPServer) = objMail.SMTPServer    ' IP-адрес почтового сервера'
    .Fields(cdoSMTPServerPort) = CInt(objMail.SMTPServerPort) ' SMTP порт (обычно 25)'
    .Fields(cdoSMTPConnectionTimeout) = CInt(objMail.SMTPServerTimeout)
    .Fields(cdoSMTPAccountName) = objMail.MailUserAccountName 'имя пользователя'
    .Fields(cdoSMTPAuthenticate) = cdoBasic
    .Fields(cdoSendUserName) = objMail.MailUserName 'имя при входе в почтовик'
    .Fields(cdoSendPassword) = objMail.MailUserPassword 'пароль'
    .Fields.Update
End With

With objMessage
    .To = SendTo
    .From = objMail.MailUserAddr
    .Subject =  "Тема письма" 
    .TextBody = TextBody
    ' если есть вложения, то прикрепляем'
    .AddAttachment FileSpec (путь к прикрепляемому файлу)
    Set .Configuration = objConfig
End With
objMessage.Send
...
Рейтинг: 0 / 0
03.03.2004, 14:36:03
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы при отправке писем через CDO.Message
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32429579&tid=2169991]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 173ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 240ms
total:  479ms
созд. / загр.: 479ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]