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


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


三流君 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へ戻る]

ページフッター

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

Outlook アイテム別の操作

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

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

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



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

感想や質問・要望・苦情など 三流君へメッセージを送る。


あなたのお名前(ニックネーム):さん
返信は?:

アドレス:に返事をもらいたい
感想や質問↓:


(感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[twitter三流君]に気軽に連絡してください。




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





広告

リンク広告
  1. --[Windows 仮想メモリ ページファイルの移動や設定]
  2. --[ Windows7 OSのフルバックアップ システムイメージバックアップ]
  3. --[Access コンボボックスを使ってみた]