私は、メッセージを暗号化されたものを含めて自動的に転送するためのVBAのスクリプトを作成しています。Outlook 2007以降では、暗号化とデジタル署名のボタンを制御します。
唯一の問題は、暗号化をプログラムによって削除することです。
私はこのようにそれを行うことができると思った:
- 開き、私は知らないこの方法で暗号化&ログインオプション
- 前方メッセージ
選択解除メッセージ
ここでは、暗号化されていない標準のメールで使用できるコードを示します。
Sub test_macro(MyMail As MailItem)
MyMail.Display
'Need some API here to access the decrypt button
MyMail.Recipients.Add "[email protected]"
MyMail.Recipients.Add "[email protected]"
Item_Send (MyMail)
End Sub
背景
要件が特定の人々に、部門アドレスのすべての受信メッセージを転送するためにここにあります:私はすべての受信メールの「メールルール」として、この方法を設定します。暗号化されたものを転送すると、Outlookのさまざまなバージョン(2003/2007/2010/etc)間であらゆる種類の証明書の問題が発生します。これらはすべて部門アドレスの秘密鍵を必要とするため、個人アカウント証明書ある種の不安定な行動、時にはうまくいく、時々そうでない)。
代替私は、セキュリティの制限のため、現在のアプローチは、おそらく私は選択肢に探しています動作しませんことを実現
近づきます。 Outlookのプラグインを作成すると、受信メッセージを復号化するためにセキュリティAPIにアクセスできるようになるのだろうか?
POPクライアントを作成し、取得し、手動でメッセージを復号化して転送します。 Outlookがデフォルトでサポートする多くの暗号化形式/アルゴリズムが存在するため、これはおそらく最も難しいアプローチです。
他のアイデアはありますか?ありがとう!
これは疑わしいマルウェアと思われます。あなたが悪意のある何かをしようとしていない限り、メッセージをプログラムで解読して転送することは、あなたがしなければならないことではありません。 –
@Ken White、結論にジャンプしないでください。部門アドレスのすべての着信メッセージを特定の人に転送する必要があります。暗号化されて転送すると、Outlookのさまざまなバージョン(2003/2007/2010/etc)間であらゆる種類の証明書の問題が発生します。これらはすべて部門アドレスの秘密鍵を必要とし、個人アカウント証明書と競合します。 – Bogdan
I didnどんな結論にもジャンプしない。私はそれがあなたのコメントでそれを説明するまで、それが疑わしいと思った(それはまだあります)。 –