VBSで添付ファイル付きメールを送る方法
2006年 09月 13日
OutlookのSMTP設定が完了していることが前提。Outlookを起動しておく必要はない
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "送信元アドレス"
oMsg.To = "送信先アドレス"
oMsg.Subject = "件名"
oMsg.TextBody = "本文"
oMsg.AddAttachment "D:\output.txt"
oMsg.Send
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "送信元アドレス"
oMsg.To = "送信先アドレス"
oMsg.Subject = "件名"
oMsg.TextBody = "本文"
oMsg.AddAttachment "D:\output.txt"
oMsg.Send
by ayamem
| 2006-09-13 14:07