Что нового

Сообщение в MsgBox. Можно ли сделать кликабельной ссылку на email?

Suppir

Продвинутый
Сообщения
967
Репутация
62
Код:
MsgBox(64, "Информация о программе", "Арчилинк, версия 1.0 beta      " & @CRLF & @CRLF & "Автор - Suppir," & @CRLF & "[email protected]")


Можно ли сделать email в MsgBox'е кликабельным?



Добавлено:
Сообщение автоматически объединено:

Про вариант создать GUI с RichEdit'ом в виде MsgBox'а я знаю :smile:
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>


$Address = "some [email protected]"
$Subject = "Тема сообщения"
$Body ="текст сообщения"


$Form1 = GUICreate("Form1", 326, 112, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Button1 = GUICtrlCreateButton("OK", 232, 72, 75, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("some [email protected]", 56, 32, 119, 20)
GUICtrlSetFont(-1, 10, 800, 6, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			Exit
		Case $Label1
			_INetMail($address, $subject, $body)

	EndSwitch
WEnd


не шедевр конечно, так что сильно не пинать :smile:
 
Автор
S

Suppir

Продвинутый
Сообщения
967
Репутация
62
Спасибо!
 
Верх