Hallo,

Ich bin bei meiner Suche nach einer Lösung den Zertifikatspeicher unter Windows per VBA auszulesen auf diesen Beitrag gestoßen. 
Ich habe die Fragestellung wie folgt gelöst:

VBA - Auszug:

'###########################################
'Verschlüsselt versenden - ANFANG
'###########################################
                'Dim MyOutApp As Object, MyMessage As Object
                Dim strBezeichnung As String
                Set MyOutApp = CreateObject("Outlook.Application")
                Set MyMessage = MyOutApp.CreateItem(olMailItem)
                strBezeichnung = ActiveWorkbook.name
                
                Set MyMessage = MyOutApp.CreateItem(0)
                
                With MyMessage
                            .To = empfliste             'E-Mail Adresse
                            .Subject = strSubjectline1  '"Betreff"
                            .Attachments.Add ActiveWorkbook.FullName
                            .Display
                End With
                
                Dim objVerschlueselung_btn As Object
                Dim objBtn As Object
                
                If objVerschlueselung_btn Is Nothing Then
                   'Schaltfläche Verschlüsselung hinzufügen
                   Set objBtn = MyMessage.GetInspector.CommandBars
                   Set objVerschlueselung_btn = objBtn.Item("Standard").Controls.Add(, 718, , , True)
                End If
                
                   'Überprüfen ob die Schaltfläche aktiv / inaktiv ist
                   If objVerschlueselung_btn.Enabled = True Then
                            If objVerschlueselung_btn.State = 0 Then objVerschlueselung_btn.Execute
                   Else
                      MsgBox "Die Voranmeldung kann nicht unverschlüsselt versandt werden " & vbCr _
                             & "Bitte mit Ihrer PKI-Karte anmelden und den Vorgang wiederholen."
                      Exit Sub
                   End If
                
                With MyMessage
                            .Send
                End With
'###########################################
'Verschlüsselt versenden - ENDE
'###########################################

Wenn aber jemand eine Idee hat, wie der Zertifikatspeicher auf ein bestimmtes Zertifikat für E-Mail überprüft werden kann, ich wäre sehr interessiert (Excel 2007).

Gruß Stefan