[HOWTO] CDO for Windows 2000 およびリモート SMTP サービスを使用して HTML 形式のメールを送信する方法

サポート期間が終了した「サポート技術情報」資料に関する免責事項

対象製品

すべて展開する | すべて折りたたむ

概要

この資料では、Microsoft Collaboration Data Objects for Windows 2000 (CDOSYS) または Microsoft Collaboration Data Objects for Exchange 2000 (CDOEX) と、リモートコンピュータの SMTP サービスを使用して、HTML 形式のメールを送信する方法について説明します。

先頭へ戻る

詳細

Cdosmtp.vbs という名前のファイルを作成し、以下のコードを貼り付けます。

' Send by connecting to port 25 of the SMTP server.
Dim iMsg 
Dim iConf 
Dim Flds 
Dim strHTML
Const cdoSendUsingPort = 2
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' Set the CDOSYS configuration fields to use port 25 on the SMTP server.
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    'ToDo: Enter name or IP address of remote SMTP server.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<remote SMTP server>" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10  
    .Update
End With
' Build HTML for message body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
' Apply the settings to the message.
With iMsg
    Set .Configuration = iConf
    .To = "<email address>" 'ToDo: Enter a valid email address.
    .From = "<email address>" 'ToDo: Enter a valid email address.
    .Subject = "This is a test CDOSYS message (Sent via Port 25)"
    .HTMLBody = strHTML
    .Send
End With
' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
MsgBox "Mail Sent!"

"ToDo" と記載されているセクションのコードを環境に合わせて編集します。
ファイルを保存してからダブルクリックします。

このコードによって HTML 形式のメッセージが作成され、リモートコンピュータの SMTP サービスを使用してそのメッセージが送信されます。

先頭へ戻る

この資料は米国 Microsoft Corporation から提供されている Knowledge Base の Article ID 286431? (http://support.microsoft.com/kb/286431/EN-US/ ) (最終更新日 2004-03-04) を基に作成したものです。

この資料に含まれているサンプルコード/プログラムは英語版を前提に書かれたものをありのままに記述しており、日本語環境での動作は確認されておりません。

先頭へ戻る

この資料は以下の製品について記述したものです。

Microsoft Collaboration Data Objects 2.0
Collaboration Data Objects for Exchange 2000

先頭へ戻る

kbhowto KB286431

先頭へ戻る

"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"

サポート期間が終了した「サポート技術情報」資料に関する免責事項

この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。

先頭へ戻る