![]() |
|
|
![]()
|
|
| oigolikova |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 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. Его добавление - ничего не меняет. Подскажите, что делать? |
|||
|
||||
| Bishop |
|
|||
|
Бывалый ![]() Профиль Группа: Участник Сообщений: 188 Регистрация: 3.6.2005 Где: Минск, Беларусь Репутация: нет Всего: 16 |
Выполнить команду (в консоли или в диалоге «Выполнить»):
Если msmapi32.ocx лежит не в Windows\System32, то указать полный путь. |
|||
|
||||
| Bishop |
|
|||
|
Бывалый ![]() Профиль Группа: Участник Сообщений: 188 Регистрация: 3.6.2005 Где: Минск, Беларусь Репутация: нет Всего: 16 |
oigolikova,
Что за ошибка? Вообще, раз работает второй код, то должен работать и первый. |
|||
|
||||
| Cashey |
|
|||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 13 Всего: 60 |
про EasyMail что-нибудь слышали? специальная библа для работы с почтой. очень ладно работает из фокса
-------------------- библия учит любить ближнего, а камасутра обучает как именно |
|||
|
||||
![]()
|
| Правила форума "Foxpro/Clipper/Dbase" | |
|
|
Запрещается! 1. Публиковать ссылки для чисто рекламных целей. 2. Оффтопить, флеймить, говорить не культурно. Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему. Задавайте вопросы правильно - как спросите, так вам и ответят. Разрешено! Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил. Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы. P.S. Размещение рекламы будет строго наказываться! Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |