CDO.Messageを使ったVBScript
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/sendusing") = 2
11. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailhost"
12. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 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
=============================ここまで===============================
実際に会社の運用業務で使用しても問題ないものなのでしょうか？
また、問題があるのでしたら、その解決法を教えて頂ければ嬉しいです。
