三流君 Outlook Task 仕事・タスクを操作する

'VBSからOutlook 仕事・タスクの作成をテスト
'入力された名前で仕事のアイテムを1つ作成する

Dim jobNAME  '仕事の名前

jobNAME = 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")

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

'olFolderTasks 13 仕事フォルダ。
    '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)
    Set myFolder = myNameSpace.GetDefaultFolder(13) '規定のフォルダー olFolderTasks=13 指定
    myFolder.Display  '表示 いつものクセで .Visible = True とやりがちだけど

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

'ここからタスク・仕事の作成
'CreateItem(3) とolTaskITEM=3 3を指定しただけ。

    Dim tITEM 'As Outlook.TaskITEM         'タスク、仕事
    
    'CreateItemでタスクの作成
    Set tITEM = oApp.CreateItem(3) 'olTaskITEM=3 3タスク・仕事を指定
    
    tITEM.Display   '編集画面表示
    
    'データのセット
    tITEM.Subject = jobNAME & " " & Now() & "作成"
    tITEM.Body = "タスクの本文" & vbCrLf & "２行目" & vbCrLf & "xxxxx"
    tITEM.StartDate = Date()                'スタートは今日Dateをセット
    tITEM.DueDate = DateAdd("d", 7, Date()) '終わりは７日後を計算してセット
 
    '動作
    'tITEM.Save   '.Saveで保存 .Close時に下記みたいに閉じると同時に保存も可能
    tITEM.Close 0 '保存して閉じる olSave=0  olDiscard=1 olPromptForSave=2