取り込んだTracのチケットをWebページを開くコンテキストメニューを追加する
勢いのあるうちに書いていかないとまた更新しなくなっちゃいそうなので,Outlookのタスクのなかで,内容の先頭行に"HTTP://"があった場合に,そのページを開くコンテキストメニューを追加する方法について書きます.CRがあることを前提としているので内容が二行以上ないとだめです.これがあれば,チケットを更新するときも少し楽になるかなぁ
まずは,ThisOutlookSessionにコンテキストメニューが表示されるときに呼ばれる,Application_ItemContextMenuDisplayを追加します.
Private Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
If Selection.Count = 1 And Selection.Item(1).Class = olTask Then
Dim tItem As TaskItem
Set tItem = Selection.Item(1)
Debug.Print tItem.Subject
If InStr(1, tItem.Body, "http://") = 1 Then
Dim btn As CommandBarButton
Set btn = CommandBar.Controls.Add(msoControlButton, Temporary:=True)
btn.Caption = "リンクを開く"
btn.OnAction = "リンクを開く"
End If
End If
End Sub
次にOnActionに設定している"リンクを開く"をどこかの標準モジュールに追加します.
Sub リンクを開く()
Dim sel As Selection
Set sel = Application.ActiveExplorer.Selection
If sel.Item(1).Class = olTask Then
Dim tItem As TaskItem
Set tItem = sel.Item(1)
Debug.Print tItem.Subject
If InStr(1, tItem.Body, "http://") = 1 Then
'http://officetanaka.net/excel/vba/tips/tips42.htm
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.Run Left(tItem.Body, InStr(7, tItem.Body, "" & vbCr)), 3
Set WSH = Nothing
End If
End If
End Sub
| 固定リンク
「VBA」カテゴリの記事
- メールで受け取ったファイルをSVNに登録する(2012.01.22)
- VBAでXMLRPCを汎用的に修正してTrac連携をそれに合わせて修正した(2011.10.24)
- Excelの(名前の管理のところの)名前の範囲の編集と,名前の範囲の値から複数選択するフォームとマクロ(2011.06.12)
- 状態遷移図からTracのワークフローを作るマクロにTracの設定の取り込み機能追加(2011.02.28)
- tracのワークフローをExcelの図で作った状態遷移図から作ってみる(2011.02.06)
「MS-Outlook」カテゴリの記事
- メールで受け取ったファイルをSVNに登録する(2012.01.22)
- Trac-Outlook連携を使った朝会の準備(2010.10.11)
- 取り込んだTracのチケットをWebページを開くコンテキストメニューを追加する(2010.02.15)
- Outlookへマクロを追加する方法とツールバーの編集(2010.02.13)
- TracのチケットをOutlookに取り込んで表示する.(2010.02.12)
この記事へのコメントは終了しました。
コメント