Public Sub Neue_Mail()
  ' ein nötiges Outlook-Object erzeugen
  Set myOlApp = CreateObject("Outlook.Application")
  
  ' aus dem Outlook-Objekt ein Mail-Objekt erzeugen
  Set myitem = myOlApp.CreateItem(olMailItem)

  ' CC (Kopie) zuweisen - möglichst mit echter E-Mail-Adresse wie chef@firma.de
  ' Bei mehreren Kopie-Empfängern müssen die E-Mail-Adressen mit Semikolons getrennt werden
  myitem.CC = "Chef"
  
  ' Betreff zuweisen - möglichst aussagekräftig, denn "WICHTIG" sagt gar nichts
  myitem.Subject = "WICHTIG"
  
  ' Mail-Text zuweisen. Für einen Zeilenumbruch muss die Konstante VBCRLF verwendet werden
  myitem.Body = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & _
                "vielen Dank für Ihr Interesse!" & vbCrLf & vbCrLf & _
                "Mit freundlichen Grüßen" & vbCrLf & vbCrLf & _
                "Martin"
                
  ' Die neue Mail auch als Fenster anzeigen
  myitem.Display
End Sub