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:
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
.Subject = strSubjectline1
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Dim objVerschlueselung_btn As Object
Dim objBtn As Object
If objVerschlueselung_btn Is Nothing Then
Set objBtn = MyMessage.GetInspector.CommandBars
Set objVerschlueselung_btn = objBtn.Item("Standard").Controls.Add(, 718, , , True)
End If
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