日報を自動作成する

ずぼらサラリーマンシリーズ第１弾

作業は順調なんです！！！えらい人にはわからないんです！！！

本日絶好調として日報を作成して帰りたい.vbs

Dim objWShell

 Set objWShell = CreateObject("WScript.Shell")

d = "mailto:[e-mail]" 
d = d & "?body=順調です&subject=[日報]jtakasuryuji" 
d = d & "%20" 
d = d & replace(FormatDateTime(Now, 0),"/",".")

objWShell.Run d,0,false

本文までイケテル版。

http://qiita.com/salmonosushi/items/7f63eb2e59d9c9cd01a6 のVBScript版を思いついたので

nippo書いたら帰れる.vbs

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
strToday = left(FormatDateTime(Now, 0),10)

'▽▽▽▽▽▽▽▽▽▽書き換えよ
yourname="小栗旬"
yoursign="開発部 シュレッダー係 小栗旬 <[e-mail]> (内線 110)"

yourname=replace(yourname ," ","%20")
yoursign=replace(yoursign ," ","%20")

d = "mailto:#nippo;" 
d = d & "?subject=[日報]" & yourname
d = d & "%20" 
d = d & replace(strToday ,"/",".")
d = d & "&body=" 
d = d & "宛先各位%0d%0a%0d%0a%0d%0aお疲れ様です。開発部の" & yourname & "です。"

d = d & "%0d%0a%0d%0a添付のとおり日報を作成いたしました。"
d = d & "%0d%0aご確認いただきますよう、よろしくお願いいたします。"

d=d & "%0d%0a%0d%0a以上%0d%0a%0d%0a" & yoursign

objWShell.Run d,0,false
'''