Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы при отправке писем через CDO.Message / 3 сообщений из 3, страница 1 из 1
29.09.2003, 14:23
    #32278334
Evgeniy Mikhailov
Evgeniy Mikhailov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблемы при отправке писем через CDO.Message
Мне нужно из программы отправить письмо. Для этого использую 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
| Ответить | Цитировать | Написать  
03.03.2004, 12:39
    #32429364
MVit
MVit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблемы при отправке писем через CDO.Message
Еще бы вываливвал ошибки...
Убери "On Error Resume Next", тогда повалятся, и будет ясно почему
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 14:36
    #32429579
Alex_2003
Alex_2003
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблемы при отправке писем через CDO.Message
Скорее всего дело в том, что Вы предварительно не установили конфигурацию. Необходимо сначала использовать класс 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы при отправке писем через CDO.Message / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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