でじまみ

< 新しい記事

新着記事一覧(全1162件)

過去の記事 >

2012.11.19

出勤時のタイムカードの代わりにメール送信

カテゴリ：小規模オフィス

うちの会社では少人数にもかかわらず社員が各地に点在してまして、しかも出勤簿管理する人間が常に全国を飛び回っているという、人事的にどうよっていう会社なもんで、タイムカード代わりにすべてメールで出勤確認、帰りもメールで業務報告みたいな感じの日常なんですわ

帰りはいいとして、朝タイムカードならガチャンと数秒で済むものを、PC立ち上げてメール立ち上げて、宛先設定、件名入れて…、あー遅刻じゃー

というわけでせめてワンクリックでメール送信できるような方法を考えました。

あんまり詳しくないんですが、ネットを頼りに以下のようにVBSで書いてみました。

≪2013/4/3 追記あり≫

Dim WshShell, BtnCode
Set 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.Quit
End Select
Set 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") = 2
oMsg.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") = 587
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
oMsg.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.Update
oMsg.Send
objShell.Popup "メール送信しました。", 0, "送信完了", 0

10から11行目に送信元と送信先のメールアドレスを、表示名はメールに表示される宛名を入れます

12行目のBccは確認のため自身に送るものです

13行目は件名、14行目は本文です

18行目の"xxx.xxx.xxx.xxx" はSMTPサーバーです　"smtp.xxxxx.co.jp" のような形でも構いません

20行目はSMTPのポート番号です

認証を付け加えました：

22行目　1(Basic認証)　または　2（NTLM認証）
24行目　ユーザー名
26行目　パスワード

このように次々とダイアログが現れ、最終的に自分のところにも同じメールが届けばバッチリ送信されてます。

本文の内容は変えられませんが、簡単に毎日同じメールを送れます。

いまどきはタイムカードのアプリとかあって、グループウェアなんかでもボタン一発、給料計算までできてしまうっていう時代に、うちの会社ったらホント原始的っす。

でもこのスクリプト、毎回同じ内容のメールを簡単に送信できるんで、応用次第でほかの用途にも使えますよ。

こんな使い方は？　なんていうのをあったらぜひ教えてくださいませ。

関連リンク

◆ ファイルをメールで自動送信する 1　「VBSを記述する」

◆ ファイルをメールで自動送信する 2 「フォルダ監視ソフトを使う」

◆ 定時に自動でPCの電源を入れる　-　会社のサーバーの電源管理に