Dim oOutlookApp As Outlook.Application
Dim oOutlookTermin As Outlook.AppointmentItem
 
Set oOutlookApp = CreateObject("Outlook.Application")
Set oOutlookTermin = oOutlookApp.CreateItem(olAppointmentItem)
 
Set myEmpf = oOutlookTermin.Recipients.Add("Empfängeraddresse")
    myEmpf.Type = 1 'erforderlich