More than 5 years have passed since last update.
ずぼらサラリーマンシリーズ第１弾
作業は順調なんです！！！えらい人にはわからないんです！！！
本日絶好調として日報を作成して帰りたい.vbs
Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
d = "mailto:report@example.jp"
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="開発部 シュレッダー係 小栗旬 <oguri@example.com> (内線 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
'''
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme