メールの自動作成

今回はメールソフトを開かずにワンクリックだけでメールを作成する方法が

ありますので紹介します。

それは、VBScriptでプログラミングすることでメールの作成を素早くやる方法です。

 

多くのメールソフトでは署名を設定することで起動するたびに出力されますが、

この方法はそれだけでなく、あらかじめ、宛先、署名、定型文を記入しておくことで

素早くメールを作成できます。仕事にも使えますのでぜひともお使いください。

同じメールを複数人同時に送ることができます。

 

やり方はメモ帳などのテキストファイルを開き、下記のものをコピペして

入力してください。コピペしたら、該当する箇所を修正し、ファイル名.vbsという

名前で保存してください。

 

<サンプルプログラム>

Dim outlook, item, mailBody, mailSubject, name, mailAddress, mailAddress_phone, HPaddress ,Tel, timeZone, byLine, mailTo, mailCc
‘*************************************************************************************
‘ 自分のメールについて  ※赤字はご自分で編集してください
‘*************************************************************************************
name = “テツミチ
mailAddress = “aaa@.bbb.jp
mailAddress_phone = “090-****-****
HPaddress = “https://www.xxx.jp
Tel = “****-**-****
objmailTo = “abc@.efg.jp
objmailCC = “hij@.klm.jp

‘*************************************************************************************

Set objOutlook = CreateObject(“Outlook.Application”)
Set objMail = objOutlook.createItem(0)
‘*************************************************************************************
‘* 時刻を取得する
‘*************************************************************************************
timeZone = Right(“0” & Hour(Now) , 2) & “:01-” & Right(“0” & Hour(Now)+1, 2) & “:00”

‘**************************************************************************************
‘* メール件名
‘**************************************************************************************
objMail.Subject = “〇〇〇
‘objMail.Subject = mailSubject & Year(Date) & “/” & Right(“0” & Month(Date), 2) & “/” & Right(“0” & Day(Date), 2)
‘**************************************************************************************
‘* メール本文
‘**************************************************************************************
objMail.Body = “お世話になっております。” & vbCrLf _
& name & “です。” & vbCrLf _
& “” & vbCrLf _
& “” & vbCrLf _
& “” & vbCrLf _
& name & vbCrLf _
& “mailAddress” & mailAddress & vbCrLf _
& “mailAddress_phone” & Tel & vbCrLf _
& “mailAddress ” & mailAddress_phone & vbCrLf _
& “HPaddress ” & HPaddress & vbCrLf _
& “” & vbCrLf _
& mailSubject & Year(Date) & “/” & Right(“0” & Month(Date), 2) & “/” & Right(“0″ & Day(Date), 2) &” ” & timeZone & “送信”

objMail.Display

call msgbox(“Outlookを起動しました”, vbinfomation)

 

正しく設定し、ファイルを開くと

が出て、OKをクリックすると

メールアプリが開きます。

VBScriptはVistal Basicを基に簡易的にプログラミングできるもので、ワード、

エクセルなどの作業を時短で行うことが可能です。ここではVBScriptの説明は

省きますが、習得するとかなり便利ですので、プログラムを作成して

仕事を楽にしましょう!