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" <dshubhangi@gmail.com> wrote in message
news:5e267549-96a0-4c57-bf48-172177d1cc90@x29g2000prf.googlegroups.com...
> 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
>