NM: Updated Decryption button - Sets message as private in Exchange (4316984)

Issue

Updated Decryption button - Sets message as private in Exchange

Solution

This has been resolved in version 5.0

The migration engine will migrate email to Exchange as Private if any of the fields mentioned below are set on a document:

"$KeepPrivate" = "1"
"decryptedByBT" is present
Sensitivity = Private
"PreventDelegate" = "1"

The decryption button in CMTe does not currently set the decryptedByBT field.
To update the below changes were added:

Declarations :
ADD: Declare Private Function NSFItemSetText Lib "nnotes.dll" (Byval hNote As Long, Byval ItemName As String, Byval ItemValue As String, Byval nT As Integer) As Integer

DecryptMessages Sub:
If bsealed Then
logDecrypt "Decrypting note " & doc.NoteID
rcapi =NSFNoteDecrypt(hNote, DECRYPT_ATTACHMENTS_IN_PLACE, hEncryptionKey)
ADD: rcapi=NSFItemSetText(hNote,"decryptedByBT","1",1)
rcapi = NSFNoteUpdate(hNote, 1)

The original update was made in a CSR 3.7.1.2, 3.8.2 and 4.0

The updated code is attached to this article. Unzip the file and open the nsf file and copy that one document out of the attached database and paste it into you CMT for Exchange database underneath  'Configuration/Message Templates'.