HYPERLINK - просмотр ссылки без образования объекта

Форум » GUI » HYPERLINK - просмотр ссылки без образования объекта » Ответить

HYPERLINK - просмотр ссылки без образования объекта

Softlog86: Добрый день ! Есть задача - запускать прсмотр странички в Интернете но без образования HYPERLINK-объекта . Тoесть по клику в таблице (BROWSE) вызывается просмотр определенной станички ( поле в BROWSЕ - объекте ) - загрузка браузера и открытие ссылки ... Подскажите реализацию БЕЗ RUN ("MSEXPLORER.EXE") и т д .

Ответов - 10

Haz: на выбор: 1) ShellExecute( 0, "open", xRef, "", , 1 ), где xref - ссылка 2)ActiveX - пример в MiniGUI\SAMPLES\Advanced\ActiveX\

Alex_Cher: Уважаемый Григорий ( 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 чтобы в создаваемое письмо можно было вложить файл ( в примерах ничего не нашел )...?

Andrey: Посмотри \MiniGUI\SAMPLES\Applications\MultipleMail

Alex_Cher: Andrey пишет: Посмотри \MiniGUI\SAMPLES\Applications\MultipleMail Андрей, данный пример не в тему, там нет функции HYPERLINK. Да и программа в этом примере не работает, отправить почту на mail.ru, Gmail.com, yandex.ru .... так и не удалось .....

Dima: Alex_Cher пишет: mail.ru, Gmail.com, yandex.ru .... так и не удалось ..... Там SSL нужен

Andrey: 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()

Alex_Cher: Andrey пишет: Нужны 3 dll-ки: libeay32.dll Андрей, спасибо за помощь ... но этот вариант не в тему. Суть проблемы - пользователь должен оперативно создать файл-отчет по теме и сразу отправить по e-mail руководителю, при этом в папке "Оправленные" Microsoft Office Outlook должено быть сохранено данное письмо как доказательство в срок выполненной работы. Как я понимаю hb_SendMail() копии отправленных писем не создает. Так что просьба к Григорий ( gfilatov ) остается - что нужно добавить в строку ADDRESS функции HYPERLINK чтобы в создаваемое письмо можно было вложить файл. Я понимаю что это можно сделать и ручками, но уж хочется как то облегчить жизнь свои юзерам. Если можно вложить адрес, заголовок, тело письма то я надеюсь можно и как то прикрепить к нему и файлик. Григорий помоги пожалуйста ..... С уважением Александр.

Andrey: Alex_Cher пишет: Как я понимаю hb_SendMail() копии отправленных писем не создает. При отправке письма - делай сразу отправку по двум дополнительным позициям: Копия и Скрытая. Будешь иметь копии отправленных писем у себя в ящиках. Если не устраивает написание своей проги для отправки писем, то поищи в инете варианты. Вот один из них - http://www.procomp-blog.ru/admin/otpravka-elektronnogo-pisma-iz-komandnoj-stroki-windows/

Andrey: Я ещё для терминалки делал отправку писем через почтовую программу установленную на компе. Вот код для отправки: [pre2]************************************************************* 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[/pre2] Поищи в инете, может туда и файл можно прикрепить...

Dima: Andrey пишет: Поищи в инете, может туда и файл можно прикрепить... http://forums.codeguru.com/showthread.php?299012-Using-mailto-Automatically

полная версия страницы