Dim OutlookApp As Outlook.Application
         Dim OutlookMAPI As NameSpace
         Dim OutlookCalendar As MAPIFolder
         Dim OutlookAppt As Outlook.AppointmentItem
         Dim OutlookUser As Outlook.Recipient
 
         strColorNotiz="Telefonnotiz"
 
 
                      'Set OutlookApp = GetObject(, "Outlook.Application")
40                    Set OutlookApp = New Outlook.Application
50                    Set OutlookMAPI = OutlookApp.GetNamespace("MAPI")
 
60                       Set OutlookUser = OutlookMAPI.CreateRecipient( _
  "m.mustermann@provider.de") 'Text durch gültige Emailadresse ersetzen
70                       OutlookUser.Resolve
80                       Set OutlookCalendar = _
  OutlookMAPI.GetSharedDefaultFolder(OutlookUser, olFolderCalendar)
 
90                    Set OutlookAppt = OutlookCalendar.Items.Add
 
100                      With OutlookAppt
110                           .Subject = frmTelefonnotiz.txtBetreff
120                           .Body = frmTelefonnotiz.txtBody
130                           .Start = CDate(frmTelefonnotiz.xpDTPicker_Datzum( _
  0).Text & " " & Format(frmTelefonnotiz.xpcmbZeit(0).Text, "hh:mm"))  'Beginnt 
' am
140                           .End = CDate(frmTelefonnotiz.xpDTPicker_Datzum( _
  1).Text & " " & Format(frmTelefonnotiz.xpcmbZeit(1).Text, "hh:mm"))  'Endet am
                '             .Duration = 30       'Länge des Termins in Minuten
150                           .ReminderSet = True   'Erinnerung setzen
160                           .ReminderMinutesBeforeStart = fncReminderMinutes( _
  frmTelefonnotiz.xpcmbZeit(2).Text)
170                           .Categories = strColorNotiz
180                           .Save
 
190                      End With
 
 
200                      Set OutlookApp = Nothing
210                      Set OutlookAppt = Nothing
220                      Set OutlookItem = Nothing
230                      Set OutlookCalendar = Nothing
240                      Set OutlookMAPI = Nothing
250                      Set OutlookUser = Nothing