Private Sub lblemail1_Click()
  StartEMail Me.hWnd, Text1.Text, Text2.Text, Text3.Text
End Sub
 
Public Sub StartEMail(ByVal hWnd As Long, _
Optional ByVal Empfänger As String, _
Subject As String, _
Optional ByVal Body As String)
 
  Dim Parameter As String
 
  If Subject <> "" And Body <> "" Then
    Paramter = "?subject=" & Subject & "&body=" & Body
  ElseIf Subject <> "" And Body = "" Then
    Paramter = "?subject=" & Subject
  ElseIf Subject = "" Then
    MsgBox "Betreff fehlt"
    Exit Sub
  End If
 
  Call ShellExecute(hWnd, "Open", "mailto:" & Empfänger & Parameter, "", "", 1)
End Sub

Gruß
Marcus