VBScriptでメールを送信するためのサンプルがさまざまなサイトで紹介されており、下記プログラムの10,11,12行目のURLが何をさしているのかが分かりません。 =============================ここから=============================== 1. Set objMail = CreateObject("CDO.Message") 2. objMail.From = "表示名 " 3. objMail.To = "表示名1 ;表示名2 " 4. objMail.Cc = "username@xxx.yy.zz" 5. objMail.Bcc = "username@xxx.yy.zz" 6. objMail.Subject = "メール送信テスト" 7. objMail.HtmlBody = " CDO.Messageによるメール送信テスト " 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 =============================ここまで=============================== 実際に会社の運用業務で使用しても問題ないものなのでしょうか？また、問題があるのでしたら、その解決法を教えて頂ければ嬉しいです。

そのサンプルはどのサイトを参照されましたか？こちら 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

解決済

質問者：GingNangBoyz
質問日時：2011/06/21 20:50
回答数：1件

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： end-u
回答日時：2011/06/22 12:45

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

こちら
http://serialty.blog117.fc2.com/blog-entry-10.html
だったら、そのサイト内に解説があるようですね。

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

実際に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

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