Programming Forums > Application Development > Visual Basic

bigbondfan · May 31st, 2005, 6:28 AM

I want to make a simple Email link (like a mailto link in HTML) in vb6 that will open a new message in the default mail client with the email address and subject

Rory · May 31st, 2005, 12:09 PM

Do you mean a button/label on a form? If so, you can activate mailto links using the normal shell api (the run command):

(Toggle Plain Text)

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
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, "mailto:bill@microsoft.com?subject=Your software sucks", vbNullString, "%SystemRoot%", SW_SHOWNORMAL
End Sub

This works as the mail client sets itself up as the mailto device handler. Thus, the directory is arbitrary so %SystemRoot% (C:\Windows\) was passed. As it is a not an exectutable, the handle and show style parameters are probably irrelevant anyway.

bigbondfan · Jun 1st, 2005, 7:51 AM

Thanks very much

May 31st, 2005, 6:28 AM	#1
bigbondfan Newbie Join Date: May 2005 Posts: 7 Rep Power: 0	[solved] email link in VB6 I want to make a simple Email link (like a mailto link in HTML) in vb6 that will open a new message in the default mail client with the email address and subject Last edited by bigbondfan; Jun 1st, 2005 at 7:52 AM. Reason: solved

May 31st, 2005, 12:09 PM	#2
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	Do you mean a button/label on a form? If so, you can activate mailto links using the normal shell api (the run command): (Toggle Plain Text) 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 Const SW_SHOWNORMAL = 1 Private Sub Form_Load() ShellExecute Me.hwnd, vbNullString, "mailto:bill@microsoft.com?subject=Your software sucks", vbNullString, "%SystemRoot%", SW_SHOWNORMAL End Sub 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 Const SW_SHOWNORMAL = 1 Private Sub Form_Load() ShellExecute Me.hwnd, vbNullString, "mailto:bill@microsoft.com?subject=Your software sucks", vbNullString, "%SystemRoot%", SW_SHOWNORMAL End Sub This works as the mail client sets itself up as the mailto device handler. Thus, the directory is arbitrary so %SystemRoot% (C:\Windows\) was passed. As it is a not an exectutable, the handle and show style parameters are probably irrelevant anyway.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Jun 1st, 2005, 7:51 AM	#3
bigbondfan Newbie Join Date: May 2005 Posts: 7 Rep Power: 0	Thanks very much

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

email link in VB6