私は、Outlook VBA
[メールの作成 や 読み込みを行いたい] / [予定 アポやスケジュールを管理したい] / [仕事・タスクを登録したい] / [アドレス帳や連絡先を管理したい] / [HELPからOutlookのプロパティやメソッドを探りたい]
です。※目的の処理を選択してください。


ken3memo : Outlook関係の→ [メモ・記事をチェック] / [アウトルックの動画解説へ]
全ての質問には、答えられませんが、リクエストや質問があったら、[作者(三流君)に質問する] から 気軽に送ってください [三流君(TOP)] / [VBA(TOP)] / [Outlook操作(TOP)]



三流君 Outlook Appointment 予定表を操作する

まぁ、そんなに難しく考えないで、ソースを貼り付けて、遊んでみてください。
VBS や Excel など から Set oApp = CreateObject("Outlook.Application") で オブジェクトを作り、コントロールしてます。

#AppointmentItem

As AppointmentItem

AppointmentItem オブジェクト
予定・アポのアイテム プロパティ
↑MSDNを参考にして、プロパティやメソッドを探ったり、
[予定表・アポの作成へ]

#CreateItem

予定表・アポの作成

新規に予定のアイテムを作成したいと思います。
と言っても、単純に、
CreateObject("Outlook.Application") で アウトルック起動
.GetDefaultFolder(9) '規定のフォルダー olFolderCalendar=9 指定
.CreateItem(1) 'olAppointmentItem=1 1予定・アポを指定
して、作成後、
プロパティに値をセット、
動作 .Close メソッドで保存して閉じただけです。


'VBSからOutlook 予定表のアイテム作成をテスト
'入力された名前で予定のアイテムを1つ作成する

Dim yoteiNAME  '予定の名前

yoteiNAME = InputBox("予定の題名・件名は?") '入力させる


'Outlookの起動 アプリケーション を 作成する

    Dim oApp        'As Outlook.Application OutlookのApplication オブジェクトを入れる
    Dim myNameSpace 'As Outlook.NameSpace 名前のスペースと言われても、、
    Dim myFolder    'As Outlook.Folder フォルダー指定

    'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
    Set oApp = CreateObject("Outlook.Application")

    '呪文1 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ
    Set myNameSpace = oApp.GetNamespace("MAPI")

'olFolderCalendar 9 予定フォルダ ※カレンダー
    '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)
    Set myFolder = myNameSpace.GetDefaultFolder(9) '規定のフォルダー olFolderCalendar=9 指定
    myFolder.Display  '表示 いつものクセで .Visible = True とやりがちだけど

    '通常サイズ olNormalWindow=2 で表示(ほかに olMaximized=0,olMinimized=1)
    oApp.ActiveWindow.WindowState = 2   'olNormalWindow=2 を セット

'ここから予定の作成
'CreateItem(1) とolAppointmentItem=1 1を指定しただけ。

    Dim aITEM   'As Outlook.AppointmentItem '予定、アポ
    
    'CreateItemで予定の作成
    Set aITEM = oApp.CreateItem(1)   'olAppointmentItem=1 1予定・アポを指定
    
    aITEM.Display   '編集画面表示
    
    'データのセット
    aITEM.Subject = yoteiNAME & "の件"
    aITEM.Body = "予定の本文" & vbCrLf & "2行目" & vbCrLf & "xxxxx"
    aITEM.Start = Now()   'テストで現在の時刻をセット
    aITEM.End = DateAdd("h", 1, Now())  '1時間後を計算、終了にセット
 
    '動作
    'aITEM.Save   '.Saveで保存 .Close時に下記みたいに閉じると同時に保存も可能
    aITEM.Close 0 '保存して閉じる olSave=0  olDiscard=1 olPromptForSave=2    '

↑を実行すると、予定・アポのアイテムが作成されるので、テストしてみてください。
操作・試行錯誤の動画:[テスト動画]Outlook CreateItem(1) olAppointmentItem=1 予定のアイテムを作成

サンプルコードのリンク

予定表サンプル:
[予定表と仕事、連絡先を使ったサンプル]
[Outlook 予定表、ラベルのデータを取り出し 書き換えるテスト]

※※↓かなり参考になるページ↓
Hey, Scripting Guy! 月曜日から金曜日まで毎日開催される会議のスケジュールを 2 週間分設定する方法はありますか
http://gallery.technet.microsoft.com/scriptcenter/0cf13024-3405-4180-9c8f-8fc4307d513f

↑私のサンプルが子供に見えるほど、大人のページ。。。私も精進しないとねぇ。
何かの参考となれば幸いです。

[#QA_MESSAGE][ページ内のTOPへ戻る]

ページフッター

ここまで、読んでいただきどうもです。ここから下は、広告と三流君のホームページの紹介・案内です
目的の情報が見つかったか?少々心配しつつ、、、



三流君へ メッセージを送る

感想や質問・要望・苦情など 三流君へメッセージを送る。
とても急ぎで連絡がほしい、そんな時は: [YouTubeの動画にコメントする]※通知が届くので気が付きやすいです
[twitterでDMを送る]かなぁ。※最近DMの通知が表示されなかったり、20件制限などがあるし・・
気軽に連絡してください。何か連絡手段を考えないとなぁ・・・

Outlook VBA 情報を Googleで検索する

Google
探す言葉:
ググる。↑添付,予定,本文などの単語や,オブジェクト(MailItem),プロパティ(.Body)やメソッド(.Move)などを入れて検索してみてください。

サイト指定:人気QAサイト や 一次情報MS本家を指定する
条件無し WWW 全体から検索↓指定で見つからなければ 一次情報・二次情報まとめから探る
一次情報は基本のMSDN含む microsoft.comから
まとめ一次・二次情報 Qiita 知識を記録・共有 qiita.comで個人まとめを参考に
手前味噌の三次情報 三流君メモBlog ken3memo.hatenablogから検索
QAサイトの質問から探る
QAはやっぱり人の多いYahoo知恵袋 chiebukuro.yahoo.co.jpから探る
こちらもどうぞ おしえてgoo! oshiete.goo.ne.jp
15分探して見つからなかったら?回答率90%以上 teratail.com
私も利用中 最近過疎ってる失礼 人力検索 q.hatena.ne.jp
意外と穴場? 2ch 5ch.netから探す
検索実行: ←オプション確認後に検索ボタンを押してください

期間指定:情報の鮮度も大切?
指定なし(全て)※不変の情報を得るには指定無しが一番?
3日以内 最新の更新情報を探す時など。
3ヶ月 これはあまり使わないかも
1年以内の更新なら情報鮮度もOK?バランス型
3年も経てばOfficeもバージョンUP?
検索実行: ←オプション確認後に検索ボタンを押してください

Outlook アイテム別の操作

  1. [Mail]でメールを作成したり読み込んだり
  2. [Task]で仕事・タスクを登録したり
  3. [Appointment]予定表 アポ・スケジュールの登録ほか
  4. [Contact]連絡先でアドレスや名簿管理

三流君の[Outlookヘルプの探り方]でオブジェクト、プロパティやメソッドの探り方を少し書いてみたり、

ken3memo : Outlook関係の→ [メモ・記事をチェック] / [ブックマークを見る] / [アウトルックの動画解説へ]
で、まとめてみたり※↑まとまってないじゃん、放り込んだだけでしょ・・・




Menu : [Outlook操作(TOP)] / [VBA(TOP)] / [三流君(TOP)]