Examples: CertificateExpiration property

This example displays the expiration date of 07/23/2004 08:56:55 AM EDT, which is the expiration date for the specified certificate, cert.id.

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Dim expire As NotesDateTime
  Set adminp = _
  adminp.CertifierFile = _
  Set expire = adminp.CertificateExpiration
  Messagebox expire.LocalTime, , _
  "Certificate expires on"
End Sub