Dim oApp As Outlook.Application = New Outlook.Application
Dim mailItem As Outlook.MailItem = oApp.CreateItem( _
  Outlook.OlItemType.olMailItem)
 
        mailItem. VotingOptions = "Gehnemigt;Abgelehnt"
        mailItem = Nothing
        oApp = Nothing