08/06/13 16:15:06 uYaVuoGG
4行目でエラーとなるんですが どこか間違っていますでしょうか?
---
Dim f
Set oMsg = CreateObject("CDO.Message")
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objText = objFs.OpenTextFile(WScript.Arguments(0))
myText = objText.ReadAll
objText.Close
oMsg.From = "送信アドレス"
oMsg.To = "宛先アドレス"
oMsg.Subject = WScript.Arguments(0)
oMsg.TextBody = "件名" & vbCrLf & myText
' 添付したい場合使用
'oMsg.AddAttachment WScript.Arguments(0)
oMsg.Configuration.Fields.Item _
("URLリンク(schemas.microsoft.com)") = 2
oMsg.Configuration.Fields.Item _
("URLリンク(schemas.microsoft.com)") = _
"メールサーバアドレス"
oMsg.Configuration.Fields.Item _
("URLリンク(schemas.microsoft.com)") = 25
oMsg.Configuration.Fields.Update
oMsg.Send