CDO(Collaboration Data Objects)のMessageオブジェクトを使って、メール送信ができる。~
VBSでの例を踏まえてメモ
以下のような記述で送信できる。~
VBSに保存する際には、Shift-JISで保存しないと文字が化ける。
#codeprettify(lang-vb linenums:1){{
Dim schema
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = CreateObject("CDO.Message")
'差出人指定
objEmail.From = "差出人<xxxx@xxxx.com>"
'宛先指定
objEmail.To = "受取人<yyyy@yyyy.com>"
'サブジェクトの指定
objEmail.Subject = "サブジェクト"
'メール本文指定
objEmail.Textbody = "本文"
'外部SMTPサーバーを使うための設定
objEmail.Configuration.Fields.Item(schema & "sendusing") = 2
'外部SMTPサーバー指定
objEmail.Configuration.Fields.Item(schema & "smtpserver") = "xxxx.com"
'ポート番号
objEmail.Configuration.Fields.Item(schema & "smtpserverport") = 25
'設定の適用
objEmail.Configuration.Fields.Update
objEmail.Send
}}
Messageオブジェクトのプロパティ、Configrationプロパティに設定を行い、メールを送信する。
Message
|プロパティ・メソッド|説明|h
|From |差出人。"メールアドレス"のみでもいいし、"名称<メールアドレス>"でもOK|
|To |宛て先。カンマ区切りで複数指定できる|
|Cc |CC。カンマ区切りで複数指定できる|
|Bcc |BCC。カンマ区切りで複数指定できる|
|Subject |メールのタイトル|
|Textbody |メール本文|
|TextBodyPart.Charset|メール本文の文字コード|
|HTMLBody |HTMLメール本文|
|HTMLBodyPart.Charset|メール本文の文字コード|
|AddAttachment |添付ファイルの追加。複数回呼び出すことで複数のファイルを添付可能|
Configuration
|プロパティ・メソッド|説明|h
|http://schemas.microsoft.com/cdo/configuration/sendusing |送信方法。1:ローカルSMTPサービスを利用&br;2:外部SMTPサーバーを利用&br;3:OLE DBを利用してローカルのExchangeに接続する|
|http://schemas.microsoft.com/cdo/configuration/smtpserver |SMTPサーバーのアドレス|
|http://schemas.microsoft.com/cdo/configuration/smtpserverport |SMTPサーバーのポート|
|http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout|SMTPサーバーとの接続タイムアウト時間|
|http://schemas.microsoft.com/cdo/configuration/smtpauthenticate |SMTP認証 1:Basic認証 / 2:NTLM認証|
|http://schemas.microsoft.com/cdo/configuration/sendusername |SMTP認証アカウント|
|http://schemas.microsoft.com/cdo/configuration/sendpassword |SMTP認証パスワード|
|http://schemas.microsoft.com/cdo/configuration/smtpusessl |SSLの利用 True :使用 / False:未使用|
*参考 [#p0c95ded]
-[[Windows標準機能とWSHを使ってメールを送信する:http://www.atmarkit.co.jp/fwin2k/win2ktips/428wshmail/wshmail.html]]
-[[Hey, Scripting Guy!CDO を使用して送信メールにファイルを添付するにはどうすればよいでしょうか。:http://gallery.technet.microsoft.com/scriptcenter/e7dfcfb7-1f64-48ca-8d16-107091be99cc]]
-[[CDO.Messageによるメール送信:http://serialty.blog117.fc2.com/blog-category-1.html]]
-[[CDO Library:http://msdn.microsoft.com/ja-jp/library/cc447347.aspx]]
--ほとんど役に立たない・・・
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
