Visual Basic - Eliminar cita email

Function a()

Dim objOutlook As Outlook.Application

Dim objNamespace As Outlook.NameSpace

Dim objFolder As Outlook.MAPIFolder

Dim objAppointment As Outlook.AppointmentItem

Dim lngDeletedAppointements As Long

Dim strSubject As String

Dim strLocation As String

Dim dteStartDate As Date

'******************************** Set Criteria for DELETION here ********************************

strSubject = "hj"

strLocation = "España"

dteStartDate = #3/12/2018#

'************************************************************************************************

Set objOutlook = Outlook.Application

Set objNamespace = objOutlook.GetNamespace("MAPI")

Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)

For Each objAppointment In objFolder.Items

  If objAppointment.subject = strSubject And objAppointment.Location = strLocation Then

       objAppointment.Delete

         lngDeletedAppointements = lngDeletedAppointements + 1

  End If

Next

MsgBox lngDeletedAppointements & " appointment(s) DELETED.", vbInformation, "DETETE Appointments"

End Function