CDO.Messageを使ったVBScript

Question

VBScriptでメールを送信するためのサンプルがさまざまなサイトで紹介されており、
下記プログラムの10,11,12行目のURLが何をさしているのかが分かりません。

=============================ここから===============================

1. Set objMail = CreateObject("CDO.Message")
2. objMail.From = "表示名 <username@xxx.yy.zz>"
3. objMail.To = "表示名1 <username1@xxx.yy.zz>;表示名2 <username2@xxx.yy.zz>"
4. objMail.Cc = "username@xxx.yy.zz"
5. objMail.Bcc = "username@xxx.yy.zz"
6. objMail.Subject = "メール送信テスト"
7. objMail.HtmlBody = "<html><body><i>CDO.Messageによるメール送信テスト</i></body></html>"
8. objMail.BodyPart.Charset = "utf-8"
9. objMail.AddAttachment "c:\test.txt"
10. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/s … = 2
11. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/s … = "mailhost"
12. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/s … = 25
13. objMail.Configuration.Fields.Update
14. objMail.Fields("urn:schemas:mailheader:X-Mailer") = "vbscript mail"
15. objMail.Fields("urn:schemas:mailheader:Importance") = "High"
16. objMail.Fields("urn:schemas:mailheader:Priority") = 1
17. objMail.Fields("urn:schemas:mailheader:X-Priority") = 1
18. objMail.Fields("urn:schemas:mailheader:X-MsMail-Priority") = "High"
19. objMail.Fields.update
20. objMail.Send
21. Set objMail = Nothing

=============================ここまで===============================

実際に会社の運用業務で使用しても問題ないものなのでしょうか？
また、問題があるのでしたら、その解決法を教えて頂ければ嬉しいです。

end-u · Accepted Answer

そのサンプルはどのサイトを参照されましたか？
こちら
http://serialty.blog117.fc2.com/blog-entry-10.html
だったら、そのサイト内に解説があるようですね。

Fieldで指定している"http://schemas.microsoft.com/cdo/.."のURLは名前です。
http://msdn.microsoft.com/en-us/library/ms526939(EXCHG.10).aspx
Microsoft に接続するわけではありません。
同サイトにもリンクが貼ってありますが、
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/nov04/hey1129.mspx
こちらにも触れてあります。

実際にNameを確認するサンプル
Dim i, f, ret
With CreateObject("CDO.Configuration")
    ReDim ret(.Fields.Count)
    i = 0
    For Each f In .Fields
        ret(i) = f.Name
        i = i + 1
    Next
    MsgBox Join(ret, vbLf)
End With

業務として運用されるのであればリファレンスの確認は必須だと思いますが。
それも同サイト内にリンクあります。

CDO.Messageを使ったVBScript

そのサンプルはどのサイトを参照されましたか？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング