スポンサーリンク


概要

  • クリップボードにコピーしたテキストを本文にしたメールを作成するVBスクリプト

スクリプト

option explicit

'クリップボードから取得
Dim doc
Dim message
Set doc = createobject("htmlfile")
	message = vbCrLf & vbCrLf & doc.parentwindow.clipboarddata.getdata("text") & vbCrLf
Set doc = nothing

'コマンド作成
Dim cmd
cmd  = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe -compose ""to=,subject=,body=" & message & """"

'コマンド実行
Dim objShell, oExec
Set objShell = CreateObject("WScript.Shell")
Set oExec = objShell.Exec(cmd)

使い方

  1. スクリプトをコピーしてテキストファイルにペースト
  2. テキストファイルの拡張子を「.vbs」に変更
  3. メールにしたいテキストをコピー
  4. スクリプトを実行するとThunderbirdが起動してメール本文に貼り付けられる

応用

  1. スクリプトをショートカットキーに割り当てておくと便利

Total:4900 / Today:1 / Yesterday:0


スポンサーリンク


トップ   差分 バックアップ リロード   一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2011-01-21 (金) 11:48:36