Update Recipient Tracking from VBA

  • Thread starter Thread starter Andy Boruta
  • Start date Start date
A

Andy Boruta

I get lots of meeting replies, so I have a VB routine that scans for postive
meeting replies with no additional notes added, and I move them to a folder
where I can bulk delete them.

My problem is that the response tracking is not updated. It will update if
I open the meeting response manually, but not with the code below. Is there
a way I can get the Response Tracking updated?

If Item.Class = olMeetingResponsePositive Then

If Item.Body = "" Then
Item.UnRead = False
Item.Move myDestFolder ' the bulk delete folder
End If

End If
 
If you were using C++ or Delphi, you could use Extedned MAPI to update the
PR_RECIPIENT_TRACKSTATUS (0x5FFF0003) property in the appointment recipient
table.
If you are using VB, Redemption is your only option as neither Outlook
OBject Model nor CDO 1.21 provide access to the properties in the recipient
table:

PR_RECIPIENT_TRACKSTATUS = &H5FFF0003
Recipient.Fields(PR_RECIPIENT_TRACKSTATUS ) = olResponseAccepted

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
 
Thanks for the response. I am not familiar with "Redemption". Is it
something that I can easily work into my VBA code?
 
Back
Top