Calendar Entry --> Draft?

HCL Domino Domino Forum
1

Hello,

I use this part of an agent to actually create a calendar entry:

				enddatetime = event_date & " " & event_end & " CET"

				startdatetime = event_date & " " & event_start & " CET"					

				calendar_doc.CalendarDateTime= start_date

				calendar_doc.EndDate = end_date

				calendar_doc.EndTime = event_end					

				calendar_doc.EndDateTime = end_date

				calendar_doc.StartDate = start_date

				calendar_doc.StartTime = event_start					

				calendar_doc.StartDateTime = start_date

				calendar_doc.From = user

				calendar_doc.Location = docData.Raum

				calendar_doc.Logo = "stdNotesLtr0"

				calendar_doc.MeetingType = "1"

				calendar_doc.OrgTable = "CO"

				calendar_doc.Principal = user

				calendar_doc.ScheduleSwitcher = 1

				calendar_doc.SequenceNum = 1

				calendar_doc.Subject = docData.VTitel

				Dim success As Variant

				success = calendar_doc.computewithform(False, False)

’ Call calendar_doc.Save(True, True)

				If success Then

					Call calendar_doc.Save( True, True )

The document appears fine as calendar entry but the document also appears as DRAFT in the EMAIL DRAFT FOLDER. Anyone knows what it makes appear as draft?