出勤時のタイムカードの代わりにメール送信
うちの会社では少人数にもかかわらず社員が各地に点在してまして、しかも出勤簿管理する人間が常に全国を飛び回っているという、人事的にどうよっていう会社なもんで、タイムカード代わりにすべてメールで出勤確認、帰りもメールで業務報告みたいな感じの日常なんですわ帰りはいいとして、朝タイムカードならガチャンと数秒で済むものを、PC立ち上げてメール立ち上げて、宛先設定、件名入れて…、あー遅刻じゃーというわけでせめてワンクリックでメール送信できるような方法を考えました。あんまり詳しくないんですが、ネットを頼りに以下のようにVBSで書いてみました。≪2013/4/3 追記あり≫Dim WshShell, BtnCodeSet WshShell = WScript.CreateObject("WScript.Shell")Set objShell = CreateObject("Wscript.Shell")BtnCode = WshShell.Popup("出勤メールを送信しますか?",0, "朝のメール送信", 4 + 32)Select Case BtnCode case 6 WScript.Echo "送信します。" case 7 WScript.QuitEnd SelectSet oMsg = CreateObject("CDO.Message")oMsg.From = "表示名 <aaa@xxxxx.co.jp>" '送信元oMsg.To = "表示名 <bbb@xxxxx.co.jp>" '送信先oMsg.Bcc = "aaa@xxxxx.co.jp"oMsg.Subject = "出勤メールの送信"oMsg.TextBody = "おはようございます"oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.xxx.xxx"oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"oMsg.Configuration.Fields.UpdateoMsg.SendobjShell.Popup "メール送信しました。", 0, "送信完了", 010から11行目に送信元と送信先のメールアドレスを、表示名はメールに表示される宛名を入れます12行目のBccは確認のため自身に送るものです13行目は件名、14行目は本文です18行目の"xxx.xxx.xxx.xxx" はSMTPサーバーです "smtp.xxxxx.co.jp" のような形でも構いません20行目はSMTPのポート番号です認証を付け加えました:22行目 1(Basic認証) または 2(NTLM認証)24行目 ユーザー名26行目 パスワードこいつをメモ帳で編集、適当に名前つけて拡張子を「.vbs」にして適当な場所に保存、そのショートカットを作ってダブルクリック。このように次々とダイアログが現れ、最終的に自分のところにも同じメールが届けばバッチリ送信されてます。本文の内容は変えられませんが、簡単に毎日同じメールを送れます。いまどきはタイムカードのアプリとかあって、グループウェアなんかでもボタン一発、給料計算までできてしまうっていう時代に、うちの会社ったらホント原始的っす。でもこのスクリプト、毎回同じ内容のメールを簡単に送信できるんで、応用次第でほかの用途にも使えますよ。こんな使い方は? なんていうのをあったらぜひ教えてくださいませ。関連リンク◆ファイルをメールで自動送信する 1 「VBSを記述する」◆ファイルをメールで自動送信する 2 「フォルダ監視ソフトを使う」◆定時に自動でPCの電源を入れる - 会社のサーバーの電源管理に 総額5565円分のプレゼント!!★お得なプレゼント差し上げてます!!★タイムカードラック12人用+...タイムカード1冊付激安46%OFF!!送料無料・代引き手数料無料【タイムカード1冊付】NIPPO ニッ...★1〜2営業日以内に発送(土日祝を除く)★タイムカード100枚付!マックス タイムレコーダー ...