Option
Explicit
Public
Sub
send_mail()
Dim
oApp
As
Object
Dim
oItem
As
Object
Set
oApp = CreateObject(
"Outlook.Application"
)
Set
oItem = oApp.CreateItem(0)
With
oItem
.Subject =
"Eine verschlüsselte Mail"
.
To
=
"jemand@einedomain.de"
.Body =
"Text der verschlüsselten Mail"
Call
sign_encrypt_mail(oItem,
True
,
True
)
.Display
End
With
End
Sub
Private
Sub
sign_encrypt_mail(
ByRef
oMail
As
Object
,
ByVal
sign
As
Boolean
,
ByVal
encrypt
As
Boolean
)
Dim
ulFlags
As
Variant
If
sign
Then
ulFlags = ulFlags
Or
&H2
End
If
If
encrypt
Then
ulFlags = ulFlags
Or
&H1
End
If
oMail.PropertyAccessor.SetProperty PR_SECURITY_FLAGS, ulFlags
End
Sub