Сообщество Чайников

Вопрос

Как сделать гиперссылку, чтобы когда человек кликал на логотип программы открывался бы почтовый клиент по ссылке: mailto:lexxmaster2k@yahoo.com?subject=…и т.д.

Ответ

Необходимые объявления:

Private Declare Function ShellExecute& Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long)
Private Declare Function GetDesktopWindow Lib "user32" _
() As Long
Const SW_SHOWNORMAL = 1

Далее имеется, например, Label1 в котором написан адрес e-mail, тогда в процедуре обработки события Click пишем:

Call ShellExecute(0&, "Open", "mailto:" + Label1.Caption , "", "", 1)

А вот это можно применять для запуска URL:

Call ShellExecute(GetDesktopWindow, "Open",
_ Label1.Caption, "", "c:\", SW_SHOWNORMAL)

Если Вы хоть немного знакомы с HTML то не составит труда дополнить эти ссылки темами и текстами сообщений.

Иванов Виталий