ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / The Bat и Win2000
12 сообщений из 12, страница 1 из 1
The Bat и Win2000
    #32323224
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bdv9
Участник
VFP6SP5, Win2000
Подскажите как запустить из программы VFP на машине с Win2000 почту The Bat и отправить сообщение, используя компоненты MSMAPI.MAPISession, MSMAPI.MAPIMessage.
В Win98 все получилось, в Win2000 не хочет (просто отрабатывает код, но никакого результата).
Библиотеки зарегистрировал, файлы OCX и DLL есть (и в System и в System32).

Вот пример кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
loSession = CreateObject('MSMAPI.MAPISession')	&& Почтовая сессия  
  loMessages = CreateObject('MSMAPI.MAPIMessages')	&& Почтовое сообщение  
  With loSession  
  .UserName = cUserName  
  .Password = ''  
  .DownloadMail = .F.  
  .SignOn()  
  EndWith  
    
  With loMessages  
  .SessionID = loSession.SessionID  
  .Compose()  
  .AddressResolveUI = .F.  
  .RecipAddress = cEmail  
  .MsgNoteText = cNoteText  
  .MsgSubject = cSubject  
  If Not Empty(cAttach) And File(cAttach)  
  .AttachmentPathName = cAttach  
  EndIf  
  .Send(lSend)  
  EndWith  
    
  loSession.SignOff()

Вообще есть у кого нибудь пример работы с The Bat в VFP6+Windows2000 именно с помощью указанных ActiveX.
...
Рейтинг: 0 / 0
13.11.2003, 15:44
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32323249
Alex info@orient-time.ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex info@orient-time.ru
Гость
ИМХО, бат имеет свой оле/сом и тд.

Те активексы, на которые ты ссылаешся,
работают с Оутлуком
...
Рейтинг: 0 / 0
13.11.2003, 15:57
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32323260
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bdv9
Участник
Ой-ли.
В связке VFP6+Windows98 все прекрасно работает и с The Bat.
...
Рейтинг: 0 / 0
13.11.2003, 16:01
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32323334
andrush
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andrush
Гость
Мне кажется в Бате нужно включить что от обрабатывает мапи-вызовы(или что-то в этом вроде).
Извини что не очень точно, т.к. я видел подобный текст дня 2 назад (а в каком месте не помню -(:)
...
Рейтинг: 0 / 0
13.11.2003, 16:28
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32323353
SSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SSV
Гость
Да, насколько я знаю, использование MSMapi не зависит от собственно почтового клиента.
Если стоят 2 или более почтовых клиента, то MSMapi использует почтовый клиент по умолчанию. Может в этом проблема?
...
Рейтинг: 0 / 0
13.11.2003, 16:34
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32323363
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bdv9
Участник
2 andrush
Не вспомнишь поподробней, где видел или что править. Очень надо.

Может я неправильно зарегестрил компоненты в 2000 Windows?
Подскажите как это сделать.
...
Рейтинг: 0 / 0
13.11.2003, 16:38
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32323764
andrush
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andrush
Гость
Сраазу попытался и не нашел. Но помню что в хелпе. Просто я переходил с 2.0.18 на 2.01.03 и 2.01.07(на коем и остановился) и читал хелпы. По дороге потерялись. Но могу послать :) по адресу:
1)http://www.nobat.ru -неофициальный сайт по бату, рассматривают там разные вопросы и есть форум. Мжешь там уточнить и, думаю, ответят более правильно.
2)http://www.silverstones.com/thebat/TBFAQ.html - думаю понятно.
Еще раз извини, что не нашел.
...
Рейтинг: 0 / 0
13.11.2003, 23:24
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32323931
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bdv9
Участник
Вопрос снят.
Дело было не в ОС, а в самом Bat'е (глюкавая версия).
Спасибо всем за помощь.
...
Рейтинг: 0 / 0
14.11.2003, 09:19
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32337143
lnu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lnu
Участник
А можно ли с помощью MAPI принимать почту?

Мне нужно принять сообщение и вложеный файл скопировать, например, в c:\Mail\

Предположим начало такое:

With loSession
.UserName = cUserName
.Password = ''
.DownloadMail = .T.
.SignOn()
EndWith

Что дальше?
...
Рейтинг: 0 / 0
27.11.2003, 18:38
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32337993
SSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SSV
Гость
oSession = CreateObject('MSMAPI.MAPISession')
oMessage = CreateObject('MSMAPI.MAPIMessages')
oSession.downloadMail = .T. && АВТОМАТИЧЕСКИ ЗАГРУЖАТЬ НОВУЮ ПОЧТУ
oSession.LogonUI = .f. && не отображать регистрацию к почтовому ящику
oSession.UserName = cUserName
oSession.Password = ''
oSession.SignOn()


oMessages.SessionID =oSession.SessionID

oMessage.fetchUnreadOnly=.T. && только непрочитанные сообщения
oMessage.fetch()
*
mCount = oMessage.msgcount - 1
*
for i=0 to mCount && проход по списку полученных сообщений
oMessage.msgIndex = i && № сообщения
This.meAddress = LOWER(ALLTRIM(oMessage.msgOrigAddress)) && адрес отправителя
This.mSubject = LOWER(ALLTRIM(oMessage.msgSubject))
mNoteText = oMessage.msgNoteText
for j=1 to kolAttach && проход по вложенным файлам
oMessage.attachmentIndex=j-1
attachFile = ALLTRIM(oMessage.attachmentPathName)
if file(attachFile)
copy file (attachFile) to (whereFile)
endif
endfor
endfor

Вот, примерно так.
...
Рейтинг: 0 / 0
28.11.2003, 16:07
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32346214
malec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
malec
Гость
Это намного проще вариант

reg = CreateObject("wscript.shell")



BatPatch = reg.RegRead("HKCU\Software\Rit\The Bat!\EXE path")+" "
sCMD=BatPatch+'/MAILU="Название почтового ящика в Bat";TO="Адрес получателя";'
sCMD=sCMD+'S="ТЕМА ПИСЬМА";'
sCMD=sCMD+'A="'+fPath+'"'

* fPath - Это файл который нужно прикрепить к письму
reg.Exec(sCMD)


У меня так работает уже давно. Единственный недостаток - отправлять надо самому. Может и есть какаято команда для немедленнной отправки, но я не разбирался так как когда писалось времени не хватало. У меня на работе всегда всё нужно написать на вчера.


ВСЁ!! Пользуйтесь.
...
Рейтинг: 0 / 0
08.12.2003, 11:57
| Ответить | Цитировать | Написать  
The Bat и Win2000
    #32348325
lnu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lnu
Участник
А так ещё проще

DECLARE Integer ShellExecute IN shell32 integer hwnd, ;
string lpOperation,;
string lpFile,;
string lpParameters, ;
string lpDirectory,;
integer nShowCmd
SW_SHOWNORMAL=1
ShellExecute(thisform.hwnd, Null, "mailto:mtscf@microsoft.com?subject=Tema&body=Your Message", null, "C:\", SW_SHOWNORMAL)
...
Рейтинг: 0 / 0
09.12.2003, 18:15
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / The Bat и Win2000
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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