Автор | Сообщение |
|
| |
Пост N: 99
Зарегистрирован: 03.12.08
|
|
Отправлено: 30.09.13 16:55. Заголовок: HYPERLINK - просмотр ссылки без образования объекта
Добрый день ! Есть задача - запускать прсмотр странички в Интернете но без образования HYPERLINK-объекта . Тoесть по клику в таблице (BROWSE) вызывается просмотр определенной станички ( поле в BROWSЕ - объекте ) - загрузка браузера и открытие ссылки ... Подскажите реализацию БЕЗ RUN ("MSEXPLORER.EXE") и т д .
|
|
|
Ответов - 10
[только новые]
|
|
|
| |
Пост N: 101
Зарегистрирован: 20.02.11
|
|
Отправлено: 30.09.13 20:19. Заголовок: на выбор: 1) ShellEx..
на выбор: 1) ShellExecute( 0, "open", xRef, "", , 1 ), где xref - ссылка 2)ActiveX - пример в MiniGUI\SAMPLES\Advanced\ActiveX\
|
|
|
|
| |
Пост N: 67
Зарегистрирован: 18.06.15
|
|
Отправлено: 28.05.19 09:53. Заголовок: Уважаемый Григорий (..
Уважаемый Григорий ( gfilatov ) что нужно добавить в строку ADDRESS @ 115, 94 HYPERLINK Label_3 ; VALUE 'gfilatov@inbox.ru' ; ADDRESS "gfilatov@inbox.ru?cc=&bcc=" + ; "&subject=Free%20Memory%20Bug:" + ; "&body=***%20Free%20Memory%20BUGREPORT%20***%0A%0A" + ; "OPERATING%20SYSTEM%3A%0A%0AAMOUNT OF RAM (MB)%3A%0A%0A" + ; "SWAP-FILE SIZE (MB)%3A%0A%0APROBLEM DESCRIPTION%3A"; AUTOSIZE ; TRANSPARENT HANDCURSOR чтобы в создаваемое письмо можно было вложить файл ( в примерах ничего не нашел )...?
|
|
|
|
| постоянный участник
|
Пост N: 6295
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.05.19 12:21. Заголовок: Посмотри \MiniGU..
Посмотри \MiniGUI\SAMPLES\Applications\MultipleMail
|
|
|
|
| |
Пост N: 68
Зарегистрирован: 18.06.15
|
|
Отправлено: 28.05.19 14:37. Заголовок: Andrey пишет: Посмо..
Andrey пишет: цитата: | Посмотри \MiniGUI\SAMPLES\Applications\MultipleMail |
| Андрей, данный пример не в тему, там нет функции HYPERLINK. Да и программа в этом примере не работает, отправить почту на mail.ru, Gmail.com, yandex.ru .... так и не удалось .....
|
|
|
|
| |
Пост N: 7040
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.05.19 18:06. Заголовок: Alex_Cher пишет: m..
Alex_Cher пишет: цитата: | mail.ru, Gmail.com, yandex.ru .... так и не удалось ..... |
| Там SSL нужен
|
|
|
|
| постоянный участник
|
Пост N: 6296
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.05.19 19:47. Заголовок: Alex_Cher пишет: от..
Alex_Cher пишет: цитата: | отправить почту на mail.ru, Gmail.com, yandex.ru .... так и не удалось ..... |
| Там нужно подключение c SSL уже давно, лет 5 наверное. Нужны 3 dll-ки: libeay32.dll libssl32.dll ssleay32.dll и нужна установка пакета Microsoft Visual C++ 2008 Redistributable на компьютере для работы через эти dll-ки, кроме систем IsServ2008() .OR. IsWin8ORLater() Для отправки можно использовать стандартную харбор функцию hb_SendMail() - поищи здесь на форуме описание как использовать. И сделай настройки почты для тестирования и работы - примерно так: А доделывать HYPERLINK - это всё равно тупиковый вариант если нужно работать с почтой. Посмотри ещё пример - \MiniGUI\SAMPLES\Applications\SendMailReport Можешь туда прикрутить вместо STATIC PROCEDURE m_Send(gui) - hb_SendMail()
|
|
|
|
| |
Пост N: 69
Зарегистрирован: 18.06.15
|
|
Отправлено: 30.05.19 09:38. Заголовок: Andrey пишет: Нужны..
Andrey пишет: цитата: | Нужны 3 dll-ки: libeay32.dll |
| Андрей, спасибо за помощь ... но этот вариант не в тему. Суть проблемы - пользователь должен оперативно создать файл-отчет по теме и сразу отправить по e-mail руководителю, при этом в папке "Оправленные" Microsoft Office Outlook должено быть сохранено данное письмо как доказательство в срок выполненной работы. Как я понимаю hb_SendMail() копии отправленных писем не создает. Так что просьба к Григорий ( gfilatov ) остается - что нужно добавить в строку ADDRESS функции HYPERLINK чтобы в создаваемое письмо можно было вложить файл. Я понимаю что это можно сделать и ручками, но уж хочется как то облегчить жизнь свои юзерам. Если можно вложить адрес, заголовок, тело письма то я надеюсь можно и как то прикрепить к нему и файлик. Григорий помоги пожалуйста ..... С уважением Александр.
|
|
|
|
| постоянный участник
|
Пост N: 6297
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.05.19 11:47. Заголовок: Alex_Cher пишет: Ка..
|
|
|
|
| постоянный участник
|
Пост N: 6298
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.05.19 12:09. Заголовок: Я ещё для терминалки..
Я ещё для терминалки делал отправку писем через почтовую программу установленную на компе. Вот код для отправки: Скрытый текст
************************************************************* FUNCTION Send_MyMail() LOCAL cAdress := HB_OEMTOANSI("ХХХХ ХХХХХ ХХХХХ <ХХХХХ@mail.ru>") LOCAL cTitle := HB_OEMTOANSI("Регистрация%20программы%20ХХХХХХ%20!") LOCAL cText := HB_OEMTOANSI("Текст%20письма") LOCAL cScrWin, cStr := "", nI LOCAL cMyTextPismo := "Отправьте это письмо в Техподдержку программы ХХХХХХ !"+CLRF+CLRF cScrWin := SAVESCREEN( 10, 19 , 17, 64 ) MyWin(10, 20, 16, 60,.T., "ВНИМАНИЕ","12/1","12/1","15/1") @ 12,21 SAY PADC("Будет запущена ваша ПОЧТОВАЯ",59-20) COLOR("14/1") @ 13,21 SAY PADC("программа, если ваш компьютер",59-20) COLOR("14/1") @ 14,21 SAY PADC("подключен к ИНТЕРНЕТУ !",59-20) COLOR("14/1") cStr := cMyTextPismo MyRegProgrUpdate() // Обновить массив M->aProgrRegistrat // это тест письма FOR nI := 1 TO LEN(M->aProgrRegistrat) cStr := cStr + STR(M->aProgrRegistrat[nI,1],3)+") " cStr := cStr + M->aProgrRegistrat[nI,2] cStr := cStr + IIF(nI>4,": "," ")+ALLTRIM(M->aProgrRegistrat[nI,3])+CLRF NEXT cStr := ATREPL( CLRF,cStr, "%0d%0a" ) cStr := ATREPL( " " ,cStr, "%20" ) cText := HB_OEMTOANSI(cStr) ShellExecute( 0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cAdress + "?subject="+cTitle+"&body="+cText, , 1 ) INKEY(20) RESTSCREEN( 10, 19 , 17, 64, cScrWin ) RETURN Nil
| Поищи в инете, может туда и файл можно прикрепить...
|
|
|
|
| |
Пост N: 7041
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.05.19 13:01. Заголовок: Andrey пишет: Поищи..
|
|
|
|