うわっ、ニッチ過ぎ。そんな環境他にもあるのか的な話ですが。
【想定する環境】
・App-VでIEを使っている(プラグインなどの関係)
・メール環境として GoogleApps を使っている
【期待する動作】
(1)mailto をクリックする(webページ、エディタ、Wordなど…)
(2)App-V上のIEが起動する
(3)GoogleAppsのメール作成画面が表示される
(4)mailtoの引数(宛先メールアドレスとサブジェクト…と本文?)がメール作成画面に入力されている
【用意するもの】
MY OPEN SOURCE HOUSEさんのスクリプトをベースに、以下のようなスクリプトを書きました。
'########################################
'
' Mailto Protocol by Gmail via Chrome
'
' Copyright 2009 y.mikome
' http://www.myopensrc.com
' modified by INABA
' http://blog.1783.org/
'#######################################
Dim objWshShell, strChrome, strArgument
Set objWshShell = WScript.CreateObject("WScript.Shell")
strOsdPath = "<OSDファイルのパス>"
strGApps = "https://mail.google.com/a/<GoogleAppsに登録したドメイン名>/?view=cm&fs=1"
strSftTray ="sfttray.exe /launch"
mailtoArg = Replace(Trim(Mid(WScript.Arguments(0), 8)), "?", "&")
objWshShell.Run strSftTray & " " & strOsdPath & " " & strGApps & "&to=" & mailtoArg
んでもって上記のスクリプトを適切に書き換えて適切なところに置いて(ここではCドライブ直下に置く例)、適切なレジストリ(後で補完予定。たとえば HKEY_CLASSES_ROOT\mailto\shell\open\command )に
“%SystemRoot%\system32\wscript.exe” “%SystemDrive%gmail.vbs” %1
とか書いてやるとうまくいくっぽいです。もうちょっと試してみなくちゃですが。
とりあえずメモ。だけど誰の役に立つのかは全く分んない。
あと、vbsを書くのが初めてなので、お作法に則ってなかったらごめんなさい。
