Ik heb de volgende code om een taskitem in VBA aan te maken:
Private Sub Knop41_Enter()
Dim myOutlook As Outlook.Application
Dim myItem As TaskItem
Dim myRequiredAttendee As Object
Dim startDate As Date
On Error Resume Next
Set myOutlook = GetObject(, "Outlook.application")
If myOutlook Is Nothing Then
Set myOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set myItem = myOutlook.CreateItem(olTaskItem)
With myItem
.Assign
.Subject = "Dit is een test"
.ReminderTime = #8/1/2004 8:00:00 AM#
.startDate = #8/2/2004#
.DueDate = #8/2/2004#
End With
Set myRequiredAttendee = myItem.Recipients.Add("test@test.nl")
myItem.Send
End Sub
Dit werkt prima maar hoe kan ik nu zo'n taskitem verwijderen vanuit VBA?
Ik heb myItem.delete al geprobeerd en dat werkt niet.
Iemand een suggestie
Private Sub Knop41_Enter()
Dim myOutlook As Outlook.Application
Dim myItem As TaskItem
Dim myRequiredAttendee As Object
Dim startDate As Date
On Error Resume Next
Set myOutlook = GetObject(, "Outlook.application")
If myOutlook Is Nothing Then
Set myOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set myItem = myOutlook.CreateItem(olTaskItem)
With myItem
.Assign
.Subject = "Dit is een test"
.ReminderTime = #8/1/2004 8:00:00 AM#
.startDate = #8/2/2004#
.DueDate = #8/2/2004#
End With
Set myRequiredAttendee = myItem.Recipients.Add("test@test.nl")
myItem.Send
End Sub
Dit werkt prima maar hoe kan ik nu zo'n taskitem verwijderen vanuit VBA?
Ik heb myItem.delete al geprobeerd en dat werkt niet.
Iemand een suggestie