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 Function OpenUrl(ByVal sUrl As String) As Boolean
  OpenUrl = ShellExecute(0, "open", sUrl, "", "", 1) > 32
End Function
 
Private Function OpenEmail(ByVal sAddress As String) As Boolean
  OpenEmail = ShellExecute(0, "open", "mailto:" & sAddress, "", "", 1) > 32
End Function

' Mail an test@nowhere.com
If OpenEmail("test@nowhere.com") Then
  ' erfolgreich das Programm gestartet
Else
  ' nicht erfolgreich
End If
' Url im Browser öffnen
If  OpenUrl("http://www.testurl.de") Then
  ' erfolgreich
Else
  ' nicht erfolgreich
End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.