Outlook2000でパスワード設定。

ronnieさんこんにちは。 > やはり、素人には難しそうですね ということですが、もしよろしければ私なりに作ったVBAコードと、それを動かす方法を追記しますので挑戦してみてください。少しややこしいかもしれませんが、がんばってみてください。 1,まずOutlook2000を起動します。 2,メニューバーから、[ツール(T)]＞[マクロ(M)]＞[VisualBasicEditor(V)]を選択し、VisualBasicEditorを起動させます。 3,VisualBasicEditorが起動したら、メニューバーから、[表示(V)]＞[プロジェクトエクスプローラ(P)]と選択します。 4,VisualBasicEditorのどこか（たぶん左側）に「プロジェクト－Project1」の小さなウインドウがあって、その中に"Project1(VbaProject.OTM)"というアイコンがあると思いますが、そのアイコンの横の小さな"+"をクリックして階層を表示させます。 5,MicrosoftOutlookObjectsフォルダを開きます。 6,Outlookのアイコンで、"ThisOutlookSession"なるファイルがあると思いますが、これを右クリックして[コードの表示(O)]を選択します。 7,VisualBasicEditorの中にコードウインドウが開きます（メモ帳みたいなウインドウ）。 8,開いたウインドウ上に左右２つのリスト選択があって、左側の"(General)"をクリックして、その下にある"Application"を選択します。 9,"Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)～（１行空白）～End Sub"と、自動的に記入されます。 10,（１行空白）の所に、以下のコードをコピーして貼り付けてください。 '-----ここからコピー Dim myPrompt As String, myTitle As String, myBox As String On Error Resume Next If Item.Attachments.Count > 0 Then myPrompt = "添付ファイル付きメールが送信されようとしています。パスワードを入力してください。" myTitle = "メール送信のパスワード保護" myBox = InputBox(myPrompt, myTitle) If myBox <> "xxxx" Then Cancel = True '---xxxxの所にすきなパスワードを入れてください。（何文字でもok） End If '-----ここまでコピー 11,"xxxx"の所にすきなパスワードを入れてください。 これで、次回の添付ファイル付きメール送信からパスワードが要求されるはずです。なお、見慣れたパスワード入力時の"***"表示はありません。また、VBAが解る人がこのコードを見ない限り、パスワードがばれることはないでしょう。心配なら、VisualBasicEditorの「プロジェクト－Project1」ウインドウの中の"Project1(VbaProject.OTM)"を右クリックし、"Project1のプロパティ"を選択すると、コード自体にさらにパスワード保護をかけることができます。 また、Outlookを保存後起動するたびに、「マクロが含まれています」という表示が出ますが、「マクロを有効する」を選択しないと、この機能は使えません。