Goedemorgen,
Ik heb een formulier waarop ik een actie voor een college registreer. Bij het drukken op de knop wordt deze actie prima uitgevoerd. Echter sluit het formulier nog niet!
Dit is de code:
Als de functie wordt uitgevoerd, krijg ik in outlook wel een melding:
Wellicht heeft dat er wat mee te maken... Bij een 2e poging lukt het namelijk wel! Maar dan krijgt de college 2x dezelfde taak toegewezen.
Ik heb een formulier waarop ik een actie voor een college registreer. Bij het drukken op de knop wordt deze actie prima uitgevoerd. Echter sluit het formulier nog niet!
Dit is de code:
Code:
Private Sub Knop104_Click()
OutlookTask
DoCmd.Close
End Sub
Function OutlookTask()
Dim NowDate As Date, DateEnd As Date
Dim Task As Outlook.TaskItem
Set Task = Outlook.CreateItem(olTaskItem)
NowDate = Now()
DateEnd = Me.Datum_deadline
If DateAdd("d", -1, DateEnd) >= 1 Then
DateEnd = DateAdd("d", -1, DateEnd)
End If
With Task
.Subject = Me.Account & " " & Me.Contactpersoon
.Body = Me.Omschrijving_actie
.Assign
.Recipients.Add Me.Toegewezen_aan
.DueDate = Me.Datum_deadline
.Importance = (olImportanceHigh)
.ReminderSet = True
.Save
End With
End Function
Als de functie wordt uitgevoerd, krijg ik in outlook wel een melding:
Wellicht heeft dat er wat mee te maken... Bij een 2e poging lukt het namelijk wel! Maar dan krijgt de college 2x dezelfde taak toegewezen.