RE: Создание на форме ссылки e-mail адреса.

new_see — Mon, 27 Aug 2007 13:40:11 GMT

спасибо )

RE: Создание на форме ссылки e-mail адреса.

Pavel55 — Mon, 27 Aug 2007 10:30:32 GMT

[code]'при щелчке на Label открыть форму почтового клиента для написания письма
'объявляем WinAPI функцию
Dim oShell As Object
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)
Const SW_SHOWNORMAL = 1
Private Sub lblEmail_Click()
Dim sEmailAddy As String
sEmailAddy = "someone@email.com"
ShellExecute 0&, "open", "mailto:" & sEmailAddy, _
vbNullString, vbNullString, SW_SHOWNORMAL
Unload Me
End Sub[/code]

На всякий случай - как сделать гиперссылку

[code]'для создания гипперссылки на Label на форме
'открыть ссылку
Private Sub Label1_Click()
Dim oShell
Dim sUrl As String
'открыть ссылку
sUrl = "http://www.yandex.ru/" 'или, например, C:\Temp
Set oShell = CreateObject("Wscript.Shell")
oShell.Run (sUrl)
End Sub[/code]

Создание на форме ссылки e-mail адреса.

new_see — Mon, 27 Aug 2007 03:14:50 GMT

Как создать на форме ссылку на e-mail адрес ([i]например[/i] [email]name@mail.ru[/email]), при щелчке на которой откроется создание нового письма в e-mail клиенте по умолчанию?

Релиб / Программирование / VBA / Создание на форме ссылки e-mail адреса. / Latest Posts

RE: Создание на форме ссылки e-mail адреса.

RE: Создание на форме ссылки e-mail адреса.

Создание на форме ссылки e-mail адреса.