クリップボードからメールを作成の変更点

追加された行はこの色です。
削除された行はこの色です。
クリップボードからメールを作成へ行く。

*概要 [#b65d3a50]
-クリップボードにコピーしたテキストを本文にしたメールを作成するVBスクリプト

*スクリプト [#g6a58f21]
 option explicit
 
 'クリップボードから取得
 Dim doc
 Dim message
 Set doc = createobject("htmlfile")
 	message = doc.parentwindow.clipboarddata.getdata("text")
 	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)

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

*応用 [#te7a282c]
+スクリプトをショートカットキーに割り当てておくと便利

----

&size(12){Total:&counter(total); / Today:&counter(today); / Yesterday:&counter(yesterday);};

クリップボードからメールを作成 の変更点

クリップボードからメールを作成の変更点