Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подскажите где ошибка, Формирование теста письма 
:(
    Опции темы
mukhametov
Дата 21.4.2009, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 20.4.2009

Репутация: нет
Всего: нет
Подскажие пожайлуста где у меня ошибка?
Есть вот такой код, это я пытаюсь сформировать в почтовом сообщении текст самого письма.
Короче фигня получается, выдает ошибку.

Код

MSG.BodyPart.Charset = "windows-1251" 'кодировка
'формируем тело письма
'strBody = Text + vbCrLf & _
"Ваш заказ принят в работу." + vbCrLf & _
"Заказ: " + [Название заказа].Value + vbCrLf & _
"Заказчик: " + [Заказчик].Value + vbCrLf & _
"Благодарим Вас за размещение у нас заказа." & _
"С уважением комапния Препресс-бюро Мега-РИФ."


Это сообщение отредактировал(а) Akina - 21.4.2009, 09:46
PM MAIL   Вверх
Akina
Дата 21.4.2009, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Модератор: Используйте тег "Код" - и обязательно с правильным указанием типа кода.
Теперь видишь ошибку?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mukhametov
Дата 21.4.2009, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 20.4.2009

Репутация: нет
Всего: нет
Цитата(Akina @ 21.4.2009,  09:47)
Модератор: Используйте тег "Код" - и обязательно с правильным указанием типа кода.
Теперь видишь ошибку?

Извините не вижу.

Если вы про это, что что в начале строки стоит ' ? Так не в этом проблема.
'strBody = Text + vbCrLf & _
PM MAIL   Вверх
Akina
Дата 21.4.2009, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Цитата(mukhametov @  21.4.2009,  12:10 Найти цитируемый пост)
Если вы про это, что что в начале строки стоит ' ? Так не в этом проблема.

Ну здрасьте... закомментировать начало оператора и говорить что не в том дело...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mukhametov
Дата 21.4.2009, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 20.4.2009

Репутация: нет
Всего: нет
Вот так это выглядит в оригинале:

Код
Private Sub Form_AfterUpdate()

Dim MSG As Object
Dim Config As Object
Dim CFields As Object
Dim strBody As String
'Создаем объект  Message это наше письмо
Set MSG = CreateObject("CDO.Message")
'Создаем объект Configuration это настройки соеднения
Set Config = CreateObject("CDO.Configuration")
Set CFields = Config.Fields
Set MSG.Configuration = Config
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.megarif.ru" 'SMTP сервер
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ХХХХХХХ"
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update

Dim chlic As Integer
MSG.To = DLookup("[mail]", "Zakazchiky", "[Заказчик]='" & Me.Заказчик.Value & "'")
MSG.From = "[email protected]" 'от кого
MSG.Subject = "Отработка почтового сообщения" 'тема


MSG.BodyPart.Charset = "windows-1251" ' опять кодировка
'формируем тело письма
'strBody = Text + vbNewLine & _
'"Ваш заказ принят в работу." + vbNewLine & _
'"Заказчик: " + [Заказчик].Value + vbNewLine & _
'"Заказ: " + [Название файла].Value + vbNewLine & _
'[Дата].Value & _
'"Ура"

strBody = Text + vbCrLf & _
"Ваш заказ принят в работу." + vbCrLf & _
"Заказ: " + [Название заказа].Value + vbCrLf & _
"Заказчик: " + [Заказчик].Value + vbCrLf & _
"Благодарим Вас за размещение у нас заказа." & _
"С уважением комапния Препресс-бюро Мега-РИФ."


MSG.HTMLBody = strBody
MSG.Send 'отправляем

Set CFields = Nothing
Set Config = Nothing
Set MSG = Nothing

End Sub


Это сообщение отредактировал(а) Akina - 21.4.2009, 12:31
PM MAIL   Вверх
Akina
Дата 21.4.2009, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

M
Akina		Второй раз повторяю для неумеющих читать:

Используйте тег "Код" - и обязательно с правильным указанием типа кода.

Третий раз повторять не буду.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mukhametov
Дата 21.4.2009, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 20.4.2009

Репутация: нет
Всего: нет
Извините меня самоучку. Но я с трудом понимаю то, что вы вкладываете в это: 
Цитата(Akina @  21.4.2009,  12:23 Найти цитируемый пост)
Используйте тег "Код" - и обязательно с правильным указанием типа кода.


Я не программер, я только учусь. Прошу еще раз меня извинить.
PM MAIL   Вверх
Akina
Дата 21.4.2009, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Цитата(mukhametov @  21.4.2009,  13:29 Найти цитируемый пост)
я с трудом понимаю то, что вы вкладываете в это

Смотрим на картинку.

По сабжу:
1) Не указаны порт сервера и тайм-аут.
2) Текстовое содержимое положено класть в .TextBody
Остальное вроде всё нормально.



Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  1.JPG 25,76 Kb


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0480 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.