Поиск:

Ответ в темуСоздание новой темы Создание опроса
> и снова всеми любимая почта... для ХР и для Висты. 
:(
    Опции темы
oigolikova
Дата 25.11.2008, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Написала следующий код:

objEmail = CreateObject("CDO.Message")
objEmail.From = ALLTRIM(s_e_mail) && отправитель
objEmail.To = ALLTRIM(p_e_mail) && получатель
objEmail.Subject = "Пробник. Все ли устраивает?"
objEmail.Textbody = "С уважением О.И. Панченко"
objEmail.AddAttachment("C:\29_10.xls")&& вложение
WITH objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.work" && smtp server
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 && порт
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 3 && таймаут
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 && использовать авторизацию
.Update
ENDWITH
objEmail.Send

RELEASE objEmail

Все прекрасно работало на локальном компе. Положила этот вариант на сервер, где не установлен Майкрасофт Оутлук. Получила ошибку. На сервер ставить оутлук не будут. Пришлось все переделывать и переписывать. На форму добавила объекты MapiMessages, MapiControl и написала код:

thisform.olecontrol1.signon
thisform.olecontrol2.sessionID =thisform.olecontrol1.sessionID
thisform.olecontrol2.compose
thisform.olecontrol2.msgsubject = "Пробник. Все ли устраивает?"
thisform.olecontrol2.msgnoteText = "С уважением О.И. Панченко"
thisform.olecontrol2.recipDisplayName = ALLTRIM(p_e_mail) && получатель
thisform.olecontrol2.recipAddress = ALLTRIM(s_e_mail) && отправитель
thisform.olecontrol2.resolveName
thisform.olecontrol2.AttachmentIndex = 0
thisform.olecontrol2.attachmentPosition = 0
thisform.olecontrol2.AttachmentPathname = "C:\29_10.xls" && вложение
thisform.olecontrol2.AttachmentIndex = 1
thisform.olecontrol2.attachmentPosition = 1
thisform.olecontrol2.AttachmentPathname = "C:\30_10.xls" && вложение
thisform.olecontrol2.send
thisform.olecontrol1.signOff

все работает, только задает вопросы, которые решили не отключать. На сервере тоже работает. Пришлось только для пользователей, у которых не стоит фокс, положить файлы: mapi32.dll, msmapi32.ocx.Но тут нашелся пользователь, у которого стоит Виста, а у всех и у меня ХР.
В итоге: у пользователя с Вистой не отправляется файл. У пользователя нет файла msmapi32.ocx. Его добавление - ничего не меняет.
Подскажите, что делать?
PM MAIL   Вверх
Bishop
Дата 26.11.2008, 13:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 3.6.2005
Где: Минск, Беларусь

Репутация: нет
Всего: 16



Выполнить команду (в консоли или в диалоге «Выполнить»):
Код

regsvr32 msmapi32.ocx

Если msmapi32.ocx лежит не в Windows\System32, то указать полный путь.
PM WWW ICQ   Вверх
Bishop
Дата 26.11.2008, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 3.6.2005
Где: Минск, Беларусь

Репутация: нет
Всего: 16



oigolikova, 
Цитата

Положила этот вариант на сервер, где не установлен Майкрасофт Оутлук. Получила ошибку.

Что за ошибка? Вообще, раз работает второй код, то должен работать и первый.
PM WWW ICQ   Вверх
Cashey
Дата 2.12.2008, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


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

Репутация: 13
Всего: 60



про EasyMail что-нибудь слышали? специальная библа для работы с почтой. очень ладно работает из фокса


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

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

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!



Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »


 




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


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

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