Per VBA verschlüsselte Emails verarbeiten?

Hallo,

Outlook 2003/Exchange 2003

Wir bekommen verschlüsselte Emails. Das Zertifikat dafür ist installiert und ich kann die Email öffnen. Versuch ich sie jedoch per Makro/vba anzusprechen, geht das nicht. Ich kann grad noch den Betreff auslesen, aber weder den Emailbody noch Anhänge. Ist die Email geöffnet, während das Makro läuft, dann klappts. OK, dachte ich mir, dann öffne ich halt die Email vorher per vba, aber auch das geht nicht.


Hier auszugsweise mein Code ("debug.print ....subject" funktioniert noch, "debug.print ....body" bringt den Fehler "Die Methode 'Body' für das Objekt 'MailItem' ist fehlgeschlagen"
Public Sub MeinDing()
Dim Foldername As String
Dim objIn As MAPIFolder
Dim objNewMail As MailItem
Set objIn = Application.GetNamespace("MAPI").Folders("test")
Debug.Print objIn.Items.Item(1).Subject
Debug.Print objIn.Items.Item(1).Body
End Sub


Mit einer unverschlüsselten Email funktioniert alles.


Weiss jemand, wie man verschlüsselte Emails per VBA verarbeiten kann?


Danke
Martin