Outlookにローカル作業記録を残すVBS

TwitterのつぶやきはGoogleカレンダーに転送しているので、

ログに残すことができるが、Twitterに投稿したくない個人的なつぶやきも

Googleカレンダーに残せればよいなぁと思ったので、そんなものをつくってみた。

• Outlook予定表につぶやきを記録。
• Google Calendar Syncで同期。

'Outookへ予定を追加するマクロ
Option Explicit

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

  Dim Tweet  'つぶやき
  Tweet = InputBox("Let's Tweet")

'Outlook を 起動する
  Dim oApp        'OutlookのApplication オブジェクトを入れる
  Dim myNameSpace '名前空間
  Dim myCalendar  'カレンダー指定
  Dim aITEM       '予定表アイテム

  Set oApp = CreateObject("Outlook.Application") 'outlook 起動
  Set myNameSpace = oApp.GetNamespace("MAPI") '名前空間 の 指定

  Set myCalendar = myNameSpace.Folders("Outlook").Folders("予定表")
  Set aITEM = myCalendar.Items.Add 

  'データセット
  With aITEM
    .Subject = Tweet
    .Start = Now 'なう。
    .End = Now   'なう。
    .Categories = "#Twitter" '分類項目に#Twitterを追加
    .Save
  End With