クリップボードからメールを作成

スポンサーリンク

概要 †

• クリップボードにコピーしたテキストを本文にしたメールを作成する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:6321 / Today:1 / Yesterday:1

スポンサーリンク