Visual Basic 6.0
Visual Basic 6.0
Check if a MIME Tree Contains Encrypted Parts
See more MIME Examples
Demonstrates the Chilkat Mime.ContainsEncryptedParts method, which returns whether the currently visible MIME tree contains a CMS/PKCS #7 encrypted entity. It takes no arguments.
Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.
Background: The tree-wide counterpart to
IsEncrypted: it finds an encrypted entity nested anywhere in the message, not just at the top. This lets you detect partially-encrypted messages and decide which parts require decryption before processing.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' Demonstrates the Mime.ContainsEncryptedParts method, which returns whether the MIME tree contains a CMS/PKCS #7 encrypted entity. It takes no arguments.
Dim mime As New ChilkatMime
success = mime.LoadMimeFile("qa_data/message.eml")
If (success = 0) Then
Debug.Print mime.LastErrorText
Exit Sub
End If
If (mime.ContainsEncryptedParts()) Then
Debug.Print "The message tree contains an encrypted part."
Else
Debug.Print "The message tree contains no encrypted part."
End If