でじまみ

< 新しい記事

新着記事一覧(全1162件)

過去の記事 >

2012.06.25

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

(2)

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

例えば「伝票を作ってメールで添付して送信する」という作業は日常かなり多いと思います。

これが1日に複数回、同じ宛先に同じ件名とメッセージを添えて送信となると、何とか作業を楽にしたいものです。

そこで「添付ファイルを自動でメール送信する」というのをやってみました。

イメージとしては、

デスクトップ上のフォルダ「送信フォルダ」に送りたいファイルを入れる
フォルダ監視ソフトでそのフォルダを監視し、ファイルが入れられたら自動送信するバッチが起動する
送信後、そのファイルを自動で削除する

このような一連の流れにしたいと思います。

まず、主体となるプログラムをVBSで以下のように記述してみました。

（実はVBといってもExcelとかのVBAを少しかじったぐらいで、これはネットであれこれ調べて見よう見まねで作成したものです）

≪2013/4/3 追記あり≫

Dim Fs, strPath, Fl, F, NewFile, NewFileFP, OutF Set Fs = CreateObject("Scripting.FileSystemObject") strPath = "C:\Users\owner\Desktop\送信フォルダ\" NewFile = "" Set Fl = Fs.GetFolder(strPath) For Each F In Fl.Files If F.Name > NewFile Then NewFile = F.Name End If Next NewFileFP = Fl & "\" & NewFile
Dim WshShell, BtnCode Set WshShell = WScript.CreateObject("WScript.Shell") Set objShell = CreateObject("Wscript.Shell") Set oMsg = CreateObject("CDO.Message") oMsg.From = "ファイル送信元 <aaa@xxx.co.jp>" '送信元 oMsg.To = "bbb@xxx.co.jp; ccc@xxx.co.jp" '送信先 oMsg.Bcc = "aaa@xxx.co.jp" oMsg.Subject = "ファイルの送信" '件名 oMsg.TextBody = "ファイルをお送りします。" 'メール本文 oMsg.AddAttachment NewFileFP '添付 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
Set OutF = Fs.OpenTextFile("C:\FileSend\Fsend.log",8) OutF.WriteLine "Date[" & date & "] Time[" & time & "] File[" & NewFile & "]" OutF.Close
Fs.DeleteFile NewFileFP objShell.Popup "メール送信しました。", 0, "送信完了", 0 Set Fs = Nothing Set Fl = Nothing Set OutF = Nothing