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
=============================ここまで===============================
実際に会社の運用業務で使用しても問題ないものなのでしょうか？
また、問題があるのでしたら、その解決法を教えて頂ければ嬉しいです。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
回答ありがとうございます。 KANZAKI.COMにもISBNについては書かれていました。 なるほどとは思ったんですが、ISBNがわかったところで、その本にはたどり着けない。 どこに売ってるか書いてありません。 URNは何の役に立つんでしょう。甚だ疑問です。