XXXXXさんへ .Sensitivity = olPrivate VBA Outlook 予定表 非公開設定について

下記のような質問が来たので、処理してみます

いつも大変お世話になっております。
　マクロ（VBA）で追加する予定を、非公開設定にしたいのです。
２週間あちこちwebを検索しましたが、
どのプロパティ（？）に何をセットすればいいのか、
まだわかりません。ご教示願えませんでしょうか。
以上、よろしくお願い致します。

こんにちは。

.Sensitivity = olPrivate  'olPrivate=2 非公開 プライベート

で目的の処理になるとよいのですが。

    Dim aITEM   As Outlook.AppointmentItem '予定、アポ
    'CreateItemで予定の作成
    Set aITEM = CreateItem(1)   'olAppointmentItem=1 1予定・アポを指定
    aITEM.Display   '編集画面表示
    aITEM.Sensitivity = olPrivate  'olPrivate=2 非公開 プライベート

簡単な解説は、
Ken3 ライブ VBA Outlook 予定表 非公開設定 テスト中 です・・・ - YouTube
www.youtube.com
↑前半と後半↓
Ken3 ライブ VBA Outlook 予定表 非公開設定 その2 続きです - YouTube
www.youtube.com
を見てください。

---

ライブ プログラミングといいつつも、
初見じゃなくて、一度やってからの解説です
※ぉぃぉぃ、ライブ感 なし で いつもの動画じゃねぇか・・

まずは、手作業で 非公開を作る
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

次に VBA の コードを探す

私の検索パターン
1.VBA Outlook 予定表
でオブジェクトを探す
2.上記オブジェクトには、プロパティやメソッドがあります
3.英語ページ や 英語のプロパティを機械変換
4.プロパティの詳細を見る
5.定数 olXXXXX を 見る
↑とか、熱弁しているけど
今回は、結局 正解から逆算した解説でした ぉぃぉぃ

一度 知った道を さも 初めて 初見プレイです・・・
と言って自分をスゴク見せる
セコイ 配信者みたいですね。

※攻略動画 で 初見ですと言いつつ、
　他の攻略サイトを見てから
初見ぽく プレイする 感じかな ぉぃぉぃ

予定を、非公開設定の操作が、勘違いしていたらすみません
※たまに とくいげに できましたぁと言ったら、
　その処理違います・・・と言われるので ぉぃぉぃ

---

---

公式サイトは
AppointmentItem オブジェクト (Outlook)
https://msdn.microsoft.com/JA-JP/library/office/ff862177.aspx
から
AppointmentItem.Sensitivity プロパティ
https://msdn.microsoft.com/ja-jp/library/office/ff862106.aspx
からの
OlSensitivity 列挙 (Outlook)(機械翻訳)
https://msdn.microsoft.com/ja-jp/library/office/ff865792.aspx
で
名前 値 説明
olConfidential 3 社外秘
olNormal 0 標準
olPersonal 1 個人用
olPrivate 2 非公開
にたどり着く・・・のかな。
※かなり ムリ あるけど・・・

問題解決の糸口となれば幸いです。　　三流プログラマー Ken3

三流君,Ken3,VBA,Outlook,予定表,非公開設定