| Автор | Сообщение |
|
|
| |
Пост 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 пишет: Поищи..
|
|
|
|
- участник сейчас на форуме
- участник вне форума