下記のような質問が来たので、処理してみます いつも大変お世話になっております。 マクロ(VBA)で追加する予定を、非公開設定にしたいのです。 2週間あちこちwebを検索しましたが、 どのプロパティ(?)に何をセットすればいいのか、 まだわかりません。ご教示願えませんでしょうか。 以上、よろしくお願い致します。 こんにちは。 .Sensitivity = olPrivate 'olPrivate=2 非公開 プライベート で目的の処理になるとよいのですが。 Dim aITEM As Outlook.AppointmentItem '予定、アポ 'CreateItemで予定の作成 Set aITEM = CreateItem(1) 'olAppointmentItem=1 1予定・アポを指定 aITEM.Display '編集画面表示 aITEM.Sensitivity = olPrivate