delete appointmentitem permanently using redemption

[sd]

hello

Is there any way to delete appointmentItem permanently using
redemption?Redemption.SafeAppointmentItem doesn't have delete
method.please provide a code snippet if possible.


Thanks

 

[Ken Slovak - [MVP - Outlook]]

Make sure the item is saved so it has an EntryID, get the EntryID and use
that with an RDOSession object to call RDOSession.GetMessageFromID(). That
returns an RDOMail object, call that object's Delete() method.

' assume the Outlook appointment is oAppt:
If oAppt.Saved = False Then
oAppt.Save
End If

Dim id As String
id = oAppt.EntryID

Set oAppt = Nothing
Set oSafeAppt = Nothing

Set oRDO = CreateObject("Redemption.RDOSession")
oRDO.MAPIOBJECT = olApp.GetNameSpace("MAPI").MAPIOBJECT

Dim safMail As Redemption.RDOMail
Set safMail = oRDO.GetMessageFromID(id)
safMail.Delete

 

[sd]

It worked ,Thanks Ken