CDO.Messageを使ってのメール送信(ASP)

メールの送信

ASPでCDO.Messageを使用してのメール送信です。


set SendMail = CreateObject("CDO.Message")
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = メールサーバーのアドレス
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
SendMail.Configuration.Fields.Update

With SendMail
	.From =　差出人
	.To = 宛先
	.Subject = 件名
	.TextBody = 本文
	.send
End With

http://schemas.microsoft.com/cdo/configuration/の設定
sendusing:送信方法でローカルにSMTPサーバーがなく、Exchangeを使用しない場合は２を指定します。
cdoSendUsingPickup (1)
ローカルのSMTP（ピックアップ・ディレクトリ）を使用する
cdoSendUsingPort (2)
SMTP ポートに接続する
cdoSendUsingExchange (3)
Microsoft Exchange を使用する

smtpserver:メールサーバーを指定します。
smtpserverport:SMTPのポートを指定します。
smtpusessl:SSL通信をする/しない(True/False)をしていします。
smtpauthenticate:SMTPの認証方法(1(Basic認証)/2(NTLM認証))
sendusername:送信ユーザー
sendpassword:送信ユーザーのパスワード
smtpconnectiontimeout:接続がタイムアウトするまでの秒数

関連エラー
CDO.Message.1 エラー '80040222'

ピックアップディレクトリのパスが必要ですが、指定されませんでした。

ローカルにSMTPサーバーが無いときに、sendusingに1を指定している場合に、発生します。
sendusingを2に変更してみてください。

サイト内検索