(Excel) Find a Certificate in the "Other People" Windows Certificate Store

Demonstrates how to open the "Current User --> Other People" Windows certificate store, and locates a certificate matching an email address.

Download Excel Class Modules Chilkat Excel Class Modules

Dim certStore As Chilkat.CertStore
Set certStore = Chilkat.NewCertStore

' The "AddressBook" is the "Other People" certificate store as shown in certmgr.msc

readOnly = True

success = certStore.OpenWindowsStore("CurrentUser","AddressBook",readOnly)
If (success <> True) Then
    Debug.Print certStore.LastErrorText
    Exit Sub
End If

Set cert = certStore.FindCertByRfc822Name("sales.edifact@somewhere.com")
If (certStore.LastMethodSuccess <> True) Then
    Debug.Print certStore.LastErrorText
    Exit Sub
End If

Debug.Print "Found certificate: "; cert.SubjectDN