|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Criar um link para um e-mail
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Coloque num Form um TextBox onde o usuário vai digitar o endereço de e-mail. Presumindo-se que este TextBox terá o nome de Text1, texte esse código:
>> Dica 1
'Na seção de declarações coloque:
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) As Long
Private Const SW_SHOWNORMAL As Long = 1
'No evento que você desejar:
Call ShellExecute(0&, vbNullString, "mailto:" & _
Text1.Text, vbNullString, vbNullString, _
SW_SHOWNORMAL)
>> Dica 2 (NÃO funciona no Win NT)
Shell "start.exe mailto:" & Text1.text, vbHide
|
|
|
|
|
