Visual Basic 6 - Iniciando o Navegador Padrão e seu Programa de E-mail

Iniciar o seu Browser padrão e abrir uma determina página da Web ou para ativar o seu programa de E-mail com endereçamento para um determinado endereço de E-mail em um projeto VB é mais fácil do que você pensa. Vamos provar:

1- Inicie um novo projeto no VB e insira um módulo no seu projeto. Neste módulo inclua o seguinte código. (não esqueça de salvar o módulo)::

Seção General Declarations:

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

No formulário do seu projeto inclua dois controles Label , dois controles TextBox e três botões de comando como na figura abaixo.

projeto para Iniciar o Browser e o programa de E-mail

No evento Click do botão de comando - Acessar o Site - insira o seguinte código:.

Private Sub Command1_Click()
 
 Dim sucesso As Integer
 Dim site As String
 
If Trim(txtweb.Text) = "http://www." Or Trim(txtweb.Text) = "" Then
    MsgBox "Informe o endereço (URL) do site a acessar...", vbCritical,"Dados incompletos..."
ElseIf Left(Trim(txtweb.Text), 11) = "http://www." Then
    site = Trim(txtweb.Text)
ElseIf Left(Trim(txtweb.Text), 4) = "www." Then
    site = "http://" & Trim(txtweb.Text)
Else
    site = "http://www." & Trim(txtweb.Text)
End If

sucesso = ShellToBrowser(Me, site, 0)

End Sub

O evento click do botão de comando - Abrir E-mail para - insira o código;

Private Sub Command2_Click()
Dim sucesso As Integer

If Trim(txtemail.Text) = "" Then
   MsgBox "Informe o seu endereço de E-mail", vbCritical, "Dados Incompletos..."
Else
   site = "mailto:" & Trim(txtemail.Text)
   successo = ShellToBrowser(Me, site, 0)
End If

End Sub

O código associado ao botão de comando - Sair -é o seguinte:

Private Sub Command3_Click()
  Unload Me
End Sub

Código da função ShellToBrowser que faz todo o serviço. Voce pode inserí-la no formulário.

Function ShellToBrowser(Frm As Form, ByVal URL, ByVal WindowStyle)
    
    Dim api As Integer
    api = ShellExecute(Frm.hwnd, "open", URL, "", App.Path, WindowStyle)
 
    'verifica o valor retornado
    If api < 31 Then
        'codigo de erro da api
        MsgBox App.Title & " O seu navegador esta com problemas. " & _
          "Verifique se o seu navegador esta corretamente instalado." & _
          "(Error" & Format(api) & ")", 48, "Navegador Indisponivel"
        ShellToBrowser = False
    ElseIf api = 32 Then
        'arquivo sem associação
        MsgBox App.Title & " não foi possível encontrar uma associação para o arquivo " & _
          URL & " no seu seistema. Verifique o seu Navegador padrão... ", 48,_
 "Navegador indisponivel"
        ShellToBrowser = False
    Else
        'funcionou
        ShellToBrowser = True
    End If
    
End Function
Código da função que ativa o Browser e o Outlook Express

Ao executar o projeto o usuário deve informar um endereço URL válido e ao clicar no botão de comando - Acessar o Site - o Browser padrão é ativado para abrir a página do site. Se informar um endereço de e-mail o sistema abre o programa de e-mail para que seja enviada uma mensagem. Abaixo o resultado do processamento após informar o e-mail macoratti@riopreto.com.br e clicar no botão Abrir Emai para.

Outlook Express aberto via projeto VB para o meu email

Simples não !!!

Até a próxima dica...

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

     Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

José Carlos Macoratti