Private Sub Commandbutton1_Click()
Dim ol, Mail As Object
Dim Tabelle As Object
Dim Index As String
Dim Zeile As Integer
Index = userform1.Text1.Text
Zeile = Mid(Index, 1, InStr(1, Index, " ") + 1) + 1
Unload userform1
Set Tabelle = Application.ActiveSheet
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = Tabelle.Cells(Zeile, 4).Value
Mail.cc = ""
Mail.bcc = ""
Mail.body = vbCrLf & _
"Hallo " & Tabelle.Cells(Zeile, 1).Value & "," & vbCrLf & _
vbCrLf & _
"ich möchte Dich " & Tabelle.Cells(Zeile, 1).Value & " zu einer Tasse Kaffe einladen..." & vbCrLf & _
vbCrLf & _
vbCrLf & _
"Mit freundlichen Grüßen" & _
vbCrLf & "<Dein Name hier einfügen>" & vbCrLf & _
vbCrLf & _
"Dieses Mail wurde automatisch versandt."
Mail.Display
End Sub