Dim DTCalc As New DateTimeCalculator (EXCLUDE_DAYS,EXCLUDE_DATES,SERVICEHOURS) Dim dt1 As NotesDateTime If me_doc.HasItem ("DateCreated") Then Set item = me_doc.GetFirstItem( "DateCreated" ) Elseif me_doc.HasItem ("ComposedDate") Then Set item = me_doc.GetFirstItem( "ComposedDate" ) Else Set item = me_doc.GetFirstItem( "DeliveredDate" ) End If --->>> Set dt1 = New NotesDateTime ( DTCalc.GetNextBusinessDay(item.Text) )
wenn wir Mails in unsere persönliche Mail-DB bekommen diese ausschneiden und der Troubelticket DB einfügen