ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отправка почты в фоновом режиме
9 сообщений из 9, страница 1 из 1
Отправка почты в фоновом режиме
    #32452121
vl2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vl2000
Участник
Нужно из фокса отправлять почту по определенному расписанию.
Все сделал через MSMAPI.MAPISession и MSMAPI.MAPIMessages.
Только перед отправкой возникает окно:
OutlookExpress...
Send.... Not Send
как сделать, что бы этого окна не было. А то нажимать может будет некому, а почту надо отпраить.
...
Рейтинг: 0 / 0
22.03.2004, 23:08
| Ответить | Цитировать | Написать  
Отправка почты в фоновом режиме
    #32452130
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
* -- Outlook 2000
 
#DEFINE MAILITEM  0 
#DEFINE IMPORTANCELOW  0 
#DEFINE IMPORTANCENORMAL  1 
#DEFINE IMPORTANCEHIGH  2 

oOutLookObject = CreateObject( "Outlook.Application" )
oEmailItem = oOutLookObject.CreateItem(MAILITEM)
WITH oEmailItem
.To =  "friend@yahoo.com" 
.Subject =  "All I want is my money" 
.Importance = IMPORTANCEHIGH
.Body =  "I'm Still Waiting!"+chr(13)+'So are others. Help them have a happy holidays'
.Send
ENDWITH


&& .Attachments.Add(" c:\mydir\sample.txt") &&Note that the fully qualified path and file is required.

Release oEmailItem
Release oOutLookObject


А если так не работает (в офисе 2003) - надо в установках безопасности разрешить запускать процесс внешним программам, или что-то в этом роде...
...
Рейтинг: 0 / 0
22.03.2004, 23:26
| Ответить | Цитировать | Написать  
Отправка почты в фоновом режиме
    #32452155
vl2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vl2000
Участник
А вот в этом коде никто не поможет:

oSess =CREATEObject("MSMAPI.MAPISession")
if vartype(oSess) = "O"
oSess.DownloadMail = .f.
oSess.LogonUI = .f.
oSess.SignOn()
lnSessionID = oSess.SessionID
if lnSessionID > 0
oMsg = Createobject("MSMAPI.MAPIMessages")
if vartype(oMsg) = "O"
oMsg.SessionID = lnSessionID
oMsg.Compose()
oMsg.AddressResolveUI = .T.
oMsg.MsgSubject = "нет сабжика"
oMsg.RecipAddress = "vl2000@rambler.ru"
oMsg.RecipDisplayName = "vl2000"
If Not Empty(cAttach) And File(cAttach)
oMsg.AttachmentPathName = cAttach
EndIf
oMsg.Send(1)
Wait window nowait "Message sent..."
endif && vartype(oMsg) = "O"
oSess.SignOff()
endif && lnSessionID > 0
endif && vartype(oSess) = "O"

В МСДН написано, что при .Send(1) окно исчезает, и оно йствительно исчезло, но теперь появляется окно самого письма и на котором опять кнопка Send.
А времени уже почти не осталось. И предыдущий вариант проверить не могу, нет Оутлука.
...
Рейтинг: 0 / 0
23.03.2004, 00:24
| Ответить | Цитировать | Написать  
Отправка почты в фоновом режиме
    #32452219
vl2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vl2000
Участник
>Sergey Ch
К сожалению есть только Аутлук из ОфисаХР. Там то же выкидывает окошко: Мол, какие то гады хотят отправить сообщение...
Выставил низкий уровень безопасности- не помогает.
А где искать "разрешение запускать процесс внешним программам"?
...
Рейтинг: 0 / 0
23.03.2004, 06:43
| Ответить | Цитировать | Написать  
Отправка почты в фоновом режиме
    #32452619
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
Давно это было - Office 2003 выдавал сообщение, что кто-то пытается воспользоваться почтой - и было меню в диалоге - я выбрал разрешать это делать программе и впредь без моего уведомления, после этого все стало нормально...

К сожалению, дома только office 2000 - прийду в office и если не замотают с утра, попробую промодеоировать ситуацию...
...
Рейтинг: 0 / 0
23.03.2004, 11:05
| Ответить | Цитировать | Написать  
Отправка почты в фоновом режиме
    #32452701
vl2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vl2000
Участник
Всё сделано через winsock (огромное спасибо Crip_у (см. ФоксКлуб, решения).
Шлется напрямую на SMTP сервер.
...
Рейтинг: 0 / 0
23.03.2004, 11:34
| Ответить | Цитировать | Написать  
Отправка почты в фоновом режиме
    #32452975
SSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SSV
Гость
Я сделал по тупому, в данном случае:
Код: plaintext
1.
2.
3.
4.
5.
if oMessage.MsgSent = .F.
  =INKEY( 1 ,'H')
  KEYBOARD '{ENTER}' clear
  oMessage.Send(.F.)
endif

Так как активной является кнопка "отправить".
...
Рейтинг: 0 / 0
23.03.2004, 13:21
| Ответить | Цитировать | Написать  
Отправка почты в фоновом режиме
    #32453101
vl2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vl2000
Участник
Тоже вариант, но напрямую на SMTP сервер- это круче :)
...
Рейтинг: 0 / 0
23.03.2004, 14:18
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Отправка почты в фоновом режиме
    #37737586
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AngelOKES
Участник
Sergey Ch
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
*-- Outlook 2000

#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2

oOutLookObject = CreateObject("Outlook.Application")
oEmailItem = oOutLookObject.CreateItem(MAILITEM)
WITH oEmailItem
.To = "friend@yahoo.com"
.Subject = "All I want is my money"
.Importance = IMPORTANCEHIGH
.Body = "I'm Still Waiting!"+chr(13)+'So are others. Help them have a happy holidays'
.Send
ENDWITH


&& .Attachments.Add("c:\mydir\sample.txt") &&Note that the fully qualified path and file is required.

Release oEmailItem
Release oOutLookObject



А если так не работает (в офисе 2003) - надо в установках безопасности разрешить запускать процесс внешним программам, или что-то в этом роде...

Сергей ваш пример просто гениальный!!! Большое Вам спасибо!!!
...
Рейтинг: 0 / 0
04.04.2012, 07:48
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отправка почты в фоновом режиме
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=32452219&tid=1583750]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 280ms
total:  422ms
созд. / загр.: 422ms
x
x
Закрыть


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