Sub terminErstellen(ByRef art, ByRef termin, ByRef rs)
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objSel As Word.Selection
With termin
.MeetingStatus = 1
.RequiredAttendees = getAttendees(rs)
Debug.Print getAttendees(rs)
.subject = rs!t_nr & " POS (" & Format(rs!t_datum, "dd.mm.yyyy") & ")"
If art = "POS" Then
.subject = .subject & " Ausstrahlung/Aussendung"
.start = Format(rs!t_datum, "dd.mm.yyyy") & " 09:00"
.ReminderMinutesBeforeStart = 0
ElseIf art = "Dreh" Then
.start = Format(rs!t_aufnahme_am, "dd.mm.yyyy") & " " & Format(rs!t_aufnahme_am_uhrzeit, "hh:mm")
.ReminderMinutesBeforeStart = 15
.subject = .subject & " Videodreh"
ElseIf art = "Informationen" Then
.subject = .subject & " Info finalisieren"
.start = Format(rs!t_informationen_bis, "dd.mm.yyyy") & " " & Format(rs!t_informationen_bis_uhrzeit, "hh:mm")
.ReminderMinutesBeforeStart = 1440
End If
.Duration = 60
.AllDayEvent = False
.Location = "POS"
.Categories = art
.body = kalenderTextErstellen(rs)
Set objDoc = .GetInspector.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection
objSel.Font.ColorIndex = 2
.ReminderSet = True
If IsEmpty(rs!t_anhang) = True Or IsNull(rs!t_anhang) Or rs!t_anhang = "" Then
Else
Debug.Print rs!t_anhang
.Attachments.Add Replace(rs!t_anhang, "#", "")
End If
If IsEmpty(rs!t_anhang2) = True Or IsNull(rs!t_anhang2) Or rs!t_anhang2 = "" Then
Else
.Attachments.Add Replace(rs!t_anhang2, "#", "")
End If
.Save
.Send
End With
Set objItem = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
End Sub