Private Sub cmdSendMail()
  Dim olApp As Outlook.Application
  Dim oItem As Outlook.MailItem
  Dim mailText As String
 
  'Outlook-Objekt anlegen:
  Set olApp = New Outlook.Application
  Set oItem = olApp.CreateItem(olMailItem)  
 
  mailText = 'Ich hier'
  With oItem  
    .To = mailAdresse
    .Subject = "Huhu!"
    .Body =mailText         '  .HTMLBody = mailText
    .ReadReceiptRequested = False 'False Du keine Bestätigung willst, das Mail 
    ' gelesen wurde
    .Send
  End With
End Sub