Private Sub cmdSendMail()
  Dim olApp As Outlook.Application
  Dim oItem As Outlook.MailItem
 
 
 
  Set olApp = New Outlook.Application
  Set oItem = olApp.CreateItem(olMailItem)
 
  mailText = Text.textbox
 
  With oItem
 
    .To = mailAdresse
    .Subject = "Alles Gute zum Geburtstag!"
    .HTMLBody = mailText
    .ReadReceiptRequested = False
    List1.AddItem mailAdresse
    .Send
  End With
End Sub