Option Explicit
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 Sub Command1_Click()
 Call ShellExecute(-1, "Open", "mailto:Empfaenger1@gmx.de;Empf2@gmx.de", "", _
   "", 1)
End Sub