USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Criar um link para um e-mail
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página