E-MAIL NO PROGRAMA

USUARIO.EXCLUIDOS 26/06/2004 11:28:39
#31372
Olá a todos,
A ajuda que preciso se refere a algo que acho que é fácil de resolver mas erro por pouco detalhe.

Quero que ao dar um duplo clique no text abra a janela de e-mail do Outlook

Ja fiz destas três formas e todas ao abrir a janela mostra a palavra depois de mailto.

Private Sub email1_DblClick()
Dim ret$
ret = ShellExecute(Me.hwnd, "Open", "mailto:email1.text", "", "", 1)
End Sub

Private Sub email1_DblClick()
Dim ret$
ret = ShellExecute(Me.hwnd, "Open", "mailto:& "email1.text"", "", "", 1)
End Sub

Private Sub email1_DblClick()
Dim ret$
ret = ShellExecute(Me.hwnd, "Open", "mailto:& (email1.text)", "", "", 1)
End Sub

A API já está declarada

Grato por mais esta ajuda
WEBMASTER 26/06/2004 11:53:55
#31374 Resposta escolhida
é assim:

Private Sub email1_DblClick()
Dim ret$
ret = ShellExecute(Me.hwnd, "Open", "mailto:" & email1.text, "", "", 1)
End Sub

um abraço!
Tópico encerrado , respostas não são mais permitidas
Voltar