No.3ベストアンサー
- 回答日時:
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,開いたウインドウ上に左右2つのリスト選択があって、左側の"(General)"をクリックして、その下にある"Application"を選択します。
9,"Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)~(1行空白)~End Sub"と、自動的に記入されます。
10,(1行空白)の所に、以下のコードをコピーして貼り付けてください。
'-----ここからコピー
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を保存後起動するたびに、「マクロが含まれています」という表示が出ますが、「マクロを有効する」を選択しないと、この機能は使えません。
No.2
- 回答日時:
失礼しました。
前記回答のコードに記入漏れがありました。Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Attachments.Count > 0 Then
'---パスワード要求のルーチンへ
Else Exit Sub
End If'------この部分
End Sub
追加修正致します。
この回答への補足
アドバイスありがとうございました。しかし残念ながら、私の知識ではその、VBAをどのようにどこから設定したらよいのか分かりませんでした。。。。やはり、素人には難しそうですね。。(~_~;)
補足日時:2001/04/24 20:15No.1
- 回答日時:
ronnieさんこんにちは。
添付ファイル付きのメール送信に対してのみ、パスワードを要求するとういう意味合いでしたら、OutLookVBAのApplication_ItemSendイベントプロシージャで、AttachmentsコレクションオブジェクトのCountプロパティを調べ、値によって条件分岐する方法が考えられます。以下に例を示します。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Attachments.Count > 0 Then
'---パスワード要求のルーチンへ
Else Exit Sub
End Sub
上記方法は、Win98SE+OutLook2000にて動作確認済みです。
TTakさん。先日はアドバイスありがとうございました。ただ結局色々試してみた結果、使用しないで済むようになりました。そこで、再度質問なのですが、一度アドバイス通りマクロで設定をして、不要になったので、追加した文を消して上書き保存したのですが、Outlook起動時にいつも、マクロが含まれています、無効にする、有効にする、のウィンドウがでてきてしまいます。これをなくすには、どのようにしたらよろしいのでしょうか。お手数おかけしますがよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 分譲マンション 管理組合役員の辞任と受領書について 1 2022/11/25 12:39
- 賃貸マンション・賃貸アパート 賃貸:24時間緊急駆け付けサポートの加入必須?更新時の相談 3 2022/09/08 14:51
- 弁護士・行政書士・司法書士・社会保険労務士 遺産分割協議書作成で、故人3名・健在者5名の必要書類集めの期間について 6 2022/04/01 14:21
- 相続・遺言 マンション管理組合の弁護士から委任を受けた 弁護士から書類が届き驚きました… 私の父親(亡くなった) 6 2023/04/22 15:14
- 雇用保険 再就職手当の支給条件とスケジュールについて。 2 2022/03/23 17:11
- 財務・会計・経理 業者間での注文書・請書の取り扱いについて 2 2022/06/27 15:53
- 分譲マンション 古い分譲の初理事(※副理事)の対応について 2 2022/11/04 01:26
- 退職・失業・リストラ 中途採用の正社員を試用期間初日で退職。 4 2023/04/02 22:58
- 財務・会計・経理 インボイス制度の経過措置期間について 2 2023/01/28 15:50
- ビジネスマナー・ビジネス文書 社内便のやりとりを確実に行いたい 2 2023/05/28 11:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのセルにユーザー名...
-
メールをパスワードつきで送る方法
-
メールのマナー編
-
LINE TCBというところからLINE...
-
大学定期試験過去問サイト「過...
-
メールアドレス 上バーの入力...
-
インスタの捨て垢で友達のスト...
-
メールアドレスで上付きのハイフン
-
CDにパスワードをかける
-
カカオで退会せずに、アプリだ...
-
ログアウトのないサイトからロ...
-
CSVファイルを添付するときにパ...
-
メールエラー
-
YahooIDをパスワード形式にした...
-
存在しないアドレスにメールを...
-
メールアドレスから個人を特定...
-
LINE Payで友だちに送金しよう...
-
インターネットカフェでCD書き...
-
インスタのアイコンについてるN...
-
カカオトークを退会せずにアン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ビーリアルのユーザー名を変え...
-
Excelのセルにユーザー名...
-
メールをパスワードつきで送る方法
-
steam版 apexのログアウト方法...
-
メールエラー
-
LINE TCBというところからLINE...
-
URLとメールアドレス
-
メールアドレスで上付きのハイフン
-
インスタのアイコンについてるN...
-
メールアドレス 上バーの入力...
-
ユニクロやGUのシフト管理アプ...
-
携帯電話を解約してもSMSの受信...
-
メールアドレスから個人を特定...
-
インスタの捨て垢で友達のスト...
-
スタディプラスではアカウント...
-
Instagramからこんなメールがき...
-
YouTubeが毎回ログインしないと...
-
メールを返信したら、英語のメ...
-
解約済みの iPadについて 解約...
-
メールのマナー編
おすすめ情報