ken3memo : Outlook関係の→
[VBAコード・メモ・記事をチェック] /
[ブックマークを見る] /
[アウトルックの動画解説へ] /
三流君 Outlook Task 仕事・タスクを操作する
まぁ、そんなに難しく考えないで、ソースを貼り付けて、遊んでみてください。
VBSやExcel など から Set oApp = CreateObject("Outlook.Application") で オブジェクトを作り、コントロールしてます。
#TaskItem
As TaskITEM
TaskITEM オブジェクト
タスクアイテム プロパティ
↑MSDNを参考にして、プロパティやメソッドを探ったり、
[タスク・仕事の作成へ]
#CreateItem
タスク・仕事の作成
新規にタスクのアイテムを作成したいと思います。
と言っても、単純に、
CreateObject("Outlook.Application") で アウトルック起動
.GetDefaultFolder(13) '規定のフォルダー olFolderTasks=13 指定
.CreateItem(3) 'olTaskITEM=3 3タスク・仕事を指定
して、作成後、
プロパティに値をセット、
動作 .Close メソッドで保存して閉じただけです。
'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")
'呪文1 名前空間 の 指定 と言っても、.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 & "2行目" & vbCrLf & "xxxxx"
tITEM.StartDate = Date() 'スタートは今日Dateをセット
tITEM.DueDate = DateAdd("d", 7, Date()) '終わりは7日後を計算してセット
'動作
'tITEM.Save '.Saveで保存 .Close時に下記みたいに閉じると同時に保存も可能
tITEM.Close 0 '保存して閉じる olSave=0 olDiscard=1 olPromptForSave=2
|
↑を実行すると、タスク・仕事のアイテムが作成されるので、テストしてみてください。
操作・試行錯誤の動画:[テスト動画]Outlook CreateItem(3) olTaskITEM=3 でタスク・仕事のアイテムを作成
仕事・タスクアイテム と 予定表・連絡先などを連携?
[予定表と仕事、連絡先を使ったサンプル]
では、
Application.ActiveInspector.CurrentItem
を使い、開いているアイテムを取得してみたり、
また、
複数選択された連絡先(ContactItem)を取得したかった時は
Application.ActiveExplorer.Selection を 使い、
[Outlook VBA 選択された連絡先の氏名+フリガナを使い、仕事を作成]
したりしました。
意外と、Outlookは奥が深いですね。
サンプルコードのリンク
仕事・タスクのサンプル:
[Outlook VBA 選択された連絡先の氏名+フリガナを使い、仕事を作成]
[#QA_MESSAGE][ページ内のTOPへ戻る]
ページフッター
ここまで、読んでいただきどうもです。ここから下は、広告と三流君のホームページの紹介・案内です
目的の情報が見つかったか?少々心配しつつ、、、
ken3memo : Outlook関係の→
[メモ・記事をチェック] /
[ブックマークを見る] /
[アウトルックの動画解説へ] /
Menu :
[Outlook操作(TOP)] /
[VBA(TOP)] /
[三流君(TOP)]
商品:来月の予約関係を紹介(広告)
6月の人気
-
15日 FINAL FANTASY 25周年記念トランプ - おもちゃ ほか
-
14日 DCD ダイスオーDX オフィシャルバインダー3 ~特命!!ダイスオー潜入開始!!~ - おもちゃ ほか
-
10日 Beanie Boos ビーニー ブーズ ツンドラ シロクマ - おもちゃ ほか
-
08日 レゴ スター・ウォーズ R2-D2(TM) 10225 - おもちゃ ほか
-
07日 こえだちゃん アゲハちゃんのおしゃれフレンズ - おもちゃ ほか
-
06日 (仮)HDM創絶仮面ライダー 灼熱の炎と真紅の戦士編 1BOX (食玩) - おもちゃ ほか
-
02日 マスターワークコレクション No.115 1/20 フェラーリ F310B No.6 E.アーバイン 塗装済み完成品 21115 - おもちゃ ほか
-
01日 マジック:ザ・ギャザリング プレインチェイス 4種アソート 日本語版 BOX - おもちゃ ほか
続き(一覧)を見る