Launch from webbrowser to email...
The following is purely an excerpt from another post on the newsgroup, never
tried it myself:
'''''''''''''''''''''''''''''''''''''''
a = Shell("start http://www.site.com/dir/webpage.html") '
opens the file webpage.html in the defult browser (INTERNET)
In a BAS module:
Public Const SW_SHOWMAXIMIZED = 3
Public 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
Public Sub LinkTo(szUrl As String, hFormHandle As Long)
ShellExecute hFormHandle, _
"open", _
szUrl, _
"", _
"", _
SW_SHOWMAXIMIZED
End Sub
Then, in your form (such as a click_event of a label):
'To open the default browser with an Url
Linkto "http://yoursite.com", Me.Hwnd
or
'To open the default mailer
'''''''''''''''''''''''''''''''''''''''''''
Quote:
> how do u launch from webbrowser to email specified by url to email. I
>simply lost code but didn't saved it.
> nResult = Shell("start.exe " & "mailto:" & "")....this one launch to
>email address. that fine.
>but i can't get url into email.
>Any help of this?
>regards,
