delete appointmentitem permanently using redemption

  • Thread starter Thread starter sd
  • Start date Start date
S

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
 
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
 
Back
Top